diff --git "a/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260.xml" "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260.xml"
new file mode 100644
index 0000000..34861bc
--- /dev/null
+++ "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260.xml"
@@ -0,0 +1,381 @@
+
+
+
+
+
+ f93c7b75-d7a6-4a02-a14c-816806393bc7
+ 691c1789-bd6b-4807-9ba8-693ef284b9e0
+
+
+ 14aa5b71-c271-41e2-a41d-df19bc973df4
+ 1e49ac35-fc3d-452e-a19f-5570b1af76d9
+
+
+ 6290325f-c5c6-454e-a48d-55a1394dda9e
+ dd710812-6258-42ef-ad93-8dd3f3c67029
+
+
+ 931c704b-efd9-4c83-9380-2aa00c3c4225
+ 728f79f4-7c3e-4752-a0e1-24ff9d7fd68e
+
+
+ e17734d4-acc5-4fe4-8462-151c65278992
+ ffa2da5a-0207-482a-b6a6-688c7de17755
+
+
+
+ Города
+
+
+ ru
+ Города
+
+
+
+ false
+ HierarchyFoldersAndItems
+ false
+ 2
+ true
+ true
+
+ ToItems
+ 9
+ 150
+ String
+ Variable
+ WholeCatalog
+ true
+ true
+ AsDescription
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ Auto
+ InDialog
+ false
+ BothWays
+
+ Catalog.Города.StandardAttribute.Description
+ Catalog.Города.StandardAttribute.Code
+
+ Begin
+ DontUse
+ Directly
+ Catalog.Города.Form.ФормаЭлемента
+
+
+
+
+
+
+
+
+
+ false
+
+
+ Managed
+ Use
+
+
+ ru
+ Город
+
+
+
+
+
+ ru
+ Города
+
+
+
+
+ Use
+ Auto
+ DontUse
+
+
+
+
+ Комментарий
+
+
+ ru
+ Комментарий
+
+
+
+
+ xs:string
+
+ 0
+ Variable
+
+
+ false
+
+
+
+ false
+
+ false
+ false
+
+
+ false
+
+ DontCheck
+ Items
+
+
+ Auto
+ Auto
+
+
+ Auto
+
+ DontIndex
+ Use
+ Use
+
+
+
+
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260.xml" "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260.xml"
new file mode 100644
index 0000000..563617f
--- /dev/null
+++ "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260.xml"
@@ -0,0 +1,21 @@
+
+
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml" "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml"
new file mode 100644
index 0000000..fe25e2f
--- /dev/null
+++ "b/Catalogs/\320\223\320\276\321\200\320\276\320\264\320\260/Forms/\320\244\320\276\321\200\320\274\320\260\320\255\320\273\320\265\320\274\320\265\320\275\321\202\320\260/Ext/Form.xml"
@@ -0,0 +1,55 @@
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\232\320\276\320\275\321\202\321\200\320\260\320\263\320\265\320\275\321\202\321\213.xml" "b/Catalogs/\320\232\320\276\320\275\321\202\321\200\320\260\320\263\320\265\320\275\321\202\321\213.xml"
new file mode 100644
index 0000000..4a591de
--- /dev/null
+++ "b/Catalogs/\320\232\320\276\320\275\321\202\321\200\320\260\320\263\320\265\320\275\321\202\321\213.xml"
@@ -0,0 +1,99 @@
+
+
+
+
+
+ 7b6533e0-139a-4506-81c6-3d12ee42a45a
+ 29b1f267-d654-4743-9eaa-c80bda5e9b90
+
+
+ 156c8f3b-8a1b-424f-802e-2962bd403650
+ 8e4b8512-e7a9-4000-bbae-0817b6ea52ac
+
+
+ d87b9b4e-bf38-4fcc-aeb7-09d43f28e8b0
+ 0ba90f27-8a93-4c6f-a2b1-80bbdd227d8b
+
+
+ e8ded820-4295-413f-b84a-99ebda9356f3
+ d0a230d0-35a4-4eaf-a89e-121c71a1f2d0
+
+
+ fe45e7c5-dfeb-469a-b2d3-d0798e41ccee
+ a4e5000c-5260-404c-99f1-b6a63f8b4c9f
+
+
+
+ Контрагенты
+
+
+ ru
+ Контрагенты
+
+
+
+ false
+ HierarchyFoldersAndItems
+ false
+ 2
+ true
+ false
+
+ ToItems
+ 9
+ 150
+ String
+ Variable
+ WholeCatalog
+ true
+ true
+ AsDescription
+
+ Auto
+ InDialog
+ false
+ BothWays
+
+ Catalog.Контрагенты.StandardAttribute.Description
+ Catalog.Контрагенты.StandardAttribute.Code
+
+ Begin
+ DontUse
+ Directly
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+ Managed
+ Use
+
+
+ ru
+ Контрагент
+
+
+
+
+
+ ru
+ Контрагенты
+
+
+
+
+ Use
+ Auto
+ DontUse
+
+
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\236\320\261\321\212\320\265\320\272\321\202\321\213.xml" "b/Catalogs/\320\236\320\261\321\212\320\265\320\272\321\202\321\213.xml"
new file mode 100644
index 0000000..799b5ce
--- /dev/null
+++ "b/Catalogs/\320\236\320\261\321\212\320\265\320\272\321\202\321\213.xml"
@@ -0,0 +1,99 @@
+
+
+
+
+
+ 8b03e3cf-8cba-469e-98e0-812df46a1807
+ dd17513c-1b9e-4fcd-81bf-345aea9cb68b
+
+
+ c52cc613-8152-4eff-86f4-de8b252e94f8
+ f8b37f0b-2001-479a-a621-144f845d20d3
+
+
+ c48422d1-e5b4-4e31-8785-49c2121df0da
+ a351cd9f-4dea-464e-b4f3-ee7bc2e01584
+
+
+ e1544147-142f-46be-8333-db34614c7ab5
+ 9d0f6c11-d220-4234-a624-2c2e4d8baa5c
+
+
+ 71113d8a-bfa9-4e97-9e98-cbddc913d986
+ a2346bfd-7520-40a1-bc63-327023ff34c9
+
+
+
+ Объекты
+
+
+ ru
+ Объекты
+
+
+
+ false
+ HierarchyFoldersAndItems
+ false
+ 2
+ true
+ true
+
+ ToItems
+ 9
+ 150
+ String
+ Variable
+ WholeCatalog
+ true
+ true
+ AsDescription
+
+ Auto
+ InDialog
+ false
+ BothWays
+
+ Catalog.Объекты.StandardAttribute.Description
+ Catalog.Объекты.StandardAttribute.Code
+
+ Begin
+ DontUse
+ Directly
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+ Managed
+ Use
+
+
+ ru
+ Объект строительства
+
+
+
+
+
+ ru
+ Объекты строительства
+
+
+
+
+ Use
+ Auto
+ DontUse
+
+
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270.xml" "b/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270.xml"
new file mode 100644
index 0000000..73bb892
--- /dev/null
+++ "b/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270.xml"
@@ -0,0 +1,329 @@
+
+
+
+
+
+ 5cffc7d9-cd46-4c0b-b9d0-e5babc1f21e8
+ d2d50e3a-796d-475a-b9b5-a1828fd360bc
+
+
+ efc25eda-6e2c-435c-a18d-e1d5cf2e82fa
+ acf8716f-6823-459c-b8b4-c3d8d4d896cd
+
+
+ f906bd2f-54e3-48b1-94b3-d417b598e679
+ f2477bad-b9a4-4b0b-96f1-5e7e9b90448c
+
+
+ 7ad67649-4645-46a0-ac80-f9370822c5ce
+ 463a1cac-808e-4ac5-9467-d7322949526f
+
+
+ 14c37190-2603-4e7b-9268-c5be4c60c634
+ a5d52cd4-363d-427d-baf3-b7d2d4a1643b
+
+
+
+ Пользователи
+
+
+ ru
+ Пользователи
+
+
+
+ false
+ HierarchyFoldersAndItems
+ false
+ 2
+ true
+ false
+
+ ToItems
+ 0
+ 100
+ String
+ Variable
+ WholeCatalog
+ false
+ false
+ AsDescription
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ Auto
+ InDialog
+ false
+ BothWays
+
+ Catalog.Пользователи.StandardAttribute.Description
+
+ Begin
+ DontUse
+ Directly
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+ Managed
+ DontUse
+
+
+ ru
+ Пользователь
+
+
+
+
+
+
+ Use
+ Auto
+ DontUse
+
+
+
+
\ No newline at end of file
diff --git "a/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270/Ext/ObjectModule.bsl" "b/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270/Ext/ObjectModule.bsl"
new file mode 100644
index 0000000..d25a092
--- /dev/null
+++ "b/Catalogs/\320\237\320\276\320\273\321\214\320\267\320\276\320\262\320\260\321\202\320\265\320\273\320\270/Ext/ObjectModule.bsl"
@@ -0,0 +1,43 @@
+
+Процедура ПриЗаписи(Отказ)
+
+ Если ОбменДанными.Загрузка
+ Или ДополнительныеСвойства.Свойство("ОчисткаБазы") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ДополнительныеСвойства.Свойство("ЭтоНовыйОбъект")
+ И ДополнительныеСвойства.ЭтоНовыйОбъект Тогда
+
+ Если ДополнительныеСвойства.Свойство("Загрузка")
+ И ДополнительныеСвойства.Загрузка Тогда
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьЗаписьРасширенногоПротокола(
+ Ссылка,
+ ТекстыСообщенийКлиентСерверПовтИсп.ТекстПротоколаЗагруженНовыйОбъект());
+
+ Иначе
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьЗаписьРасширенногоПротокола(Ссылка,
+ ТекстыСообщенийКлиентСерверПовтИсп.ТекстПротоколаСозданНовыйОбъект());
+ КонецЕсли;
+
+ Иначе
+
+ Если ДополнительныеСвойства.Свойство("Загрузка")
+ И ДополнительныеСвойства.Загрузка Тогда
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьЗаписьРасширенногоПротокола(
+ Ссылка,
+ ТекстыСообщенийКлиентСерверПовтИсп.ТекстПротоколаЗагруженоИзменениеОбъекта());
+
+ Иначе
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьЗаписьРасширенногоПротокола(
+ Ссылка,
+ ТекстыСообщенийКлиентСерверПовтИсп.ТекстПротоколаОбъектИзмененНаКлиенте());
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+КонецПроцедуры
diff --git "a/Catalogs/\320\241\321\202\320\260\321\202\321\214\320\270\320\240\320\260\321\201\321\205\320\276\320\264\320\276\320\262.xml" "b/Catalogs/\320\241\321\202\320\260\321\202\321\214\320\270\320\240\320\260\321\201\321\205\320\276\320\264\320\276\320\262.xml"
new file mode 100644
index 0000000..e6c8c51
--- /dev/null
+++ "b/Catalogs/\320\241\321\202\320\260\321\202\321\214\320\270\320\240\320\260\321\201\321\205\320\276\320\264\320\276\320\262.xml"
@@ -0,0 +1,335 @@
+
+
+
+
+
+ 0c354ccd-25d1-4f58-9c36-2a09670000fd
+ c1a689e1-9fb6-450b-9441-178c51e70493
+
+
+ a030d343-88e7-4880-abe4-8afe1e38ea86
+ f1019fdb-e5cc-4b8d-82b4-6e6015c00b2f
+
+
+ ac55e1fb-93fb-4aa8-92b7-078e70470a91
+ e62e39c9-254f-46ec-90f5-c0c0e9ec704d
+
+
+ b4b4a128-122d-4158-a58b-f04281474c63
+ 8c90ee51-1707-4a03-acbd-d74180d84d44
+
+
+ b3c20726-4220-4723-aa57-6abc37086ffc
+ 7a3211be-7fee-41ae-ac09-ab1d9839ee25
+
+
+
+ СтатьиРасходов
+
+
+ ru
+ Статьи расходов
+
+
+
+ true
+ HierarchyFoldersAndItems
+ false
+ 2
+ true
+ true
+
+ ToItems
+ 9
+ 150
+ String
+ Variable
+ WholeCatalog
+ true
+ true
+ AsDescription
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ true
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ ShowError
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ DontCheck
+ false
+ false
+ Auto
+
+
+ false
+
+
+ Auto
+ Auto
+
+ false
+ Use
+ false
+
+
+
+ Use
+
+
+
+
+
+
+
+ Auto
+ InDialog
+ false
+ BothWays
+
+ Catalog.СтатьиРасходов.StandardAttribute.Description
+ Catalog.СтатьиРасходов.StandardAttribute.Code
+
+ Begin
+ DontUse
+ Directly
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+ Managed
+ Use
+
+
+ ru
+ Статья расходов
+
+
+
+
+
+ ru
+ Статьи расходов
+
+
+
+
+ Use
+ Auto
+ DontUse
+
+
+
+
\ No newline at end of file
diff --git "a/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270.xml" "b/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270.xml"
new file mode 100644
index 0000000..2b668f4
--- /dev/null
+++ "b/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270.xml"
@@ -0,0 +1,28 @@
+
+
+
+
+ Настройки
+
+
+ ru
+ Настройки
+
+
+ en
+ Settings
+
+
+
+ ActionsPanelTools
+ Auto
+
+
+
+ false
+
+ Single
+ false
+
+
+
\ No newline at end of file
diff --git "a/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270/Ext/CommandModule.bsl" "b/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270/Ext/CommandModule.bsl"
new file mode 100644
index 0000000..2991676
--- /dev/null
+++ "b/CommonCommands/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270/Ext/CommandModule.bsl"
@@ -0,0 +1,15 @@
+
+#Область ОбработчикиСобытий
+
+&НаКлиенте
+Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
+
+ Если ЭтоУстройствоСБольшимЭкраном() Тогда
+ ОткрытьФорму("ОбщаяФорма.НастройкиПланшет");
+ Иначе
+ ОткрытьФорму("ОбщаяФорма.НастройкиТелефон");
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml" "b/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml"
new file mode 100644
index 0000000..c8d403e
--- /dev/null
+++ "b/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml"
@@ -0,0 +1,31 @@
+
+
+
+
+ НовоеСписаниеДенежныхСредств
+
+
+ ru
+ Списание денежных средств
+
+
+ en
+ New email
+
+
+
+ ActionsPanelCreate
+ PictureAndText
+
+
+ CommonPicture.КомандаНаписатьПисьмо
+ false
+
+
+ false
+
+ Single
+ false
+
+
+
\ No newline at end of file
diff --git "a/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl" "b/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl"
new file mode 100644
index 0000000..a8dac8c
--- /dev/null
+++ "b/CommonCommands/\320\235\320\276\320\262\320\276\320\265\320\241\320\277\320\270\321\201\320\260\320\275\320\270\320\265\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl"
@@ -0,0 +1,13 @@
+
+#Область ОбработчикиСобытий
+
+&НаКлиенте
+Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("ОбщаяКоманда.НовоеСписаниеДенежныхСредств");
+
+ ОткрытьФорму("Документ.СписаниеДенежныхСредств.Форма.ФормаДокумента");
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml" "b/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml"
new file mode 100644
index 0000000..6840fdd
--- /dev/null
+++ "b/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262.xml"
@@ -0,0 +1,31 @@
+
+
+
+
+ ПерейтиВСписанияДенежныхСредств
+
+
+ ru
+ Списания денежных средств
+
+
+ en
+ Mail
+
+
+
+ NavigationPanelOrdinary
+ Auto
+
+
+ CommonPicture.РазделПочта
+ true
+
+
+ false
+
+ Single
+ false
+
+
+
\ No newline at end of file
diff --git "a/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl" "b/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl"
new file mode 100644
index 0000000..3ac4ba9
--- /dev/null
+++ "b/CommonCommands/\320\237\320\265\321\200\320\265\320\271\321\202\320\270\320\222\320\241\320\277\320\270\321\201\320\260\320\275\320\270\321\217\320\224\320\265\320\275\320\265\320\266\320\275\321\213\321\205\320\241\321\200\320\265\320\264\321\201\321\202\320\262/Ext/CommandModule.bsl"
@@ -0,0 +1,13 @@
+
+#Область ОбработчикиСобытий
+
+&НаКлиенте
+Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("ОбщаяКоманда.ПерейтиВСписанияДенежныхСредств");
+
+ ОбщегоНазначенияКлиент.ОткрытьРазделСписанияДенежныхСредств(ПараметрыВыполненияКоманды);
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml" "b/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml"
new file mode 100644
index 0000000..d11a7e8
--- /dev/null
+++ "b/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml"
@@ -0,0 +1,28 @@
+
+
+
+
+ Поддержка
+
+
+ ru
+ Поддержка
+
+
+ en
+ Support
+
+
+
+ ActionsPanelTools
+ Auto
+
+
+
+ false
+
+ Single
+ false
+
+
+
\ No newline at end of file
diff --git "a/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/CommandModule.bsl" "b/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/CommandModule.bsl"
new file mode 100644
index 0000000..283292f
--- /dev/null
+++ "b/CommonCommands/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/CommandModule.bsl"
@@ -0,0 +1,11 @@
+
+#Область ОбработчикиСобытий
+
+&НаКлиенте
+Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
+
+ ОткрытьФорму("ОбщаяФорма.Поддержка");
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217.xml" "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217.xml"
new file mode 100644
index 0000000..46e581a
--- /dev/null
+++ "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ВводПароля
+
+
+ ru
+ Ввод пароля
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form.xml" "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form.xml"
new file mode 100644
index 0000000..9e62729
--- /dev/null
+++ "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form.xml"
@@ -0,0 +1,1141 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form/Module.bsl" "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..c9b0690
--- /dev/null
+++ "b/CommonForms/\320\222\320\262\320\276\320\264\320\237\320\260\321\200\320\276\320\273\321\217/Ext/Form/Module.bsl"
@@ -0,0 +1,291 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Переменная Текущий шаг может принимать следующие значения:
+ // - ВводКода - при входе в систему или при первичной установке пароля;
+ // - ВводПодтверждения - при вводе проверочного кода при установке пароля.
+ ТекущийШаг = "ВводКода";
+
+ Параметры.Свойство("Команда", Команда);
+
+ НеудачныхПопытокЕсть = Константы.КоличествоНеудачныхПопытокВхода.Получить();
+ ХешПароля = Константы.ХешПароля.Получить();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ Элементы.ВариантыЗаголовка.ТекущаяСтраница = Элементы.ОбычныйВвод;
+ НастроитьВидимостьПанелиСообщенияОбОшибке(НеудачныхПопытокЕсть);
+
+ ОбработатьИзменениеВвода();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура ПервыйРядКнопка1Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("1");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПервыйРядКнопка2Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("2");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПервыйРядКнопка3Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("3");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВторойРядКнопка4Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("4");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВторойРядКнопка5Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("5");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВторойРядКнопка6Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("6");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ТретийРядКнопка7Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("7");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ТретийРядКнопка8Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("8");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ТретийРядКнопка9Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("9");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЧетвертыйРядКнопка0Нажатие(Элемент)
+ ОбработатьНажатиеКнопки("0");
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЧетвертыйРядКнопкаУдалитьНажатие(Элемент)
+
+ // Получаем текущую длину введенного кода
+ ДлинаКода = СтрДлина(ВводимыйПароль);
+
+ // Если длина равна 0 - стирать нечего
+ Если ДлинаКода = 0 Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Уменьшаем пароль на один символ
+ ВводимыйПароль = Лев(Пароль, ДлинаКода-1);
+
+ // Отображаем изменения
+ РезультатПроверки = ОбработатьИзменениеВвода();
+
+ Если РезультатПроверки Тогда
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ОтрисоватьЗнакиКода()
+
+ // Выводим элементы введенных символов
+ ДлинаКода = СтрДлина(ВводимыйПароль);
+ Для Индекс = 1 По ДлинаКода Цикл
+ Элементы["ГруппаСимволКода"+Индекс].ТекущаяСтраница = Элементы["ГруппаСимволКода"+Индекс+"Введен"];
+ КонецЦикла;
+
+ // Выводим элементы символов ждущих ввода
+ Для Индекс = ДлинаКода+1 По 4 Цикл
+ Элементы["ГруппаСимволКода"+Индекс].ТекущаяСтраница = Элементы["ГруппаСимволКода"+Индекс+"Пустой"];
+ КонецЦикла;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьНажатиеКнопки(Цифра)
+
+ // Увеличиваем пароль на введенный символ
+ ВводимыйПароль = ВводимыйПароль + Цифра;
+
+ // Отображаем изменения
+ РезультатПроверки = ОбработатьИзменениеВвода();
+
+ Если РезультатПроверки Тогда
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Функция ОбработатьИзменениеВвода()
+
+ ОтрисоватьЗнакиКода();
+
+ ЦифрВведено = СтрДлина(ВводимыйПароль);
+
+ КомандаВыполнена = Ложь;
+
+ // Переносим изменения в данные
+ Если ТекущийШаг = "ВводКода" Тогда
+ Пароль = ВводимыйПароль;
+
+ // Если пользователь ввел 4 цифры и это режим настройки пароля
+ Если Команда = "НастроитьПароль" И ЦифрВведено = 4 Тогда
+
+ // Инициализируем переменные для повторного ввода
+ ВводимыйПароль = "";
+ ПарольПодтверждение = "";
+ ТекущийШаг = "ВводПодтверждения";
+ Элементы.ВариантыЗаголовка.ТекущаяСтраница = Элементы.ПовторПриУстановке;
+
+ // Обновляем элементы
+ ОтрисоватьЗнакиКода();
+
+ Иначе
+
+ Если ЦифрВведено = 4 Тогда
+
+ ХешПароляПолученный = ПолучитьХешПароля(Пароль);
+
+ // Если сохраненный хеш пароля равен полученному - разрешаем работать
+ Если ХешПароляПолученный = ХешПароля Тогда
+
+ // Сбрасываем счетчик ошибочных попыток ввода
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "КоличествоНеудачныхПопытокВхода", 0);
+
+ // Добавляем запись в протокол
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьПредупреждение(
+ НСтр("ru = 'Введен правильный пароль'; en = 'Password is correct'"));
+
+ // Устанавливаем флаг успешного выполнения
+ КомандаВыполнена = Истина;
+
+ Возврат Истина;
+
+ Иначе
+
+ // Увеличиваем счетчики
+ НеудачныхПопытокЕсть = НеудачныхПопытокЕсть + 1;
+
+ // Сразу обновляем данные о количестве попыток
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "КоличествоНеудачныхПопытокВхода", НеудачныхПопытокЕсть);
+
+ // Добавляем запись в протокол об ошибке при входе
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьПредупреждение(
+ НСтр("ru = 'Введен неверный пароль'; en = 'Password is wrong'"));
+
+ // Очистим текущий введенный пароль
+ ВводимыйПароль = "";
+
+ // Обновляем элементы
+ ОтрисоватьЗнакиКода();
+
+ // Отображаем предупреждение с количеством попыток
+ НастроитьВидимостьПанелиСообщенияОбОшибке(НеудачныхПопытокЕсть);
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Иначе
+ // Обновляем подтверждение пароля
+ ПарольПодтверждение = ВводимыйПароль;
+
+ Если ЦифрВведено = 4 Тогда
+
+ // Если пароль и подтверждение совпали
+ Если (Пароль = ПарольПодтверждение) Тогда
+
+ // Записываем хеш
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "ХешПароля", ПолучитьХешПароля(Пароль));
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Установлен пароль'; en = 'Password is set'"));
+
+ КомандаВыполнена = Истина;
+
+ // Закрываем форму
+ Возврат Истина;
+
+ Иначе
+
+ // Инициализируем переменные для повторного ввода
+ ВводимыйПароль = "";
+ Пароль = "";
+ ПарольПодтверждение = "";
+ ТекущийШаг = "ВводКода";
+
+ // Обновляем картинку
+ Элементы.ВариантыЗаголовка.ТекущаяСтраница = Элементы.ОбычныйВвод;
+ ОтрисоватьЗнакиКода();
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Возврат Ложь;
+
+КонецФункции
+
+&НаСервере
+Функция ПолучитьХешПароля(ВведенноеЗначение)
+
+ Драйвер = Новый ХешированиеДанных(ХешФункция.CRC32);
+ Драйвер.Добавить(ВведенноеЗначение);
+
+ Возврат Драйвер.ХешСумма;
+
+КонецФункции
+
+&НаСервере
+Процедура НастроитьВидимостьПанелиСообщенияОбОшибке(Ошибок)
+
+ Если Ошибок = 0 Тогда
+ Элементы.ЗаголовокОшибки.Видимость = Ложь;
+ Иначе
+ Элементы.ЗаголовокОшибки.Заголовок = СтрШаблон(
+ НСтр("ru = 'Количество попыток: %1'; en = 'Error attempts: %1'"),
+ Ошибок);
+ Элементы.ЗаголовокОшибки.Видимость = Истина;
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ Закрыть(КомандаВыполнена);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213.xml" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213.xml"
new file mode 100644
index 0000000..62c2c74
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213.xml"
@@ -0,0 +1,24 @@
+
+
+
+
+ ВыборДаты
+
+
+ ru
+ Выбор даты
+
+
+
+ Managed
+ false
+
+ PlatformApplication
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form.xml" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form.xml"
new file mode 100644
index 0000000..2f855aa
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form.xml"
@@ -0,0 +1,2326 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form/Module.bsl" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..b926f0d
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\224\320\260\321\202\321\213/Ext/Form/Module.bsl"
@@ -0,0 +1,124 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Параметры.Свойство("ТекущаяДата")
+ И ЗначениеЗаполнено(Параметры.ТекущаяДата) Тогда
+ ДатаНачалаМесяца = НачалоМесяца(Параметры.ТекущаяДата);
+ ВыбраннаяДата = Параметры.ТекущаяДата;
+ Иначе
+ ДатаНачалаМесяца = НачалоМесяца(ТекущаяДата());
+ ВыбраннаяДата = НачалоДня(ТекущаяДата());
+ КонецЕсли;
+
+ Если Параметры.Свойство("СписокСобытий") Тогда
+ ПоказыватьСписокСобытий = Параметры.СписокСобытий;
+ КонецЕсли;
+
+ Если Не ПоказыватьСписокСобытий Тогда
+ Элементы.События.Видимость = Ложь;
+ КонецЕсли;
+
+ ВызывающийЭлемент = Параметры.Элемент;
+
+ // Предварительная настройка используемых элементов оформления
+ ЦветБуднихДнейМесяца = Новый Цвет(0, 0, 0);
+ ЦветБуднихДнейНеТекущегоМесяца = Новый Цвет(169, 169, 169);
+ ЦветВыходныхДнейМесяца = Новый Цвет(255, 0, 0);
+ ЦветВыходныхДнейНеТекущегоМесяца = Новый Цвет(250, 128, 114);
+
+ ШрифтОбычный = Новый Шрифт();
+ ШрифтЖирный = Новый Шрифт(,,Истина);
+ РамкаОтсутствует = Новый Рамка(ТипРамкиЭлементаУправления.БезРамки);
+ РамкаПодчеркивание = Новый Рамка(ТипРамкиЭлементаУправления.Подчеркивание);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовФормы
+
+&НаКлиенте
+Процедура СобытияВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПредыдущийМесяцНажатие(Элемент)
+
+ ДатаНачалаМесяца = ДобавитьМесяц(ДатаНачалаМесяца, -1);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДекорацияСегодняНажатие(Элемент)
+
+ ДатаНачалаМесяца = НачалоМесяца(ТекущаяДата());
+ ВыбраннаяДата = НачалоДня(ТекущаяДата());
+ БывшаяДата = "";
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СледующийМесяцНажатие(Элемент)
+
+ ДатаНачалаМесяца = ДобавитьМесяц(ДатаНачалаМесяца, 1);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДеньНажатие(Элемент)
+
+ НоваяДата = Дата(Элемент.Заголовок);
+
+ // Скорее всего это просто выбор дня для просмотра
+ Если ПоказыватьСписокСобытий И Не ВыбраннаяДата = НоваяДата Тогда
+
+ // Оформим предыдущее выбранное число обычным шрифтом
+ Если ЗначениеЗаполнено(БывшаяДата) Тогда
+ Элементы[БывшаяДата].Шрифт = ШрифтОбычный;
+ КонецЕсли;
+
+ Элементы[Элемент.Имя].Шрифт = ШрифтЖирный;
+
+ ВыбраннаяДата = НоваяДата;
+ БывшаяДата = Элемент.Имя;
+
+ Элементы.События.ОтборСтрок = Новый ФиксированнаяСтруктура("Дата", ВыбраннаяДата);
+
+ Иначе
+
+ // Выбор даты для переноса в вызывающую форму
+
+ Оповестить("ВыбранаДатаКалендаря", НоваяДата, ВызывающийЭлемент);
+
+ Закрыть();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура Готово(Команда)
+
+ Оповестить("ВыбранаДатаКалендаря", ВыбраннаяДата, ВызывающийЭлемент);
+
+ Закрыть();
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml"
new file mode 100644
index 0000000..4857279
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ВыборСпособаПодключения
+
+
+ ru
+ Выбор способа подключения
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml"
new file mode 100644
index 0000000..97c88ec
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml"
@@ -0,0 +1,249 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl" "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..447b625
--- /dev/null
+++ "b/CommonForms/\320\222\321\213\320\261\320\276\321\200\320\241\320\277\320\276\321\201\320\276\320\261\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl"
@@ -0,0 +1,214 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "НастроитьВручную";
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Настроить подключение вручную';
+ |en = 'Set manually'");
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Адрес подключения, имя пользователя и пароль будут введены вручную.';
+ |en = 'Server addres, user name and password must be set manually'");
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "ДемоРежим";
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Попробовать с демо-данными';
+ |en = 'Try demo-mode'");
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Программа будет заполнена демонстрационными данными.';
+ |en = 'The program will be filled with demonstration data'");
+
+ НаборКонстант.ПериодПервичнойЗагрузкиДанных = 7;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе" Тогда
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовФормы
+
+&НаКлиенте
+Процедура ТаблицаКомандВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекущиеДанные = Элементы.ТаблицаКоманд.ТекущиеДанные;
+ Если ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Режим = ТекущиеДанные.Команда;
+ Если Режим = "НастроитьВручную" Тогда
+ НастроитьВручную();
+
+ ИначеЕсли Режим = "ДемоРежим" Тогда
+ ЗаполнитьДемоДанными();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура НастроитьВручную()
+
+ ОткрытьФорму("ОбщаяФорма.НастройкаПодключения");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗаполнитьДемоДанными()
+
+ НаборКонстант.АдресЦентральнойБазы = "";
+ НаборКонстант.ПользовательЦентральнойБазы = "test";
+ НаборКонстант.ПарольПользователя = "test";
+ НаборКонстант.ПериодПервичнойЗагрузкиДанных = 180;
+
+ ЗаписатьОбъект();
+
+ ОбменКлиент.ВыполнитьПодключениеКСерверу(ЭтаФорма, НаборКонстант, ДатаНачалаСинхронизации);
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура ОбработчикЧтенияШтрихКода(ДанныеШтрихКода, Результат, Сообщение, ДопПараметры) Экспорт
+
+ Если Результат Или Не ЗначениеЗаполнено(Сообщение) Тогда
+
+ #Если МобильноеПриложениеКлиент Тогда
+ СредстваМультимедиа.ЗакрытьСканированиеШтрихКодов();
+ #КонецЕсли
+
+ ОбработатьШтрихКод(ДанныеШтрихКода);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикРучногоВводаШтрихкода(ДанныеШтрихКода, ДопПараметры) Экспорт
+
+ Если ЗначениеЗаполнено(ДанныеШтрихКода) Тогда
+ ОбработатьШтрихКод(ДанныеШтрихКода);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьШтрихКод(ДанныеШтрихКода)
+
+ // Разбираем полученный код на составляющие
+ ПараметрыПодключения = СтрРазделить(ДанныеШтрихКода, ";");
+
+ // Выполняем проверку количества полученных параметров
+ Если Не ПараметрыПодключения.Количество() = 6 Тогда
+
+ ЗаголовокПодключения = Заголовок;
+ ТекстПредупреждения = СтрШаблон(
+ НСтр("ru = 'Ожидаемое количество полей в QR-коде 6, прочитано %1';
+ |en = 'The expected quantity of fields in a QR code 6, is read %1'"),
+ ПараметрыПодключения.Количество());
+
+ ПоказатьПредупреждение(, ТекстПредупреждения, ,ЗаголовокПодключения);
+ Возврат;
+
+ КонецЕсли;
+
+ НаборКонстант.АдресЦентральнойБазы = ПараметрыПодключения[0];
+ НаборКонстант.ПользовательЦентральнойБазы = ПараметрыПодключения[1];
+ НаборКонстант.ПодробнаяИнформацияОСинхронизации = Число(ПараметрыПодключения[3]);
+
+ СрокХранения = Число(ПараметрыПодключения[4]) * 86400;
+
+ Если СрокХранения <= 0 Тогда
+ // храним всегда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = -1;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = -1;
+ ИначеЕсли СрокХранения <= 86400 Тогда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = 86400;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = 86400
+ ИначеЕсли СрокХранения > 86400 И СрокХранения <= 604800 Тогда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = 604800;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = 604800
+ ИначеЕсли СрокХранения > 604800 И СрокХранения <= 2592000 Тогда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = 2592000;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = 2592000
+ ИначеЕсли СрокХранения > 2592000 И СрокХранения <= 15552000 Тогда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = 15552000;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = 15552000
+ ИначеЕсли СрокХранения > 15552000 Тогда
+ НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода = 31536000;
+ НаборКонстант.ХранитьПисьмаВТечениеПериода = 31536000
+ КонецЕсли;
+
+ МаксРазмерФайла = Число(ПараметрыПодключения[5]);
+ Если МаксРазмерФайла = 1 Или МаксРазмерФайла = 0 Тогда
+ // Загружаем только заголовки
+ НаборКонстант.МаксимальныйРазмерФайла = 1;
+ ИначеЕсли МаксРазмерФайла > 1 И МаксРазмерФайла <= 100 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 100;
+ ИначеЕсли МаксРазмерФайла > 100 И МаксРазмерФайла <= 200 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 200;
+ ИначеЕсли МаксРазмерФайла > 200 И МаксРазмерФайла <= 300 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 300;
+ ИначеЕсли МаксРазмерФайла > 300 И МаксРазмерФайла <= 400 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 400;
+ ИначеЕсли МаксРазмерФайла > 400 И МаксРазмерФайла <= 500 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 500;
+ ИначеЕсли МаксРазмерФайла > 500 И МаксРазмерФайла <= 1024 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 1024;
+ ИначеЕсли МаксРазмерФайла > 1024 И МаксРазмерФайла <= 2048 Тогда
+ НаборКонстант.МаксимальныйРазмерФайла = 2048;
+ Иначе
+ // Загружаем полностью
+ НаборКонстант.МаксимальныйРазмерФайла = 0;
+ КонецЕсли;
+
+ ЗаписатьОбъект();
+
+ Если НРег(ПараметрыПодключения[1]) = "test" Тогда
+ ЗаполнитьДемоДанными();
+ Иначе
+ ОткрытьФорму("ОбщаяФорма.НастройкаПодключения");
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаписатьОбъект()
+
+ Набор = РеквизитФормыВЗначение("НаборКонстант");
+ Набор.Записать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Модифицированность = Ложь;
+
+ ОбновитьПовторноИспользуемыеЗначения();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ Закрыть();
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml"
new file mode 100644
index 0000000..d8f0cf2
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217.xml"
@@ -0,0 +1,27 @@
+
+
+
+
+ НастройкаПодключения
+
+
+ ru
+ Настройка подключения
+
+
+ en
+ Connection settings
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml"
new file mode 100644
index 0000000..510b06d
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form.xml"
@@ -0,0 +1,750 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..366a1fd
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\260\320\237\320\276\320\264\320\272\320\273\321\216\321\207\320\265\320\275\320\270\321\217/Ext/Form/Module.bsl"
@@ -0,0 +1,152 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ ОбменВызовСервера.СброситьСостояниеЗагрузкиЧастейСообщений();
+
+ Набор = Константы.СоздатьНабор();
+ Набор.Прочитать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Элементы.ДекорацияВнимание.Видимость =
+ НаборКонстант.МаксимальныйРазмерФайла > 500
+ Или НаборКонстант.МаксимальныйРазмерФайла = 0;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ УстановитьВидимостьКнопокОчистки();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ПовторитьСинхронизацию" Тогда
+
+ Готово(Неопределено);
+
+ ИначеЕсли ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе" Тогда
+
+ Закрыть();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура НаборКонстантАдресЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+ УстановитьВидимостьКнопокОчистки();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПользовательЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+ УстановитьВидимостьКнопокОчистки();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПарольПользователяПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+ УстановитьВидимостьКнопокОчистки();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантСрокУстареванияДанныхПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантМаксимальныйРазмерФайлаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантМаксимальныйРазмерФайлаОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
+
+ Элементы.ДекорацияВнимание.Видимость =
+ ВыбранноеЗначение > 500 Или ВыбранноеЗначение = 0;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДекорацияВниманиеНажатие(Элемент)
+
+ ТекстЗаголовка = НСтр("ru = 'Подключение'; en = 'Connection'");
+ ТекстСообщения = НСтр("ru = 'Выбранная настройка максимального размера файла может негативно
+ |повлиять на скорость и время первоначального подключения.
+ |
+ |Рекомендуемый максимальный размер файла не более 500 кб.';
+ |en = 'The chosen control of the maximum size of the file can negatively
+ |affect the speed and time of initial connection.
+ |
+ |The recommended maximum size of the file no more than 500 kb.'");
+
+ ПоказатьПредупреждение(, ТекстСообщения, , ТекстЗаголовка);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура Готово(Команда)
+
+ ОбменКлиент.ВыполнитьПодключениеКСерверу(ЭтаФорма, НаборКонстант, ДатаНачалаСинхронизации);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура УстановитьВидимостьКнопокОчистки()
+
+ Элементы.НаборКонстантАдресЦентральнойБазы.КнопкаОчистки =
+ ЗначениеЗаполнено(НаборКонстант.АдресЦентральнойБазы);
+
+ Элементы.НаборКонстантПользовательЦентральнойБазы.КнопкаОчистки =
+ ЗначениеЗаполнено(НаборКонстант.ПользовательЦентральнойБазы);
+
+ Элементы.НаборКонстантПарольПользователя.КнопкаОчистки =
+ ЗначениеЗаполнено(НаборКонстант.ПарольПользователя);
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаписатьОбъект()
+
+ Набор = РеквизитФормыВЗначение("НаборКонстант");
+ Набор.Записать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Модифицированность = Ложь;
+
+ ОбновитьПовторноИспользуемыеЗначения();
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202.xml"
new file mode 100644
index 0000000..a552dda
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ НастройкиПланшет
+
+
+ ru
+ Настройки планшет
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form.xml"
new file mode 100644
index 0000000..53f9aed
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form.xml"
@@ -0,0 +1,1125 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form/Module.bsl" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..06da3d8
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\237\320\273\320\260\320\275\321\210\320\265\321\202/Ext/Form/Module.bsl"
@@ -0,0 +1,526 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ ЗаполнитьСписокРазделов();
+
+ Набор = Константы.СоздатьНабор();
+ Набор.Прочитать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Если Не ЭтоУстройствоСБольшимЭкраном() Тогда
+
+ Элементы.НаборКонстантПоказыватьПредпросмотрВСпискеЗадач.Видимость = Ложь;
+ Элементы.ДекорацияПредпросмотрЗадач.Видимость = Ложь;
+
+ Элементы.НаборКонстантПомечатьПисьмаПрочтеннымиПриПросмотреПериод.Видимость = Ложь;
+ Элементы.НаборКонстантПоказыватьПредпросмотрВСпискеПисем.Видимость = Ложь;
+ Элементы.ДекорацияПрочтениеПриПросмотре.Видимость = Ложь;
+ Элементы.ДекорацияПредпросмотрПисем.Видимость = Ложь;
+
+ КонецЕсли;
+
+ УстановитьВидимостьПодчиненныхЭлементов();
+
+ ОбщегоНазначенияСервер.ЗаполнитьСписокКомандВРазделеСервис(КомандыСервис);
+ ОбщегоНазначенияСервер.ЗаполнитьСписокКомандВРазделеПочта(КомандыСинхронизацииПапок);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе"
+ Или ИмяСобытия = "ВыполненоПолноеУдаление" Тогда
+ Закрыть();
+
+ ИначеЕсли ИмяСобытия = "ИзмененРежимРаботыПриложения" Тогда
+ ЗаполнитьСписокРазделов();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийТабличнойЧастиСписокРазделов
+
+&НаКлиенте
+Процедура СписокРазделовВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СписокРазделовПриАктивизацииСтроки(Элемент)
+
+ ВыбраннаяСтрока = Элементы.СписокРазделов.ТекущиеДанные;
+
+ Если ВыбраннаяСтрока = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Элементы.КолонкаСтраницы.ТекущаяСтраница = Элементы[ВыбраннаяСтрока.Раздел];
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура НаборКонстантРежимРаботыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененРежимРаботыПриложения");
+
+ ОбновитьИнтерфейс();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантПоказыватьПредпросмотрВСпискеЗадачПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантХранитьЗаписиКалендаряВТечениеПериодаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененПериодХраненияЗаписейКалендаря", НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода);
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантАдресЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПользовательЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПарольПользователяПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьФоновуюСинхронизациюПриИзменении(Элемент)
+
+ Если НаборКонстант.ИспользоватьФоновуюСинхронизацию
+ И Не НаборКонстант.ОтправлятьДанныеСразу Тогда
+ НаборКонстант.ОтправлятьДанныеСразу = Истина;
+ КонецЕсли;
+
+ ЗаписатьОбъект();
+ УстановитьВидимостьПодчиненныхЭлементов();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьТолькоWiFiПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантМаксимальныйРазмерФайлаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастройкиМаксимальногоРазмераФайла();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантОтправлятьДанныеСразуПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВыгружатьПротоколСобытийНаСерверПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодробнаяИнформацияВПротоколеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+
+&НаКлиенте
+Процедура НаборКонстантТекущаяУчетнаяЗаписьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ВыборУчетнойЗаписиЗавершение", ЭтотОбъект);
+
+ ДопПараметры = Новый Структура();
+
+ ОткрытьФорму("Справочник.УчетныеЗаписи.ФормаВыбора", ДопПараметры, ЭтаФорма,,,,
+ ОбработчикЗавершения, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодписьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ВыборПодписиЗавершение", ЭтотОбъект);
+
+ ДопПараметры = Новый Структура();
+
+ ОткрытьФорму("Справочник.ШаблоныТекстовПисем.ФормаВыбора", ДопПараметры, ЭтаФорма,,,,
+ ОбработчикЗавершения, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодписьПриОтветеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ВыборПодписиПриОтветеЗавершение", ЭтотОбъект);
+
+ ДопПараметры = Новый Структура();
+
+ ОткрытьФорму("Справочник.ШаблоныТекстовПисем.ФормаВыбора", ДопПараметры, ЭтаФорма,,,,
+ ОбработчикЗавершения, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантКоличествоСтрокТекстаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененыНастройкиКоличествоСтрокТекстаПисем", НаборКонстант.КоличествоСтрокТекстаПисем);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодписьПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастроекПодписи();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВключатьВложенияПриПересылкеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПомечатьПрочтеннымиПриОткрытииПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененаНастройкаАвтоПрочтения");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантХранитьПисьмаВТечениеПериодаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененПериодХранения", НаборКонстант.ХранитьПисьмаВТечениеПериода);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантТекущаяУчетнаяЗаписьПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПомечатьПисьмаПрочтеннымиПриПредПросмотреПериодПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПоказыватьПредпросмотрВСпискеПисемПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВключатьВложенияПриОтветеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПоУмолчаниюОтвечатьВсемПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодтверждатьУдалениеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура ИспользоватьЛокальныеУведомленияПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Если НаборКонстант.ИспользоватьЛокальныеУведомления Тогда
+ ЛокальныеУведомленияКлиент.ОбновитьЛокальныеУведомленияНаУстройстве();
+ Иначе
+ ЛокальныеУведомленияКлиент.УдалитьВсеЛокальныеУведомленияНаКлиенте();
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура КомандыСинхронизацияПапокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОткрытьФорму("Справочник.ПапкиПисем.Форма.НастройкаСинхронизацииПапок");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура КомандыСервисВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекДанные = Элементы.КомандыСервис.ТекущиеДанные;
+ Если ТекДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ТекДанные.Команда = "ОчиститьСтарые" Тогда
+
+ ОбработкаКомандыОчиститьОтСтарыхДанных(Элемент);
+
+ ИначеЕсли ТекДанные.Команда = "УдалитьВсе" Тогда
+
+ ОбработкаКомандыУдалитьВсеДанные(Элемент);
+
+ ИначеЕсли ТекДанные.Команда = "ОткрытьПротокол" Тогда
+
+ ОбработкаКомандыОткрытьПротокол(Элемент);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьПарольПриИзменении(Элемент)
+
+ // Пользователь включил режим использования пароля
+ Если НаборКонстант.ИспользоватьПароль Тогда
+
+ // Настраиваем параметры открытия формы
+ ПараметрыОткрытия = Новый Структура();
+ ПараметрыОткрытия.Вставить("Команда", "НастроитьПароль");
+
+ ОбработчикЗавершенияВводаPINКода =
+ Новый ОписаниеОповещения("ОбработчикЗавершенияВводаPinКода", ЭтаФорма);
+
+ // Отображаем форму ввода пароля
+ ОткрытьФорму("ОбщаяФорма.ВводПароля", ПараметрыОткрытия,,,,,
+ ОбработчикЗавершенияВводаPINКода, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ // Пользователь отключил режим использования пароля
+ Иначе
+
+ // Очищаем хэш пароля
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты("ХешПароля", 0);
+
+ // Записываем изменения
+ ЗаписатьОбъект();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура НастройкаСинхронизацииПапок(Команда)
+
+ ОткрытьФорму("Справочник.ПапкиПисем.Форма.НастройкаСинхронизацииПапок");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаКомандыОчиститьОтСтарыхДанных(Команда)
+
+ ОчисткаБазыДанныхВызовСервера.ВыполнитьОчисткуОтСтарыхДанных();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаКомандыУдалитьВсеДанные(Команда)
+
+ ОчисткаБазыДанныхКлиент.НачатьОчисткуБазыДанных(ЭтаФорма);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаКомандыОткрытьПротокол(Команда)
+
+ ОткрытьФорму("РегистрСведений.ПротоколСобытий.Форма.ФормаСписка");
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервере
+Процедура ЗаполнитьСписокРазделов()
+
+ ОбщегоНазначенияВызовСервера.ЗаполнитьСписокРазделовНастроек(СписокРазделов);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ ЭтаФорма.Закрыть();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаписатьОбъект()
+
+ Набор = РеквизитФормыВЗначение("НаборКонстант");
+ Набор.Записать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Модифицированность = Ложь;
+
+ ОбновитьПовторноИспользуемыеЗначения();
+ УстановитьВидимостьПодчиненныхЭлементов();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыборУчетнойЗаписиЗавершение(Результат, ДопПараметры) Экспорт
+
+ Если Не Результат = Неопределено Тогда
+
+ НаборКонстант.ОсновнаяУчетнаяЗапись = Результат;
+
+ ЗаписатьОбъект();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыборПодписиЗавершение(Результат, ДопПараметры) Экспорт
+
+ Если Не Результат = Неопределено Тогда
+
+ НаборКонстант.ПодписьДляНовыхПисем = Результат;
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастроекПодписи();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыборПодписиПриОтветеЗавершение(Результат, ДопПараметры) Экспорт
+
+ Если Не Результат = Неопределено Тогда
+
+ НаборКонстант.ПодписьПриОтветеИПересылке = Результат;
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастроекПодписи();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура УстановитьВидимостьПодчиненныхЭлементов()
+
+ Элементы.НаборКонстантИспользоватьТолькоWiFi.Видимость = НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+ Элементы.ДекорацияИспользоватьТолькоWiFi.Видимость = НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+
+ Элементы.НаборКонстантОтправлятьДанныеСразу.Видимость = Не НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+ Элементы.ДекорацияОтправлятьДанныеСразу.Видимость = Не НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикЗавершенияВводаPinКода(Результат, ДопПараметры) Экспорт
+
+ Если Результат = Истина Тогда
+ НаборКонстант.ИспользоватьПароль = Истина;
+ Иначе
+ НаборКонстант.ИспользоватьПароль = Ложь;
+ КонецЕсли;
+
+ // Записываем изменения
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275.xml"
new file mode 100644
index 0000000..073938b
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ НастройкиТелефон
+
+
+ ru
+ Настройки телефон
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form.xml"
new file mode 100644
index 0000000..59fd0a0
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form.xml"
@@ -0,0 +1,191 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form/Module.bsl" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..1073d5d
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275/Ext/Form/Module.bsl"
@@ -0,0 +1,56 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ ЗаполнитьСписокРазделов();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе"
+ Или ИмяСобытия = "ВыполненоПолноеУдаление" Тогда
+ Закрыть();
+
+ ИначеЕсли ИмяСобытия = "ИзмененРежимРаботыПриложения" Тогда
+ ЗаполнитьСписокРазделов();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийТабличнойЧастиСписокРазделов
+
+&НаСервере
+Процедура ЗаполнитьСписокРазделов()
+
+ ОбщегоНазначенияВызовСервера.ЗаполнитьСписокРазделовНастроек(СписокРазделов);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СписокРазделовВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ВыбраннаяСтрока = Элементы.СписокРазделов.ТекущиеДанные;
+
+ Если ВыбраннаяСтрока = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ ПараметрыФормы = Новый Структура();
+ ПараметрыФормы.Вставить("Раздел", ВыбраннаяСтрока.Раздел);
+ ПараметрыФормы.Вставить("Заголовок", ВыбраннаяСтрока.Описание);
+
+ ОткрытьФорму("ОбщаяФорма.НастройкиТелефонСтраницы", ПараметрыФормы, ЭтаФорма);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213.xml"
new file mode 100644
index 0000000..3fda6ed
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ НастройкиТелефонСтраницы
+
+
+ ru
+ Настройки телефон страницы
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form.xml" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form.xml"
new file mode 100644
index 0000000..9c2b98f
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form.xml"
@@ -0,0 +1,1980 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form/Module.bsl" "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..8cf5c63
--- /dev/null
+++ "b/CommonForms/\320\235\320\260\321\201\321\202\321\200\320\276\320\271\320\272\320\270\320\242\320\265\320\273\320\265\321\204\320\276\320\275\320\241\321\202\321\200\320\260\320\275\320\270\321\206\321\213/Ext/Form/Module.bsl"
@@ -0,0 +1,436 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Параметры.Свойство("Раздел") Тогда
+ Элементы[Параметры.Раздел].Видимость = Истина;
+ Иначе
+ Отказ = Истина;
+ Возврат;
+ КонецЕсли;
+
+ Заголовок = Параметры.Заголовок;
+
+ Набор = Константы.СоздатьНабор();
+ Набор.Прочитать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Если Не ЭтоУстройствоСБольшимЭкраном() Тогда
+
+ Элементы.НаборКонстантПоказыватьПредпросмотрВСпискеЗадач.Видимость = Ложь;
+ Элементы.ДекорацияПредпросмотрЗадач.Видимость = Ложь;
+
+ Элементы.НаборКонстантПомечатьПисьмаПрочтеннымиПриПредПросмотреПериод.Видимость = Ложь;
+ Элементы.ДекорацияПрочтениеПриПросмотре.Видимость = Ложь;
+
+ КонецЕсли;
+
+ ОбщегоНазначенияСервер.ЗаполнитьСписокКомандВРазделеПочта(КомандыСинхронизацииПапок);
+ ОбщегоНазначенияСервер.ЗаполнитьСписокКомандВРазделеСервис(КомандыСервис);
+
+ УстановитьВидимостьЭлементов();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе"
+ Или ИмяСобытия = "ВыполненоПолноеУдаление" Тогда
+
+ Закрыть();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+
+&НаКлиенте
+Процедура НаборКонстантРежимРаботыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененРежимРаботыПриложения");
+
+ ОбновитьИнтерфейс();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПоказыватьПредпросмотрВСпискеЗадачПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантХранитьЗаписиКалендаряВТечениеПериодаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененПериодХраненияЗаписейКалендаря", НаборКонстант.ХранитьЗаписиКалендаряВТечениеПериода);
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура НаборКонстантАдресЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПользовательЦентральнойБазыПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПарольПользователяПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьФоновуюСинхронизациюПриИзменении(Элемент)
+
+ Если НаборКонстант.ИспользоватьФоновуюСинхронизацию
+ И Не НаборКонстант.ОтправлятьДанныеСразу Тогда
+ НаборКонстант.ОтправлятьДанныеСразу = Истина;
+ КонецЕсли;
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьТолькоWiFiПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантМаксимальныйРазмерФайлаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастройкиМаксимальногоРазмераФайла();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантОтправлятьДанныеСразуПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВыгружатьПротоколСобытийНаСерверПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодробнаяИнформацияВПротоколеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+
+
+&НаКлиенте
+Процедура НаборКонстантТекущаяУчетнаяЗаписьНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ВыборУчетнойЗаписиЗавершение", ЭтотОбъект);
+
+ ДопПараметры = Новый Структура();
+
+ ОткрытьФорму("Справочник.УчетныеЗаписи.ФормаВыбора", ДопПараметры, ЭтаФорма,,,,
+ ОбработчикЗавершения, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантКоличествоСтрокТекстаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененыНастройкиКоличествоСтрокТекстаПисем", НаборКонстант.КоличествоСтрокТекстаПисем);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодписьПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ ОбщегоНазначенияВызовСервера.ОтразитьФактИзмененияНастроекПодписи();
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВключатьВложенияПриПересылкеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПомечатьПрочтеннымиПриОткрытииПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененаНастройкаАвтоПрочтения");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантХранитьПисьмаВТечениеПериодаПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Оповестить("ИзмененПериодХранения", НаборКонстант.ХранитьПисьмаВТечениеПериода);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантТекущаяУчетнаяЗаписьПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПомечатьПисьмаПрочтеннымиПриПредПросмотреПериодПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантВключатьВложенияПриОтветеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПоУмолчаниюОтвечатьВсемПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ИспользоватьЛокальныеУведомленияПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+ Если НаборКонстант.ИспользоватьЛокальныеУведомления Тогда
+ ЛокальныеУведомленияКлиент.ОбновитьЛокальныеУведомленияНаУстройстве();
+ Иначе
+ ЛокальныеУведомленияКлиент.УдалитьВсеЛокальныеУведомленияНаКлиенте();
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантИспользоватьПарольПриИзменении(Элемент)
+
+ // Пользователь включил режим использования пароля
+ Если НаборКонстант.ИспользоватьПароль Тогда
+
+ // Настраиваем параметры открытия формы
+ ПараметрыОткрытия = Новый Структура();
+ ПараметрыОткрытия.Вставить("Команда", "НастроитьПароль");
+
+ ОбработчикЗавершенияВводаPINКода =
+ Новый ОписаниеОповещения("ОбработчикЗавершенияВводаPinКода", ЭтаФорма);
+
+ // Отображаем форму ввода пароля
+ ОткрытьФорму("ОбщаяФорма.ВводПароля", ПараметрыОткрытия,,,,,
+ ОбработчикЗавершенияВводаPINКода, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ // Пользователь отключил режим использования пароля
+ Иначе
+
+ // Очищаем хэш пароля
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты("ХешПароля", 0);
+
+ // Записываем изменения
+ ЗаписатьОбъект();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийТабличныхПолей
+
+&НаКлиенте
+Процедура КомандыСинхронизацииПапокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОткрытьФорму("Справочник.ПапкиПисем.Форма.НастройкаСинхронизацииПапок");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура КомандыСервисВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекДанные = Элементы.КомандыСервис.ТекущиеДанные;
+ Если ТекДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ТекДанные.Команда = "ОчиститьСтарые" Тогда
+
+ ОчиститьОтСтарыхДанных(Элемент);
+
+ ИначеЕсли ТекДанные.Команда = "УдалитьВсе" Тогда
+
+ УдалитьВсеДанные(Элемент);
+
+ ИначеЕсли ТекДанные.Команда = "ОткрытьПротокол" Тогда
+
+ ОткрытьПротокол(Элемент);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура НастройкаСинхронизацииПапок(Команда)
+
+ ОткрытьФорму("Справочник.ПапкиПисем.Форма.НастройкаСинхронизацииПапок");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОчиститьОтСтарыхДанных(Команда)
+
+ ОчисткаБазыДанныхВызовСервера.ВыполнитьОчисткуОтСтарыхДанных();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УдалитьВсеДанные(Команда)
+
+ ОчисткаБазыДанныхКлиент.НачатьОчисткуБазыДанных(ЭтаФорма);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОткрытьПротокол(Команда)
+
+ ОткрытьФорму("РегистрСведений.ПротоколСобытий.Форма.ФормаСписка");
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ ЭтаФорма.Закрыть();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаписатьОбъект()
+
+ Набор = РеквизитФормыВЗначение("НаборКонстант");
+ Набор.Записать();
+
+ ЗначениеВРеквизитФормы(Набор, "НаборКонстант");
+
+ Модифицированность = Ложь;
+
+ УстановитьВидимостьЭлементов();
+ ОбновитьПовторноИспользуемыеЗначения();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыборУчетнойЗаписиЗавершение(Результат, ДопПараметры) Экспорт
+
+ Если Не Результат = Неопределено Тогда
+
+ НаборКонстант.ОсновнаяУчетнаяЗапись = Результат;
+
+ ЗаписатьОбъект();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура НаборКонстантПодтверждатьУдалениеПриИзменении(Элемент)
+
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработчикЗавершенияВводаPinКода(Результат, ДопПараметры) Экспорт
+
+ Если Результат = Истина Тогда
+ НаборКонстант.ИспользоватьПароль = Истина;
+ Иначе
+ НаборКонстант.ИспользоватьПароль = Ложь;
+ КонецЕсли;
+
+ // Записываем изменения
+ ЗаписатьОбъект();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура УстановитьВидимостьЭлементов()
+
+ Элементы.НаборКонстантИспользоватьТолькоWiFi.Видимость = НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+ Элементы.ДекорацияИспользоватьТолькоWiFi.Видимость = НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+
+ Элементы.НаборКонстантОтправлятьДанныеСразу.Видимость = Не НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+ Элементы.ДекорацияОтправлятьДанныеСразу.Видимость = Не НаборКонстант.ИспользоватьФоновуюСинхронизацию;
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221.xml" "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221.xml"
new file mode 100644
index 0000000..e39de32
--- /dev/null
+++ "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбновлениеИБ
+
+
+ ru
+ Обновление ИБ
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form.xml" "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form.xml"
new file mode 100644
index 0000000..fd0fade
--- /dev/null
+++ "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form.xml"
@@ -0,0 +1,43 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form/Module.bsl" "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..57b17ca
--- /dev/null
+++ "b/CommonForms/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\221/Ext/Form/Module.bsl"
@@ -0,0 +1,34 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ ТекстСообщения =
+ НСтр("ru = 'Выполняется обновление на версию ""%1"".
+ |Это может занять несколько минут.
+ |
+ |Пожалуйста, подождите...';
+ |en =
+ |'Updating on the version ""%1"" in process.
+ |It can take a few minutes.
+ |
+ |Please, wait...'");
+
+ ТекстЗаголовка = СтрШаблон(
+ ТекстСообщения, Метаданные.Версия);
+
+ Элементы.Обновление.Заголовок = ТекстЗаголовка;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ОбновлениеЗавершено" Тогда
+ Закрыть();
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271.xml" "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271.xml"
new file mode 100644
index 0000000..1184f5e
--- /dev/null
+++ "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОтображениеПротоколаСобытий
+
+
+ ru
+ Отображение протокола событий
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form.xml" "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form.xml"
new file mode 100644
index 0000000..943c54b
--- /dev/null
+++ "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form.xml"
@@ -0,0 +1,43 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form/Module.bsl" "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..f83fea0
--- /dev/null
+++ "b/CommonForms/\320\236\321\202\320\276\320\261\321\200\320\260\320\266\320\265\320\275\320\270\320\265\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\260\320\241\320\276\320\261\321\213\321\202\320\270\320\271/Ext/Form/Module.bsl"
@@ -0,0 +1,13 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ Если Параметры.Свойство("Текст") Тогда
+ Текст = Параметры.Текст;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml" "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml"
new file mode 100644
index 0000000..9920d5b
--- /dev/null
+++ "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ Поддержка
+
+
+ ru
+ Поддержка
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form.xml" "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form.xml"
new file mode 100644
index 0000000..928d58d
--- /dev/null
+++ "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form.xml"
@@ -0,0 +1,217 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form/Module.bsl" "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..d930017
--- /dev/null
+++ "b/CommonForms/\320\237\320\276\320\264\320\264\320\265\321\200\320\266\320\272\320\260/Ext/Form/Module.bsl"
@@ -0,0 +1,105 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "ГруппаФэйсбук";
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Наша группа Facebook'; en = 'Follow us on Facebook'");
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Присоединяйтесь к живому общению вместе с вашими коллегами и командой разработки в социальной сети Facebook.'");
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "ГруппаВКонтакте";
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Наша группа ВКонтакте'; en = 'Follow us on VKontakte'");
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Присоединяйтесь к живому общению вместе с вашими коллегами и командой разработки в социальной сети ВКонтакте.'");
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "НаписатьОтзыв";
+
+ ТипОС = ВРег(Константы.ИмяОперационнойСистемы.Получить());
+ Если ТипОС = "IOS" Тогда
+ СсылкаДляОтзываВМагазине =
+ "itms-apps://itunes.apple.com/ru/app/1c-dokumentooborot/id1119102464?l=ru&ls=1&mt=8";
+
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Оставить отзыв в Apple AppStore'; en = 'Rate in Apple AppStore'");
+
+ ИначеЕсли ТипОС = "ANDROID" Тогда
+ СсылкаДляОтзываВМагазине =
+ "market://details?id=com.e1c.mobiledocman21";
+
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Оставить отзыв в Google Play'; en = 'Rate in Google Play'");
+
+ Иначе
+ СсылкаДляОтзываВМагазине =
+ "https://www.microsoft.com/ru-ru/store/apps/1С-Документооборот-21/9nblggh4wrkz";
+
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Оставить отзыв в WindowsPhone Store'; en = 'Rate in WindowsPhone Store'");
+
+ КонецЕсли;
+
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Оставьте оценку и отзыв в магазине приложений.'");
+
+ СтрокаТаб = ТаблицаКоманд.Добавить();
+ СтрокаТаб.Команда = "НаписатьРазработчикам";
+ СтрокаТаб.ОписаниеКоманды =
+ НСтр("ru = 'Написать разработчикам'; en = 'Send feedback'");
+ СтрокаТаб.Пояснение =
+ НСтр("ru = 'Напишите разработчикам программы письмо с описанием ошибки, проблемы или предложением.'");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриИзмененииПараметровЭкрана()
+
+ ПараметрыЭкрана = ЭкранКлиентСервер.ПараметрыЭкрана();
+ ШиринаЭкрана = ПараметрыЭкрана[0].Ширина;
+ ВысотаЭкрана = ПараметрыЭкрана[0].Высота;
+
+ Если ШиринаЭкрана > ВысотаЭкрана Тогда
+ Элементы.ТаблицаКомандПояснение.Высота = 2;
+ Иначе
+ Элементы.ТаблицаКомандПояснение.Высота = 3;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура ТаблицаКомандВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекущиеДанные = Элементы.ТаблицаКоманд.ТекущиеДанные;
+ Если ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ТекущиеДанные.Команда = "ГруппаФэйсбук" Тогда
+ ЗапуститьПриложение("http://www.facebook.com/groups/1C.DOC8");
+
+ ИначеЕсли ТекущиеДанные.Команда = "ГруппаВКонтакте" Тогда
+ ЗапуститьПриложение("http://vk.com/1c.doc8");
+
+ ИначеЕсли ТекущиеДанные.Команда = "НаписатьОтзыв" Тогда
+ ЗапуститьПриложение(СсылкаДляОтзываВМагазине);
+
+ ИначеЕсли ТекущиеДанные.Команда = "НаписатьРазработчикам" Тогда
+ ОткрытьФорму("ОбщаяФорма.СообщениеРазработчикам");
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273.xml" "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273.xml"
new file mode 100644
index 0000000..d5fe852
--- /dev/null
+++ "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РабочийСтол
+
+
+ ru
+ Рабочий стол
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form.xml" "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form.xml"
new file mode 100644
index 0000000..8045813
--- /dev/null
+++ "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form.xml"
@@ -0,0 +1,1049 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form/Module.bsl" "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..b7ce5b1
--- /dev/null
+++ "b/CommonForms/\320\240\320\260\320\261\320\276\321\207\320\270\320\271\320\241\321\202\320\276\320\273/Ext/Form/Module.bsl"
@@ -0,0 +1,339 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ БольшойЭкран = ЭтоУстройствоСБольшимЭкраном();
+ ЭтоЧистаяБаза = ОбщегоНазначенияВызовСервера.ЭтоЧистаяБаза();
+ ИнициированаОчисткаБазы = ОбщегоНазначенияВызовСервера.ИнициированаОчисткаБазы();
+
+ ЗаполнитьСписокРазделов();
+
+ Если БольшойЭкран Тогда
+ Элементы.РазделыКартинка.Высота = 4;
+ КонецЕсли;
+
+ Элементы.ГруппаРазделы.Видимость = Истина;
+ Элементы.Создать.Видимость = Истина;
+
+ Заголовок = НСтр("ru = '1C:Стройка'");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ ОбработчикОжиданияУстановитьПодписьКДатеОбновления();
+ ПодключитьОбработчикОжидания(
+ "ОбработчикОжиданияУстановитьПодписьКДатеОбновления", 60, Ложь);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
+
+ Если ИмяСобытия = "ОбновитьДатуСинхронизации" Тогда
+ ОбменКлиент.УстановитьПодписьКДатеОбновления(
+ Элементы, ОписаниеПоследнегоОбновления);
+
+ ИначеЕсли ИмяСобытия = "НачатьСинхронизацию" Тогда
+
+ ОтключитьОбработчикОжидания("ОбработчикОжиданияУстановитьПодписьКДатеОбновления");
+
+ Параметр.Вставить("ДатаНачалаСинхронизации", ТекущаяДата());
+ Параметр.Вставить("УникальныйИдентификатор", УникальныйИдентификатор);
+
+ ЗаданиеЗапущено =
+ ОбменВызовСервера.ЗапуститьСинхронизациюССерверомВФоне(
+ Параметр, ФоновоеЗаданиеИдентификатор, ФоновоеЗаданиеАдресХранилища);
+
+ Если ЗаданиеЗапущено Тогда
+ ПодключитьОбработчикОжидания("ВыполнитьСинхронизациюПроверитьИсполнение", 0.2, Истина);
+ КонецЕсли;
+
+ ИначеЕсли ИмяСобытия = "ВыполняетсяСинхронизация" Тогда
+
+ Если Не Элементы.ГруппаКнопкаОбновить.ТекущаяСтраница = Элементы.ВПроцессе Тогда
+ Элементы.ГруппаКнопкаОбновить.ТекущаяСтраница = Элементы.ВПроцессе;
+ КонецЕсли;
+
+ Если Параметр.ОбновитьДатуСинхронизации Тогда
+ Оповестить("ОбновитьДатуСинхронизации");
+ КонецЕсли;
+
+ Если Параметр.ЗаданиеВыполнено
+ Или Не Параметр.СообщениеОбОшибке = Неопределено Тогда
+ ОбменКлиент.ЗавершитьСинхронизацию(ЭтаФорма, СведенияОЗагруженныхДанных);
+ Иначе
+ ПодключитьОбработчикОжидания("ВыполнитьСинхронизациюПроверитьИсполнение", 2, Истина);
+ КонецЕсли;
+
+ ИначеЕсли ИмяСобытия = "СинхронизацияЗавершена" Тогда
+ ЗаполнитьСписокРазделов();
+
+ ПодключитьОбработчикОжидания("ОбработчикОжиданияУстановитьПодписьКДатеОбновления", 60, Ложь);
+
+ ИначеЕсли ИмяСобытия = "ВыполненоПодключениеКЦентральнойБазе" Тогда
+
+ ОбменВызовСервера.ВыполнитьДействияПослеПервогоПодключенияКСерверу();
+
+ ЛокальныеУведомленияКлиент.ОбновитьЛокальныеУведомленияНаУстройстве();
+
+ ОбменКлиент.УстановитьПодписьКДатеОбновления(
+ Элементы, ОписаниеПоследнегоОбновления);
+
+ ИначеЕсли ИмяСобытия = "ПовторитьСинхронизацию" Тогда
+ ОбменКлиент.НачатьСинхронизацию(ЭтаФорма);
+
+ ИначеЕсли ИмяСобытия = "ПоявилисьНеотправленныеДанные" Тогда
+
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "ЕстьНеотправленныеДанные", Истина);
+
+ ЛокальныеУведомленияКлиент.ОбновитьЛокальныеУведомленияНаУстройстве();
+
+ ОбменКлиент.УстановитьПодписьКДатеОбновления(
+ Элементы, ОписаниеПоследнегоОбновления);
+
+ ЗаполнитьСписокРазделов();
+
+ ИначеЕсли ИмяСобытия = "СоздатьУведомления" Тогда
+ ЛокальныеУведомленияКлиент.ОбновитьЛокальныеУведомленияНаУстройстве();
+
+ ИначеЕсли ИмяСобытия = "ОтправитьПисьмоВЦентральнуюБазу" Тогда
+ ОтправитьОдиночноеПисьмо(Параметр);
+
+ ИначеЕсли ИмяСобытия = "ВыполненоПолноеУдаление" Тогда
+ ЗаполнитьСписокРазделов();
+ ОбменКлиент.УстановитьПодписьКДатеОбновления(
+ Элементы, ОписаниеПоследнегоОбновления);
+
+ ИначеЕсли ИмяСобытия = "ВыполненЗапускСистемы" Тогда
+
+ Если ИнициированаОчисткаБазы Тогда
+
+ ОчисткаБазыДанныхКлиент.ПродолжитьОчисткуБазыДанных();
+
+ Иначе
+
+ Если ЭтоЧистаяБаза Тогда
+ ПодключитьОбработчикОжидания("ПоказатьФормуНастройкиПодключенияПриЗапуске", 1, Истина);
+ Иначе
+
+ Если ОпределитьНеобходимостьЗапускаФоновойСинхронизации() Тогда
+ ОбменКлиент.НачатьСинхронизацию(ЭтаФорма);
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЕсли
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриИзмененииПараметровЭкрана()
+
+ ПараметрыЭкрана = ЭкранКлиентСервер.ПараметрыЭкрана();
+ ШиринаЭкрана = ПараметрыЭкрана[0].Ширина;
+ ВысотаЭкрана = ПараметрыЭкрана[0].Высота;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура Создать(Команда)
+
+ ОткрытьФорму("ОбщаяФорма.СозданиеНового");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура Синхронизировать(Команда)
+
+ ОбменКлиент.НачатьСинхронизацию(ЭтаФорма);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовТаблицыРазделы
+
+&НаКлиенте
+Процедура РазделыВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ Если Элементы.Разделы.ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Раздел = Элементы.Разделы.ТекущиеДанные.ИмяРаздела;
+
+ ПараметрыВыполненияКоманды = Новый Структура();
+ ПараметрыВыполненияКоманды.Вставить("Источник", ЭтаФорма);
+ ПараметрыВыполненияКоманды.Вставить("Уникальность",Новый УникальныйИдентификатор);
+ ПараметрыВыполненияКоманды.Вставить("Окно", Неопределено);
+
+ Если НРег(Раздел) = НРег("СписаниеДенежныхСредств") Тогда
+ ИмяПоказателя = "РабочийСтол.ПерейтиВСписанияДенежныхСредств";
+ ПараметрыВыполненияКоманды.Вставить("НавигационнаяСсылка",
+ "e1cib/navigationpoint/desktop/ОбщаяКоманда.ПерейтиВСписанияДенежныхСредств");
+ ОбщегоНазначенияКлиент.ОткрытьРазделСписанияДенежныхСредств(ПараметрыВыполненияКоманды);
+
+ КонецЕсли;
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель(ИмяПоказателя);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура РазделыОбработкаЗапросаОбновления()
+
+ ОбменКлиент.НачатьСинхронизацию(ЭтаФорма);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ДокументыНаРассмотрениеОбработкаЗапросаОбновления()
+
+ ОбменКлиент.НачатьСинхронизацию(ЭтаФорма);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункцииРабочийСтол
+
+&НаСервере
+Процедура ЗаполнитьСписокРазделов()
+
+ Разделы.Очистить();
+
+ СтрокаРаздела = Разделы.Добавить();
+ СтрокаРаздела.Картинка = БиблиотекаКартинок.РазделПочта;
+ СтрокаРаздела.ИмяРаздела = "СписаниеДенежныхСредств";
+ СтрокаРаздела.Описание = ТекстыСообщенийКлиентСерверПовтИсп.ЗаголовокСписаниеДенежныхСредств();
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Процедура ЗаполнитьОписаниеОВажныхСобытиях(Объекты, СтрокаРаздела, Описатель1, Описатель2)
+
+ СтрочкаДанных = Объекты.Найти(СтрокаРаздела.ИмяРаздела);
+ Если Не СтрочкаДанных = Неопределено Тогда
+
+ СтрокаРаздела.ВажныеДанные = "";
+
+ Если НЕ СтрочкаДанных.Показатель1 = 0 Тогда
+ СтрокаРаздела.ВажныеДанные = СтрШаблон(
+ Описатель1 + ": %1", СтрочкаДанных.Показатель1);
+ КонецЕсли;
+
+ Если НЕ СтрокаРаздела.ВажныеДанные = "" И НЕ СтрочкаДанных.Показатель2 = 0 Тогда
+ СтрокаРаздела.ВажныеДанные = СтрокаРаздела.ВажныеДанные + Символы.ПС;
+ КонецЕсли;
+
+ Если НЕ СтрочкаДанных.Показатель2 = 0 Тогда
+ СтрокаРаздела.ВажныеДанные = СтрокаРаздела.ВажныеДанные
+ + СтрШаблон(
+ Описатель2 + ": %1", СтрочкаДанных.Показатель2);
+ КонецЕсли;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункцииСинхронизация
+
+&НаСервере
+Функция ОпределитьНеобходимостьЗапускаФоновойСинхронизации()
+
+ Если Не Константы.ИспользоватьФоновуюСинхронизацию.Получить() Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ #Если МобильноеПриложениеСервер Тогда
+
+ ТипСоединения = ИнформацияОбИнтернетСоединении.ПолучитьТипСоединения();
+
+ Если ТипСоединения = ТипИнтернетСоединения.НетСоединения Тогда
+ Возврат Ложь;
+ ИначеЕсли ТипСоединения = ТипИнтернетСоединения.СотовыеДанные Тогда
+ Если Константы.ИспользоватьТолькоWiFi.Получить() Тогда
+ Возврат Ложь;
+ КонецЕсли;
+ КонецЕсли;
+
+ #КонецЕсли
+
+ Возврат Истина;
+
+КонецФункции
+
+&НаКлиенте
+Процедура ОбработчикОжиданияУстановитьПодписьКДатеОбновления()
+
+ // В режиме согласования, если пользователь ввел комментарий - не обновляем дату синхронизации
+ // т.к это приведет к очистке введенного текста.
+ ОбменКлиент.УстановитьПодписьКДатеОбновления(
+ Элементы, ОписаниеПоследнегоОбновления);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПоказатьФормуНастройкиПодключенияПриЗапуске()
+
+ Если ЭтоЧистаяБаза Тогда
+ ОбменКлиент.ПоказатьФормуНастройкиПодключения();
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыполнитьСинхронизациюНачало()
+
+ ОтключитьОбработчикОжидания("ОбработчикОжиданияУстановитьПодписьКДатеОбновления");
+
+ ПараметрыЗапуска = Новый Структура();
+ ПараметрыЗапуска.Вставить("РежимСинхронизации", "ВыполнитьСинхронизацию");
+ ПараметрыЗапуска.Вставить("ДатаНачалаСинхронизации", ТекущаяДата());
+ ПараметрыЗапуска.Вставить("ТекущийРаздел", "Desktop");
+
+ Оповестить("НачатьСинхронизацию", ПараметрыЗапуска);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОтправитьОдиночноеПисьмо(Письмо)
+
+ ОтключитьОбработчикОжидания("ОбработчикОжиданияУстановитьПодписьКДатеОбновления");
+
+ ПараметрыЗапуска = Новый Структура();
+ ПараметрыЗапуска.Вставить("РежимСинхронизации", "ОтправитьОдиночноеПисьмо");
+ ПараметрыЗапуска.Вставить("ДатаНачалаСинхронизации", ТекущаяДата());
+ ПараметрыЗапуска.Вставить("Данные", Письмо);
+
+ Оповестить("НачатьСинхронизацию", ПараметрыЗапуска);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыполнитьСинхронизациюПроверитьИсполнение()
+
+ Результат =
+ ОбменВызовСервера.ПроверитьСостояниеФоновойСинхронизации(
+ ФоновоеЗаданиеИдентификатор, ФоновоеЗаданиеАдресХранилища,
+ ОписаниеПоследнегоОбновления);
+
+ Оповестить("ВыполняетсяСинхронизация", Результат)
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217.xml" "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217.xml"
new file mode 100644
index 0000000..f9a9f57
--- /dev/null
+++ "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217.xml"
@@ -0,0 +1,27 @@
+
+
+
+
+ Синхронизация
+
+
+ ru
+ Синхронизация
+
+
+ en
+ Synchronization
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form.xml" "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form.xml"
new file mode 100644
index 0000000..9b12d3a
--- /dev/null
+++ "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form.xml"
@@ -0,0 +1,669 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form/Module.bsl" "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..7f79df0
--- /dev/null
+++ "b/CommonForms/\320\241\320\270\320\275\321\205\321\200\320\276\320\275\320\270\320\267\320\260\321\206\320\270\321\217/Ext/Form/Module.bsl"
@@ -0,0 +1,271 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ ОбновитьПовторноИспользуемыеЗначения();
+
+ Элементы.Процент.Видимость = Константы.ПодробнаяИнформацияОСинхронизации.Получить();
+ Элементы.ГруппаНовыеОбъекты.Видимость = Ложь;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
+
+ Если Не ТекущаяСтадияРаботы = "Завершение" Тогда
+
+ СтандартнаяОбработка = Ложь;
+ Отказ = Истина;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ЭкспортныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ВыполнитьСинхронизацию(Параметры) Экспорт
+
+ РежимСинхронизации = Параметры.РежимСинхронизации;
+ ДатаНачалаСинхронизации = Параметры.ДатаНачалаСинхронизации;
+
+ ПодключитьОбработчикОжидания("ВыполнитьСинхронизациюНачало", 0.1, Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ВыполнитьСинхронизациюНачало()
+
+ ПараметрыЗапуска = Новый Структура();
+ ПараметрыЗапуска.Вставить("РежимСинхронизации", РежимСинхронизации);
+ ПараметрыЗапуска.Вставить("ДатаНачалаСинхронизации", ДатаНачалаСинхронизации);
+ ПараметрыЗапуска.Вставить("УникальныйИдентификатор", УникальныйИдентификатор);
+
+ ОбменВызовСервера.ЗапуститьСинхронизациюССерверомВФоне(
+ ПараметрыЗапуска, ФоновоеЗаданиеИдентификатор, ФоновоеЗаданиеАдресХранилища);
+
+ ПодключитьОбработчикОжидания("ВыполнитьСинхронизациюПроверитьИсполнение", 1, Истина);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыполнитьСинхронизациюПроверитьИсполнение()
+
+ Результат = СинхронизацияЗавершена();
+
+ Если Результат.ОбновитьДатуСинхронизации Тогда
+ Оповестить("ОбновитьДатуСинхронизации");
+ КонецЕсли;
+
+ Если Результат.ЗаданиеВыполнено
+ Или Не Результат.СообщениеОбОшибке = Неопределено Тогда
+
+ ЗавершитьСинхронизацию(СведенияОЗагруженныхДанных);
+
+ Иначе
+ ПодключитьОбработчикОжидания("ВыполнитьСинхронизациюПроверитьИсполнение", 1, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Функция СинхронизацияЗавершена()
+
+ Результат = Новый Структура();
+ Результат.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("СообщениеОбОшибке", Неопределено);
+ Результат.Вставить("ОбновитьДатуСинхронизации", Ложь);
+
+ Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ФоновоеЗаданиеИдентификатор);
+
+ Если Задание = Неопределено Тогда
+ Результат.СообщениеОбОшибке =
+ НСтр("ru = 'Не удалось выполнить синхронизацию. См. протокол обмена'");
+
+ ИначеЕсли Задание.Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда
+ Результат.СообщениеОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+
+ ИначеЕсли Задание.Состояние = СостояниеФоновогоЗадания.Завершено Тогда
+ Результат.ЗаданиеВыполнено = Истина;
+
+ КонецЕсли;
+
+ Если Не Задание = Неопределено Тогда
+
+ ВсеСообщения = Задание.ПолучитьСообщенияПользователю(Истина);
+ Если ВсеСообщения = Неопределено Тогда
+ ВсеСообщения = Новый Массив();
+ КонецЕсли;
+
+ Для Каждого СообщениеПользователю Из ВсеСообщения Цикл
+
+ СодержимоеСообщения = ОбщегоНазначенияСервер.ОбъектИзJSON(СообщениеПользователю.Текст);
+ Если СодержимоеСообщения = Неопределено Тогда
+ Продолжить;
+ КонецЕсли;
+
+ // todo: delete
+ // МассивРезультатовРаботы = СтрРазделить(СообщениеПользователю.Текст, ";");
+
+ ТекущаяСтадияРаботы = СодержимоеСообщения.ТекущаяСтадия; // МассивРезультатовРаботы[0];
+ ЕстьОшибки = СодержимоеСообщения.ЕстьОшибки; // Булево(МассивРезультатовРаботы[1]);
+ ВСообщенияхЕстьДанные = СодержимоеСообщения.ЕстьДанные; // Булево(МассивРезультатовРаботы[2]);
+
+ Если СодержимоеСообщения.Данные <> Неопределено Тогда
+ //Если СтрНайти(МассивРезультатовРаботы[3], ",") Тогда
+ // СчетчикиОбъектов = СтрРазделить(МассивРезультатовРаботы[3], ",");
+ СчетчикиОбъектов = СодержимоеСообщения.Данные;
+ Иначе
+ Если ТекущаяСтадияРаботы = "Завершение" И ЗначениеЗаполнено(ФоновоеЗаданиеАдресХранилища) Тогда
+ СведенияОЗагруженныхДанных =
+ ПолучитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища);
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ТекущаяСтадияРаботы = "Подготовка" Тогда
+
+ Процент = 5;
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.ДлительнаяОперация;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "Подключение" Тогда
+
+ Процент = 10;
+ Если ЕстьОшибки Тогда
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.КомандаУдалитьСтроку;
+ КонецЕсли;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "СозданиеСообщений" Тогда
+
+ Процент = 15;
+ Если ЕстьОшибки Тогда
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.КомандаУдалитьСтроку;
+ Иначе
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.ЗадачаУспешноеВыполнение;
+ КонецЕсли;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ОтправкаДанных" Тогда
+
+ Процент = 35;
+ Если ЕстьОшибки Тогда
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.КомандаУдалитьСтроку;
+ Иначе
+ Элементы.Этап1.Картинка = БиблиотекаКартинок.ЗадачаУспешноеВыполнение;
+ Элементы.Этап2.Картинка = БиблиотекаКартинок.ДлительнаяОперация;
+ КонецЕсли;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ЗагрузкаДанных" Тогда
+
+ Процент = 50;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ПросмотрДанных" Тогда
+ Процент = 65;
+
+ Если ЕстьОшибки Тогда
+ Элементы.Этап2.Картинка = БиблиотекаКартинок.КомандаУдалитьСтроку;
+ Иначе
+ Элементы.Этап2.Картинка = БиблиотекаКартинок.ЗадачаУспешноеВыполнение;
+ Элементы.Этап3.Картинка = БиблиотекаКартинок.ДлительнаяОперация;
+ КонецЕсли;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ЗаписьДанных" Тогда
+
+ Процент = 80;
+ ОтобразитьСведенияОНовыхОбъектах(СчетчикиОбъектов);
+
+ ИначеЕсли ТекущаяСтадияРаботы = "Завершение" Тогда
+ Процент = 95;
+
+ Если Не ЕстьОшибки Тогда
+
+ Элементы.Этап2.Картинка = БиблиотекаКартинок.ЗадачаУспешноеВыполнение;
+ Элементы.Этап3.Картинка = БиблиотекаКартинок.ЗадачаУспешноеВыполнение;
+
+ КонецЕсли;
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ОбновитьДатуСинхронизации" Тогда
+ Результат.ОбновитьДатуСинхронизации = Истина;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+&НаСервере
+Процедура ОтобразитьСведенияОНовыхОбъектах(Счетчики)
+
+ ГруппаСчетчиковВидна = Ложь;
+
+ ОтобразитьИнформациюПоРазделу(Счетчики.НовыеОбъектыСтроительства,
+ Элементы.ПояснениеОбъекты, Элементы.КоличествоОбъекты, ГруппаСчетчиковВидна);
+
+ ОтобразитьИнформациюПоРазделу(Счетчики.НовыеСписанияДенежныхСредств,
+ Элементы.ПояснениеСписаниеДенежныхСредств, Элементы.КоличествоСписаниеДенежныхСредств, ГруппаСчетчиковВидна);
+
+ Элементы.ГруппаНовыеОбъекты.Видимость = ГруппаСчетчиковВидна;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ОтобразитьИнформациюПоРазделу(Количество, НадписьЗаголовок, НадписьКоличество, ГруппаСчетчиковВидна)
+
+ Если Число(Количество) > 0 Тогда
+
+ ГруппаСчетчиковВидна = Истина;
+
+ НадписьКоличество.Заголовок =
+ СтрШаблон(
+ НСтр("ru = '+%1'; en = '+%1'"), Формат(Количество, "ЧГ="));
+
+ Иначе
+
+ НадписьЗаголовок.Видимость = Ложь;
+ НадписьКоличество.Видимость = Ложь;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗавершитьСинхронизацию(СведенияОЗагруженныхДанных = Неопределено)
+
+ ОбщегоНазначенияВызовСервера.УстановитьПараметрыСеанса();
+
+ Оповестить("СоздатьУведомления");
+ Оповестить("СинхронизацияЗавершена", СведенияОЗагруженныхДанных);
+
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.1, Истина);
+
+ ОбменКлиент.НайтиИПоказатьОшибкиПриСинхронизации();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ ТекущаяСтадияРаботы = "Завершение";
+
+ Закрыть(ЕстьОшибки);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276.xml" "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276.xml"
new file mode 100644
index 0000000..6544842
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276.xml"
@@ -0,0 +1,27 @@
+
+
+
+
+ СозданиеНового
+
+
+ ru
+ Создание нового
+
+
+ en
+ Create new
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml" "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml"
new file mode 100644
index 0000000..25c4c3b
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml"
@@ -0,0 +1,171 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl" "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..ef63054
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\267\320\264\320\260\320\275\320\270\320\265\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl"
@@ -0,0 +1,87 @@
+
+#Область ОбработчикиКомандФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ СтрокаКоманды = ТаблицаКоманд.Добавить();
+ СтрокаКоманды.Картинка = БиблиотекаКартинок.Документ;
+ СтрокаКоманды.ОписаниеКоманды = НСтр("ru = 'Заявка на обслуживание'");
+ СтрокаКоманды.Команда = "НовыйЗаявкаНаОбслуживание";
+
+ СтрокаКоманды = ТаблицаКоманд.Добавить();
+ СтрокаКоманды.Картинка = БиблиотекаКартинок.Документ;
+ СтрокаКоманды.ОписаниеКоманды = НСтр("ru = 'Заключение договора аренды'");
+ СтрокаКоманды.Команда = "НовыйЗаключениеДоговораАренды";
+
+ СтрокаКоманды = ТаблицаКоманд.Добавить();
+ СтрокаКоманды.Картинка = БиблиотекаКартинок.Документ;
+ СтрокаКоманды.ОписаниеКоманды = НСтр("ru = 'Дополнительное соглашение'");
+ СтрокаКоманды.Команда = "НовыйДополнительноеСоглашение";
+
+ СтрокаКоманды = ТаблицаКоманд.Добавить();
+ СтрокаКоманды.Картинка = БиблиотекаКартинок.Документ;
+ СтрокаКоманды.ОписаниеКоманды = НСтр("ru = 'Расторжение договора аренды'");
+ СтрокаКоманды.Команда = "НовыйРасторжениеДоговораАренды";
+
+ СтрокаКоманды = ТаблицаКоманд.Добавить();
+ СтрокаКоманды.Картинка = БиблиотекаКартинок.Документ;
+ СтрокаКоманды.ОписаниеКоманды = НСтр("ru = 'Счет на аренду'");
+ СтрокаКоманды.Команда = "НовыйСчетНаАренду";
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура ТаблицаКомандВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекущиеДанные = Элементы.ТаблицаКоманд.ТекущиеДанные;
+ Если ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ТекущиеДанные.Команда = "НовыйЗаявкаНаОбслуживание" Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Форма.СозданиеНового.НовыйЗаявкаНаОбслуживание");
+ ОткрытьФорму("Документ.ЗаявкаНаОбслуживание.Форма.ФормаДокумента");
+
+ ИначеЕсли ТекущиеДанные.Команда = "НовыйЗаключениеДоговораАренды" Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Форма.СозданиеНового.НовыйЗаключениеДоговораАренды");
+ ОткрытьФорму("Документ.ЗаключениеДоговораАренды.Форма.ФормаДокумента");
+
+ ИначеЕсли ТекущиеДанные.Команда = "НовыйДополнительноеСоглашение" Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Форма.СозданиеНового.НовыйДополнительноеСоглашение");
+ ОткрытьФорму("Документ.ДополнительноеСоглашение.Форма.ФормаДокумента");
+
+ ИначеЕсли ТекущиеДанные.Команда = "НовыйРасторжениеДоговораАренды" Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Форма.СозданиеНового.НовыйРасторжениеДоговораАренды");
+ ОткрытьФорму("Документ.РасторжениеДоговораАренды.Форма.ФормаДокумента");
+
+ ИначеЕсли ТекущиеДанные.Команда = "НовыйСчетНаАренду" Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Форма.СозданиеНового.НовыйСчетНаАренду");
+ ОткрытьФорму("Документ.СчетНаАренду.Форма.ФормаДокумента");
+
+ КонецЕсли;
+
+ ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.2, Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ЗакрытьФорму()
+
+ ЭтаФорма.Закрыть();
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265.xml" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265.xml"
new file mode 100644
index 0000000..77f63da
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ СообщениеОПроблеме
+
+
+ ru
+ Сообщение о проблеме
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form.xml" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form.xml"
new file mode 100644
index 0000000..3ad9b28
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form.xml"
@@ -0,0 +1,71 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form/Module.bsl" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..27e0f80
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\236\320\237\321\200\320\276\320\261\320\273\320\265\320\274\320\265/Ext/Form/Module.bsl"
@@ -0,0 +1,51 @@
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура Отправить(Команда)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ЗначениеЗаполнено(ОписаниеПроблемы) Тогда
+ Возврат;
+ КонецЕсли;
+
+ Попытка
+
+ ОбменВызовСервера.ОтправитьИПолучитьДанные(ТекущаяДата(), "ОтправитьОтчетОПроблеме", Ложь, ОписаниеПроблемы);
+
+ ТекстЗаголовка = НСтр("ru = 'Сообщение успешно отправлено'; en = 'Message sent'");
+ ТекстПредупреждения = НСтр("ru = 'Ответственные лица оповещены о проблеме.'; en = 'Responsible persons are notified on a problem.'");
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, , ТекстЗаголовка);
+
+ Закрыть();
+
+ Исключение
+
+ Инфо = ИнформацияОбОшибке();
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ПодробноеПредставлениеОшибки(Инфо));
+
+ ТекстЗаголовка = НСтр("ru = 'Ошибка при отправке сообщения'; en = 'Message not sent'");
+ ТекстПредупреждения =
+ НСтр("ru = 'Не удалось отправить сообщение.
+ |Воспользуйтесь другими способами связи.
+ |Текст сообщения можно скопировать.
+ |Подробности ошибки см. в протоколе'; en = 'Message not sent.
+ |Try another way of communication
+ |Message text may be copied.
+ |See events protocol for details.'");
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, , ТекстЗаголовка);
+
+ КонецПопытки;
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274.xml" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274.xml"
new file mode 100644
index 0000000..1980a4d
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274.xml"
@@ -0,0 +1,27 @@
+
+
+
+
+ СообщениеРазработчикам
+
+
+ ru
+ Сообщение разработчикам
+
+
+ en
+ Message to developers
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form.xml" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form.xml"
new file mode 100644
index 0000000..4d28d41
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form.xml"
@@ -0,0 +1,313 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form/Module.bsl" "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..4155258
--- /dev/null
+++ "b/CommonForms/\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\265\320\240\320\260\320\267\321\200\320\260\320\261\320\276\321\202\321\207\320\270\320\272\320\260\320\274/Ext/Form/Module.bsl"
@@ -0,0 +1,436 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ НайтиСоздатьУчетнуюЗаписьПолучателя();
+ НайтиУчетнуюЗаписьОтправителя();
+ ВыполнитьПервоначальноеЗаполнениеПисьма();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПриОткрытии(Отказ)
+
+ Если Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
+
+ ТекстПредупреждения = НСтр("ru = 'Нет ни одной учетной записи почты'; en = 'There is no e-mail account'");
+ ТекстЗаголовка = НСтр("ru = 'Сообщение разработчикам'; en = 'Message to developers'");
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, ,ТекстЗаголовка);
+
+ Отказ = Истина;
+
+ КонецЕсли;
+
+ УстановитьЗаголовок();
+
+ ПодключитьОбработчикОжидания("ПерейтиКТексту", 0.1, Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура ТекстСообщенияОчистка(Элемент, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеОчисткаТекста", ЭтаФорма, );
+
+ ЗаголовокВопроса = НСтр("ru = 'Сообщение разработчикам'; en = 'Message to developers'");;
+ ТекстВопроса = НСтр("ru = 'Очистить текст?'; en = 'Clear the text'");
+ ВариантыВыбора = РежимДиалогаВопрос.ДаНет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора, ,
+ , ЗаголовокВопроса, );
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура ДобавитьТекстПротокола(Команда)
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеДобавитьТекстПротокола", ЭтаФорма, );
+
+ ЗаголовокВопроса = НСтр("ru = 'Добавление протокола'; en = 'Insert the protocol'");
+ ТекстВопроса = НСтр("ru = 'Что необходимо добавить?'; en = 'that it is necessary to add'");
+
+ ВариантыВыбора = Новый СписокЗначений();
+ ВариантыВыбора.Добавить("ВсеЗа7Дней", НСтр("ru = 'Последние 7 дней'; en = 'Last 7 days'"));
+ ВариантыВыбора.Добавить("ВсеОшибки" , НСтр("ru = 'Все ошибки'; en = 'All errors'"));
+ ВариантыВыбора.Добавить("ВсеСобытия", НСтр("ru = 'Все события'; en = 'All events'"));
+ ВариантыВыбора.Добавить(КодВозвратаДиалога.Отмена);
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора, ,
+ , ЗаголовокВопроса, );
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура СменитьУчетнуюЗаписьОтправки(Команда)
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("СменитьУчетнуюЗаписьОтправкиЗавершение", ЭтотОбъект);
+
+ ОткрытьФорму("Справочник.УчетныеЗаписи.ФормаВыбора",, ЭтаФорма,,,,
+ ОбработчикЗавершения, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура Отправить(Команда)
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеОтправить", ЭтаФорма, );
+
+ ЗаголовокВопроса = НСтр("ru = 'Сообщение разработчикам'; en = 'Message to developers'");;
+ ТекстВопроса = НСтр("ru = 'Отправить?'; en = 'Send?'");
+
+ ВариантыВыбора = РежимДиалогаВопрос.ОКОтмена;
+ ВариантПоУмолчанию = КодВозвратаДиалога.ОК;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора, ,
+ ВариантПоУмолчанию, ЗаголовокВопроса, );
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаСервере
+Процедура НайтиСоздатьУчетнуюЗаписьПолучателя()
+
+ // Получение учетной запись получателя
+ Адрес = "v8@1c.ru";
+ Нашли = Ложь;
+
+ Выборка = Справочники.АдресатыПочтовыхСообщений.Выбрать();
+ Пока Выборка.Следующий() Цикл
+ Если НРег(Выборка.Адрес) = Адрес Тогда
+ Кому = Выборка.Ссылка;
+ Нашли = Истина;
+ КонецЕсли;
+ КонецЦикла;
+
+ Если Не Нашли Тогда
+
+ Адресат = Справочники.АдресатыПочтовыхСообщений.СоздатьЭлемент();
+
+ Адресат.Адрес = Адрес;
+ Адресат.Наименование =
+ СтрШаблон(
+ НСтр("ru = '%1'; en = '%1'"),
+ Адрес);
+
+ Адресат.Записать();
+
+ Кому = Адресат.Ссылка;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура НайтиУчетнуюЗаписьОтправителя()
+
+ КоличествоУчетныхЗаписей = 0;
+ УчетнаяЗапись = Константы.ОсновнаяУчетнаяЗапись.Получить();
+
+ СтруктураОтбора = Новый Структура("МожетИспользоватьсяДляОтправки", Истина);
+ Выборка = Справочники.УчетныеЗаписи.Выбрать(,,СтруктураОтбора);
+ Пока Выборка.Следующий() Цикл
+
+ Если Выборка.ПометкаУдаления Тогда
+ Продолжить;
+ КонецЕсли;
+
+ КоличествоУчетныхЗаписей = КоличествоУчетныхЗаписей + 1;
+
+ Если КоличествоУчетныхЗаписей = 1 И Не ЗначениеЗаполнено(УчетнаяЗапись) Тогда
+ УчетнаяЗапись = Выборка.Ссылка;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Если КоличествоУчетныхЗаписей = 0 Тогда
+ Элементы.ФормаОтправить.Доступность = Ложь;
+ Элементы.СменитьУчетнуюЗаписьОтправки.Видимость = Ложь;
+ КонецЕсли;
+
+ Если КоличествоУчетныхЗаписей = 1 Тогда
+ Элементы.СменитьУчетнуюЗаписьОтправки.Видимость = Ложь;
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ВыполнитьПервоначальноеЗаполнениеПисьма()
+
+ СисИнфо = Новый СистемнаяИнформация;
+
+ ТекстСообщения = ТекстСообщения
+ + Символы.ПС + Символы.ПС;
+
+ ТекстСообщения = ТекстСообщения + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Версия ОС: %1
+ |Версия платформы: %2
+ |Версия конфигурации: 1С:Аренда и управление недвижимостью %3'"),
+ СисИнфо.ВерсияОС, СисИнфо.ВерсияПриложения,
+ Константы.ВерсияАренды.Получить());
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура УстановитьЗаголовок()
+
+ Заголовок = СтрШаблон(
+ НСтр("ru = 'Сообщение от %1'; en = 'Message at %1'"),
+ Строка(УчетнаяЗапись));
+
+КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ЗавуалироватьПротокол(ТекстПротокола)
+
+ Результат = "";
+ НеЗаменяемыеСимволы = "0123456789 !""№;%:?*()_+-=/-,.\|~`"+Символы.ВК
+ + Символы.ВТаб + Символы.НПП + Символы.ПС + Символы.ПФ + Символы.Таб;
+
+ ВсегоСтрок = СтрЧислоСтрок(ТекстПротокола);
+ Для Индекс = 1 По ВсегоСтрок Цикл
+
+ СтрокаПротокола = СтрПолучитьСтроку(ТекстПротокола, Индекс);
+
+ Если Не (СтрНачинаетсяС(СтрокаПротокола, "Изменено")
+ Или СтрНачинаетсяС(СтрокаПротокола, "Загружено")
+ Или СтрНачинаетсяС(СтрокаПротокола, "Входящее")) Тогда
+ Результат = Результат + Символы.ПС + СтрокаПротокола;
+ Продолжить;
+ КонецЕсли;
+
+ ПозицияКавычки = СтрНайти(СтрокаПротокола, """");
+ Если ПозицияКавычки = 0 Тогда
+ Продолжить;
+ КонецЕсли;
+
+ ПозицияКавычки = ПозицияКавычки + 1;
+ ПоследнийСимвол = СтрДлина(СтрокаПротокола) - 1;
+
+ Для ИндексВСтроке = ПозицияКавычки По ПоследнийСимвол Цикл
+
+ Символ = Сред(СтрокаПротокола, ИндексВСтроке, 1);
+ Слово = Сред(СтрокаПротокола, ИндексВСтроке, 4);
+ Если Слово = " от " Тогда
+ ИндексВСтроке = ИндексВСтроке + 3;
+ Продолжить;
+ КонецЕсли;
+
+ Если СтрНайти(НеЗаменяемыеСимволы, Символ) = 0 Тогда
+ Символ = "#";
+ КонецЕсли;
+
+ СтрокаПротокола = Лев(СтрокаПротокола, ИндексВСтроке-1)
+ + Символ + Сред(СтрокаПротокола, ИндексВСтроке+1);
+
+ КонецЦикла;
+
+ Результат = Результат + Символы.ПС + СтрокаПротокола;
+
+ КонецЦикла;
+
+ Возврат Результат;
+
+КонецФункции
+
+&НаКлиенте
+Процедура ПерейтиКТексту()
+
+ ТекущийЭлемент = Элементы.Тема;
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ОтправитьНаСервере(ПараметрыЗаписи)
+
+ ОбъектПисьмо = Документы.ИсходящееПисьмо.СоздатьДокумент();
+ ОбъектПисьмо.Дата = ТекущаяДата();
+
+ ОбъектПисьмо.Тема = ПараметрыЗаписи.Тема;
+ ОбъектПисьмо.ТипОбъекта = Перечисления.ТипыОбъектов.ИсходящиеПисьма;
+ ОбъектПисьмо.Важность = Перечисления.ВажностьПисем.Обычная;
+ ОбъектПисьмо.ИндексВажности = 1;
+ ОбъектПисьмо.ПодготовленоКОтправке = ТекущаяДата();
+ ОбъектПисьмо.Папка = ПараметрыЗаписи.ОтКого.ПапкаИсходящие;
+ ОбъектПисьмо.УчетнаяЗапись = ПараметрыЗаписи.ОтКого;
+ ОбъектПисьмо.ПолучателиСтрокой = ПараметрыЗаписи.Кому;
+ ОбъектПисьмо.Прочитан = Истина;
+ ОбъектПисьмо.ЕстьВложения = Ложь;
+ ОбъектПисьмо.ТекстХранилище = Новый ХранилищеЗначения(ПараметрыЗаписи.Текст, Новый СжатиеДанных(9));
+
+ ОбъектПисьмо.ТекстКратко = ПараметрыЗаписи.Текст;
+
+ ОбъектПисьмо.ТекстКратко = ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ОбъектПисьмо.ТекстКратко);
+
+ Получатели = Новый Массив();
+ Получатели.Добавить(ПараметрыЗаписи.Кому);
+
+ ОбъектПисьмо.ДополнительныеСвойства.Вставить("Получатели", Получатели);
+
+ ОбъектПисьмо.Записать();
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ВыполнитьОтправку()
+
+ ПараметрыЗаписи = Новый Структура();
+ ПараметрыЗаписи.Вставить("ОтКого", УчетнаяЗапись);
+ ПараметрыЗаписи.Вставить("Кому" , Кому);
+ ПараметрыЗаписи.Вставить("Тема" , Тема);
+ ПараметрыЗаписи.Вставить("Текст" , ТекстСообщения);
+
+ ОтправитьНаСервере(ПараметрыЗаписи);
+
+ ЗаголовокПредупреждения = НСтр("ru = 'Сообщение разработчикам'; en = 'Message to developers'");;
+ ТекстПредупреждения = НСтр("ru = 'Сообщение отправлено'; en = 'Message sent'");
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, , ЗаголовокПредупреждения);
+
+ Оповестить("ПоявилисьНеотправленныеДанные");
+
+ Закрыть();
+
+КонецПроцедуры
+
+
+&НаКлиенте
+Процедура СменитьУчетнуюЗаписьОтправкиЗавершение(Результат, ДополнительныеПараметры) Экспорт
+
+ Если Не Результат = Неопределено Тогда
+
+ УчетнаяЗапись= Результат;
+
+ УстановитьЗаголовок();
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьРешениеДобавитьТекстПротокола(Результат, ДопПараметры) Экспорт
+
+ Если Результат = КодВозвратаДиалога.Отмена
+ Или Результат = КодВозвратаДиалога.Таймаут Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Результат = "ВсеЗа7Дней" Тогда
+
+ Условие = НСтр("ru = 'Последние 7 дней'; en = 'Last 7 days'");
+ Протокол = РаботаСПротоколомСобытийВызовСервера.ПолучитьТекстПротокола();
+
+ ИначеЕсли Результат = "ВсеОшибки" Тогда
+
+ Условие = НСтр("ru = 'Все ошибки'; en = 'All errors'");
+ Граница = 365*24*60*60;
+ Протокол = РаботаСПротоколомСобытийВызовСервера.ПолучитьТекстПротокола(Граница, Истина);
+
+ Иначе
+
+ Условие = НСтр("ru = 'Все события'; en = 'All events'");
+ Граница = 365*24*60*60;
+ Протокол = РаботаСПротоколомСобытийВызовСервера.ПолучитьТекстПротокола(Граница);
+
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(Протокол) Тогда
+ Протокол = НСтр("ru = 'Нет записей'; en = 'Events not found'");
+ КонецЕсли;
+
+ Протокол = ЗавуалироватьПротокол(Протокол);
+
+ ТекстСообщения = ТекстСообщения
+ + Символы.ПС + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Протокол событий: %1'; en = 'Event protocol: %1'"), Условие) + Символы.ПС
+ + "_______________________________"+Символы.ПС
+ + Протокол + Символы.ПС
+ + НСтр("ru = 'Конец протокола'; en = 'End of protocol'");
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьРешениеОчисткаТекста(Результат, ДопПараметры) Экспорт
+
+ Если Результат = КодВозвратаДиалога.Нет Тогда
+ Возврат;
+ КонецЕсли;
+
+ Элементы.ТекстСообщения.ТекстРедактирования = "";
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьРешениеНеЗаполненаТема(Результат, ДопПараметры) Экспорт
+
+ Если Результат = КодВозвратаДиалога.Нет
+ Или Результат = КодВозвратаДиалога.Таймаут Тогда
+ ПодключитьОбработчикОжидания("ПерейтиКТексту", 0.1, Истина);
+ Иначе
+ ВыполнитьОтправку();
+ КонецЕсли;
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОбработатьРешениеОтправить(Результат, ДопПараметры) Экспорт
+
+ Если Результат = КодВозвратаДиалога.Отмена
+ Или Результат = КодВозвратаДиалога.Таймаут Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(Тема) Тогда
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеНеЗаполненаТема", ЭтаФорма, );
+
+ ЗаголовокВопроса = НСтр("ru = 'Сообщение разработчикам'; en = 'Message to developers'");;
+ ТекстВопроса = НСтр("ru = 'Не указана тема сообщения. Продолжить отправку?';
+ |en = 'The subject isn't set. Continue?'");
+
+ ВариантыВыбора = Новый СписокЗначений;
+ ВариантыВыбора.Добавить(КодВозвратаДиалога.Да , НСтр("ru = 'Отправить'; en = 'Send'"));
+ ВариантыВыбора.Добавить(КодВозвратаДиалога.Нет, НСтр("ru = 'Не отправлять'; en = 'Cancel'"));
+
+ ВариантПоУмолчанию = КодВозвратаДиалога.Нет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора, ,
+ ВариантПоУмолчанию, ЗаголовокВопроса, );
+
+ Возврат;
+
+ КонецЕсли;
+
+ ВыполнитьОтправку();
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271.xml" "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271.xml"
new file mode 100644
index 0000000..11e7beb
--- /dev/null
+++ "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ФормаВыборИсполнителей
+
+
+ ru
+ Форма выбор исполнителей
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form.xml" "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form.xml"
new file mode 100644
index 0000000..e9fb4da
--- /dev/null
+++ "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form.xml"
@@ -0,0 +1,353 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form/Module.bsl" "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..ec75d4c
--- /dev/null
+++ "b/CommonForms/\320\244\320\276\321\200\320\274\320\260\320\222\321\213\320\261\320\276\321\200\320\230\321\201\320\277\320\276\320\273\320\275\320\270\321\202\320\265\320\273\320\265\320\271/Ext/Form/Module.bsl"
@@ -0,0 +1,140 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ ТипОС = Константы.ИмяОперационнойСистемы.Получить();
+
+ ЗаполнитьСписокНедавних();
+
+ УстановитьЗаголовок = Параметры.Свойство("Заголовок");
+
+ Если Параметры.Свойство("Исполнители") Тогда
+ Для Каждого Исполнитель Из Параметры.Исполнители Цикл
+ Для Каждого Строка Из НедавниеИсполнители Цикл
+ Строка.Выбран = Строка.Исполнитель = Исполнитель;
+ КонецЦикла;
+ КонецЦикла;
+ КонецЕсли;
+
+ Элементы.ИсполнителиТаблица.Видимость = Не НедавниеИсполнители.Количество() = 0;
+ Если УстановитьЗаголовок Тогда
+ Заголовок = Параметры.Заголовок;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовШапкиФормы
+
+&НаКлиенте
+Процедура ОдинИсполнительАвтоПодбор(Элемент, Текст, ДанныеВыбора, Параметры, Ожидание, СтандартнаяОбработка)
+
+ // РаботаСЗадачамиВызовСервера.НовыйИсполнительАвтоПодбор(Текст, ДанныеВыбора, СтандартнаяОбработка);
+
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ОдинИсполнительОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ // РаботаСЗадачамиКлиент.НовыйИсполнительСтрокойОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка, ЭтаФорма);
+
+ Если ЗначениеЗаполнено(НовыйИсполнитель) Тогда
+ ЗакрытьИВернутьСписокВыбранных();
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиСобытийЭлементовТаблицыФормыИсполнителиТаблица
+
+&НаКлиенте
+Процедура ИсполнителиТаблицаВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
+
+ СтандартнаяОбработка = Ложь;
+
+ ТекущиеДанные = Элементы.ИсполнителиТаблица.ТекущиеДанные;
+
+ ТекущиеДанные.Выбран = Не ТекущиеДанные.Выбран;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработчикиКомандФормы
+
+&НаКлиенте
+Процедура Готово(Команда)
+
+ ЗакрытьИВернутьСписокВыбранных();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+&НаКлиенте
+Процедура ЗакрытьИВернутьСписокВыбранных()
+
+ СписокКВозврату = Новый СписокЗначений;
+ Для Каждого СтрокаИсполнитель Из НедавниеИсполнители Цикл
+ Если СтрокаИсполнитель.Выбран Тогда
+ СписокКВозврату.Добавить(СтрокаИсполнитель.Исполнитель);
+ КонецЕсли
+ КонецЦикла;
+
+ Если ЗначениеЗаполнено(НовыйИсполнитель) Тогда
+ СписокКВозврату.Добавить(НовыйИсполнитель);
+ КонецЕсли;
+
+ Если СписокКВозврату.Количество() > 0 Тогда
+ Оповестить("ВыбраныИсполнители", СписокКВозврату);
+ Иначе
+ Оповестить("ВыбраныИсполнители", Неопределено);
+ КонецЕсли;
+
+ Закрыть();
+
+КонецПроцедуры
+
+&НаСервере
+Процедура ЗаполнитьСписокНедавних()
+
+ НедавниеИсполнители.Очистить();
+
+ Счетчик = 0;
+ Выборка = РегистрыСведений.ДатыИспользованияПользователейИРолейВЗадачах.Выбрать(, "ДатаИспользования Убыв");
+
+ Пока Выборка.Следующий() Цикл
+
+ Если Не ЭтоУстройствоСБольшимЭкраном() И Счетчик = 10
+ Или ЭтоУстройствоСБольшимЭкраном() И Счетчик = 30 Тогда
+ Прервать;
+ КонецЕсли;
+
+ НоваяСтрока = НедавниеИсполнители.Добавить();
+ НоваяСтрока.Исполнитель = Выборка.Объект;
+
+ Счетчик = Счетчик + 1;
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+
+
diff --git "a/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276.xml" "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276.xml"
new file mode 100644
index 0000000..d5946e6
--- /dev/null
+++ "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ЧтоНового
+
+
+ ru
+ Что нового
+
+
+
+ Managed
+ false
+
+ MobilePlatformApplication
+
+ false
+
+
+
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml" "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml"
new file mode 100644
index 0000000..96802e6
--- /dev/null
+++ "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form.xml"
@@ -0,0 +1,167 @@
+
+
\ No newline at end of file
diff --git "a/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl" "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl"
new file mode 100644
index 0000000..3cf423a
--- /dev/null
+++ "b/CommonForms/\320\247\321\202\320\276\320\235\320\276\320\262\320\276\320\263\320\276/Ext/Form/Module.bsl"
@@ -0,0 +1,30 @@
+
+#Область ОбработчикиСобытийФормы
+
+&НаСервере
+Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
+
+ // Пропускаем инициализацию, чтобы гарантировать получение формы при передаче
+ // параметра "АвтоТест".
+ Если Параметры.Свойство("АвтоТест") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Страницы = Неопределено;
+ Отказ = Не Параметры.Свойство("Страницы", Страницы);
+
+ Отказ = Истина;
+
+ Если Отказ Тогда
+ Возврат;
+ КонецЕсли;
+
+ Для Каждого Страница Из Страницы Цикл
+
+ Элементы["Версия"+Страница].Видимость = Истина;
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..4a80932
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ЛокальныеУведомленияВызовСервера
+
+
+ ru
+ Локальные уведомления вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..bcc177d
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,210 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Формирует уведомления для новой записи календаря.
+//
+// Параметры:
+// Объект - СправочникСсылка.ЗаписиРабочегоКалендаря - Ссылка на объект;
+// Описание - Строка - Текст уведомления;
+// ДатаНачала - ДатаВремя - Дата и время события;
+// ПериодУведомления - Число - Количество минут, за сколько нужно показать уведомление о событии.
+//
+Процедура СформироватьЗаписьУведомленияПоОбъекту(Объект, Описание, ДатаНачала, ПериодУведомления = 15) Экспорт
+
+ Если Не ЛокальныеУведомленияВызовСервераПовтИсп.ИспользоватьЛокальныеУведомления() Тогда
+ Возврат;
+ КонецЕсли;
+
+ Уведомление = Новый Структура();
+ Уведомление.Вставить("ПериодУведомления", ПериодУведомления);
+ Уведомление.Вставить("Ссылка", Объект);
+ Уведомление.Вставить("Сообщение", Описание);
+ Уведомление.Вставить("ДатаИВремяСобытия", ДатаНачала);
+ Уведомление.Вставить("ДатаИВремяУведомления",
+ ДатаНачала - ПериодУведомления * 60);
+
+ ЗаписатьСообщениеУведомления(Уведомление);
+
+КонецПроцедуры
+
+// Записывает таблицу уведомлений по объекту в регистр.
+//
+// Параметры:
+// Уведомление - Структура - Параметры создаваемого сообщения об уведомлении;
+//
+Процедура ЗаписатьСообщениеУведомления(Уведомление) Экспорт
+
+ Если Не ЗначениеЗаполнено(Уведомление.Ссылка) Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Уведомления в прошедшем времени не имеют смысла
+ Если ТекущаяДата() >= Уведомление.ДатаИВремяУведомления Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Добавляем данные записи
+ Запись = РегистрыСведений.ОбъектыУведомлений.СоздатьМенеджерЗаписи();
+
+ Запись.Объект = Уведомление.Ссылка;
+ Запись.ДатаВремяУведомления = Уведомление.ДатаИВремяУведомления;
+ Запись.Сообщение = Уведомление.Сообщение;
+ Запись.ДатаИВремяСобытия = Уведомление.ДатаИВремяСобытия;
+
+ Запись.Записать(Истина);
+
+КонецПроцедуры
+
+// Получает список всех объектов для которых требуется локальное уведомление.
+//
+// Параметры:
+// Просроченных - Число - Счетчик просроченных уведомлений;
+//
+// Возвращаемое значение:
+// Массив - Массив записей о уведомлениях, которые требуется создать.
+//
+Функция ПолучитьДанныеДляЛокальныхУведомления(Просроченных) Экспорт
+
+ // Создаем возвращаемый объект
+ Массив = Новый Массив();
+
+ // Инициализируем счетчик просроченных сообщений
+ Просроченных = 0;
+
+ // Если локальные уведомления не используются - сразу выходим
+ Если Не ПараметрыСеанса.ИспользоватьЛокальныеУведомления Тогда
+ Возврат Массив;
+ КонецЕсли;
+
+ // Инициализируем объект выборки данных
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("ТекущаяДата", ТекущаяДата());
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ОбъектыУведомлений.Объект КАК Ссылка,
+ | ОбъектыУведомлений.Сообщение КАК Описание,
+ | ОбъектыУведомлений.ДатаВремяУведомления КАК ДатаВремяУведомления,
+ | ОбъектыУведомлений.ДатаИВремяСобытия,
+ | ВЫБОР
+ | КОГДА &ТекущаяДата >= ОбъектыУведомлений.ДатаВремяУведомления
+ | ТОГДА ИСТИНА
+ | ИНАЧЕ ЛОЖЬ
+ | КОНЕЦ КАК Просрочено,
+ | ВЫБОР ТИПЗНАЧЕНИЯ(ОбъектыУведомлений.Объект)
+ | КОГДА ТИП(Документ.СписаниеДенежныхСредств)
+ | ТОГДА ""СписаниеДенежныхСредств""
+ | КОНЕЦ КАК Тип
+ |ИЗ
+ | РегистрСведений.ОбъектыУведомлений КАК ОбъектыУведомлений
+ |ГДЕ
+ | НЕ ОбъектыУведомлений.Обработано
+ | И НЕ ОбъектыУведомлений.Объект.ПометкаУдаления";
+
+ // Получаем данные из ИБ
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Если Выборка.Просрочено Тогда
+ Просроченных = Просроченных + 1;
+ КонецЕсли;
+
+ // Если срок не указан то уведомлять не о чем
+ Если Не ЗначениеЗаполнено(Выборка.ДатаВремяУведомления) Тогда
+ Продолжить;
+ КонецЕсли;
+
+ // Уведомления о просроченных объектах не выводятся
+ Если ТекущаяДата() >= Выборка.ДатаВремяУведомления Тогда
+ Продолжить;
+ КонецЕсли;
+
+ Запись = Новый Структура("Описание, ДатаВремяУведомления, ДатаИВремяСобытия, Данные, Интервал");
+
+ Запись.Описание = Выборка.Описание;
+ Запись.ДатаВремяУведомления = УниверсальноеВремя(Выборка.ДатаВремяУведомления);
+ Запись.ДатаИВремяСобытия = Выборка.ДатаИВремяСобытия;
+ Запись.Интервал = 0;
+ Запись.Данные = // Тип объекта / ссылка / Дата события.
+ СтрШаблон(
+ "Ref:%1\%2;%3",
+ Выборка.Тип,
+ Строка(Выборка.Ссылка.УникальныйИдентификатор()),
+ Выборка.ДатаИВремяСобытия);
+
+ Массив.Добавить(Запись);
+
+ КонецЦикла;
+
+ // Возвращаем данные
+ Возврат Массив;
+
+КонецФункции
+
+// Получает ссылку для открытия.
+//
+// Параметры:
+// ИмяМетаданных - Строка - Идентификатор метаданных;
+// Идентификатор - Строка - Идентификатор объекта.
+//
+// Возвращаемое значение:
+// Ссылка - Полученная по идентификатору ссылка.
+//
+Функция ПолучитьСсылку(ИмяМетаданных, Идентификатор) Экспорт
+
+ // По-умолчанию возвращать нечего.
+ ВозвращаемоеЗначение = Неопределено;
+
+ // Проверяем, что идентификатор это корректный УникальныйИдентификатор.
+ Попытка
+ УУИД = Новый УникальныйИдентификатор(Идентификатор);
+ Исключение
+ Возврат ВозвращаемоеЗначение;
+ КонецПопытки;
+
+ // Проверяем, что запрошенный тип метаданных присутствует в базе.
+ Если Не Метаданные.Справочники.Найти(ИмяМетаданных) = Неопределено Тогда
+ ВозвращаемоеЗначение = Справочники[ИмяМетаданных].ПолучитьСсылку(УУИД);
+
+ ИначеЕсли Не Метаданные.Документы.Найти(ИмяМетаданных) = Неопределено Тогда
+ ВозвращаемоеЗначение = Документы[ИмяМетаданных].ПолучитьСсылку(УУИД);
+
+ Иначе
+ Возврат ВозвращаемоеЗначение;
+ КонецЕсли;
+
+ // Проверяем существование объекта. В противном случае при открытии формы будет ошибка.
+ Попытка
+
+ Если Не ВозвращаемоеЗначение = Неопределено Тогда
+
+ Объект = ВозвращаемоеЗначение.ПолучитьОбъект();
+
+ Если Объект = Неопределено Тогда
+ ВозвращаемоеЗначение = Неопределено;
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Исключение
+ ВозвращаемоеЗначение = Неопределено;
+
+ КонецПопытки;
+
+ Возврат ВозвращаемоеЗначение;
+
+КонецФункции
+
+// Удаляет все записи событий уведомления по указанному объекту.
+//
+// Параметры:
+// Ссылка - Справочник.Ссылка - Ссылка на запись календаря.
+//
+Процедура УдалитьЗаписьСообщенияПоОбъекту(Ссылка) Экспорт
+
+ Набор = РегистрыСведений.ОбъектыУведомлений.СоздатьНаборЗаписей();
+ Набор.Отбор.Объект.Установить(Ссылка);
+ Набор.Записать(Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
new file mode 100644
index 0000000..f1802d9
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ЛокальныеУведомленияВызовСервераПовтИсп
+
+
+ ru
+ Локальные уведомления вызов сервера повт исп
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DuringSession
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
new file mode 100644
index 0000000..79f842e
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
@@ -0,0 +1,15 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Получает флаг использования локальных уведомлений.
+//
+// Возвращаемое значение:
+// Булево - Истина, если используются локальные уведомления.
+//
+Функция ИспользоватьЛокальныеУведомления() Экспорт
+
+ Возврат Константы.ИспользоватьЛокальныеУведомления.Получить();
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..190fbd4
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ЛокальныеУведомленияКлиент
+
+
+ ru
+ Локальные уведомления клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..61d077a
--- /dev/null
+++ "b/CommonModules/\320\233\320\276\320\272\320\260\320\273\321\214\320\275\321\213\320\265\320\243\320\262\320\265\320\264\320\276\320\274\320\273\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,311 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Подключает обработчик локальных и push-уведомлений.
+//
+Процедура ПодключитьОбработкуДоставляемыхУведомлений() Экспорт
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ // Создаем описатель обработчика уведомлений
+ Обработчик = Новый ОписаниеОповещения("ОбработчикДоставляемыхУведомлений", ЭтотОбъект);
+
+ // Выполняем подключение обработчика
+ ДоставляемыеУведомления.ПодключитьОбработчикУведомлений(Обработчик);
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+// Обработчик локальных и push-уведомлений.
+//
+// Параметры:
+// Уведомление - ЛокальноеУведомление - Обрабатываемое локальное или push-уведомление;
+// Локальное - Булево - признак того, что уведомление локальное, Ложь - push-уведомление;
+// Показано - Булево - признак того, что уведомление показано;
+// ДопПараметры - Произвольный - дополнительные параметры обработчика.
+//
+Процедура ОбработчикДоставляемыхУведомлений(Уведомление, Локальное, Показано, ДопПараметры) Экспорт
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ ДоставляемыеУведомления.УстановитьНаклейку(0);
+
+ ОписаниеОбъекта = Уведомление.Данные;
+
+ // Проверяем данные на наличие обязательного префикса
+ Если СтрНайти(ОписаниеОбъекта, "Ref:") = 0 Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Удаляем префикс из описания
+ ОписаниеОбъекта = СтрЗаменить(ОписаниеОбъекта, "Ref:", "");
+
+ Позиция = СтрНайти(ОписаниеОбъекта, ";");
+ Ссылка = Лев(ОписаниеОбъекта, Позиция - 1);
+ ДатаСобытия = Дата(Сред(ОписаниеОбъекта, Позиция + 1));
+
+ // Ищем позицию разделителя между именем метаданных и идентификатором
+ Позиция = СтрНайти(Ссылка, "\");
+
+ // Если разделитель не найден, то выходим из процедуры, т.к. скорее
+ // всего структура данных уведомления не сможет быть обработана.
+ Если Позиция = 0 Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Выделяем имя метаданных и идентификатор объекта
+ ИмяМетаданных = Лев(Ссылка, Позиция - 1);
+ Идентификатор = СокрЛП(Сред(Ссылка, Позиция + 1));
+
+ // Получаем ссылку на объект уведомления
+ Ссылка = ЛокальныеУведомленияВызовСервера.ПолучитьСсылку(ИмяМетаданных, Идентификатор);
+
+ // Показываем объект уведомления
+ Если Не Ссылка = Неопределено Тогда
+
+ ПараметрыОбработчика = Новый Структура();
+ ПараметрыОбработчика.Вставить("ИмяМетаданных", ИмяМетаданных);
+ ПараметрыОбработчика.Вставить("Идентификатор", Идентификатор);
+ ПараметрыОбработчика.Вставить("Ссылка", Ссылка);
+ ПараметрыОбработчика.Вставить("Текст", Уведомление.Текст);
+
+ ОбработкаРешения =
+ Новый ОписаниеОповещения(
+ "ОбработкаРешенияПоказатьОбъектУведомления",
+ ЛокальныеУведомленияКлиент, ПараметрыОбработчика);
+
+ ТекстВопроса = СтрШаблон(
+ НСтр("ru = '%1
+ |%2'; en = '%1
+ |%2'"), Уведомление.Текст,
+ СформироватьТекстДатыУведомления(ДатаСобытия));
+
+ КнопкиВыборка = Новый СписокЗначений();
+ КнопкиВыборка.Добавить("Открыть" , НСтр("ru = 'Просмотреть'; en = 'View'"));
+ КнопкиВыборка.Добавить("Отложить", НСтр("ru = 'Отложить на 15 мин.'; en = 'Postpone for 15 min.'"));
+ КнопкиВыборка.Добавить("Закрыть" , НСтр("ru = 'Закрыть'; en = 'Close'"));
+
+ ПоказатьВопрос(ОбработкаРешения, ТекстВопроса, КнопкиВыборка, , "Закрыть",);
+
+ Иначе
+ ОбновитьЛокальныеУведомленияНаУстройстве();
+ КонецЕсли;
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+// Обрабатывает решение пользователя об обработке уведомления
+//
+// Параметры:
+// Решение - Строка - Решение пользователя;
+// ДопПараметры - Структура - Доп параметры вызовы метода.
+//
+Процедура ОбработкаРешенияПоказатьОбъектУведомления(Решение, ДопПараметры) Экспорт
+
+ ЛокальныеУведомленияВызовСервера.УдалитьЗаписьСообщенияПоОбъекту(ДопПараметры.Ссылка);
+
+ Если Решение = "Открыть" Тогда
+ ОткрытьФормуОбъектаУведомления(ДопПараметры.ИмяМетаданных, ДопПараметры.Ссылка);
+
+ ИначеЕсли Решение = "Отложить" Тогда
+ ЛокальныеУведомленияВызовСервера.СформироватьЗаписьУведомленияПоОбъекту(
+ ДопПараметры.Ссылка, ДопПараметры.Текст, ТекущаяДата() + 15 * 60, 0);
+
+ КонецЕсли;
+
+ ОбновитьЛокальныеУведомленияНаУстройстве();
+
+КонецПроцедуры
+
+// Пересоздает все локальные уведомления на устройстве.
+//
+Процедура ОбновитьЛокальныеУведомленияНаУстройстве() Экспорт
+
+ Просроченных = 0;
+
+ // Получаем сведения обо всех объекта требующих уведомления
+ МассивДанных = ЛокальныеУведомленияВызовСервера.ПолучитьДанныеДляЛокальныхУведомления(Просроченных);
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ // Удаляем все локальные уведомления которые еще не показаны
+ УдалитьВсеЛокальныеУведомленияНаКлиенте();
+
+ // формируем уведомление для каждого объекта
+ Для Каждого Запись Из МассивДанных Цикл
+
+ ПоместитьУведомлениеВУстройство(
+ СоздатьЛокальноеУведомление(Запись));
+
+ КонецЦикла;
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+// Удаляет все локальные уведомления при выключении функции.
+//
+Процедура УдалитьВсеЛокальныеУведомленияНаКлиенте() Экспорт
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ ДоставляемыеУведомления.ОтменитьЛокальныеУведомления();
+ ДоставляемыеУведомления.УстановитьНаклейку(0);
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Помещает новое доставляемое уведомление в систему;
+//
+// Параметры:
+// Уведомление - ДоставляемоеУведомление - Локальное уведомление которое будет показано на устройстве.
+//
+Процедура ПоместитьУведомлениеВУстройство(Уведомление = Неопределено)
+
+ // Если уведомление не задано, то просто выходим.
+ Если Уведомление = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ // Помещаем уведомление в систему устройства
+ ДоставляемыеУведомления.ДобавитьЛокальноеУведомление(Уведомление);
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+// Открывает форму объекта уведомления.
+//
+// Параметры:
+// ИмяМетаданных - Строка - имя метаданных объекта;
+// Ссылка - Ссылка - ссылка на объект уведомления.
+//
+Процедура ОткрытьФормуОбъектаУведомления(ИмяМетаданных, Ссылка)
+
+ ПараметрыФормы = Новый Структура("Ключ", Ссылка);
+
+ ИмяМетаданных = СокрЛП(ИмяМетаданных);
+
+ Если ИмяМетаданных = "Задачи" Тогда
+
+ Если ЭтоУстройствоСБольшимЭкраном() Тогда
+ ОткрытьФорму("Справочник.Задачи.Форма.ФормаЗадачиПланшет", ПараметрыФормы);
+ Иначе
+ ОткрытьФорму("Справочник.Задачи.Форма.ФормаЗадачиТелефон", ПараметрыФормы);
+ КонецЕсли;
+
+ ИначеЕсли ИмяМетаданных = "ПроцессыИсполнение" Тогда
+
+ Если ЭтоУстройствоСБольшимЭкраном() Тогда
+ ОткрытьФорму("Справочник.ПроцессыИсполнение.Форма.ФормаПроцессаПланшет", ПараметрыФормы);
+ Иначе
+ ОткрытьФорму("Справочник.ПроцессыИсполнение.Форма.ФормаПроцессаТелефон", ПараметрыФормы);
+ КонецЕсли;
+
+ ИначеЕсли ИмяМетаданных = "ЗаписиРабочегоКалендаря" Тогда
+
+ ОткрытьФорму("Справочник.ЗаписиРабочегоКалендаря.Форма.ФормаЭлемента", ПараметрыФормы);
+
+ ИначеЕсли ИмяМетаданных = "Контроль" Тогда
+
+ ОткрытьФорму("Справочник.Контроль.Форма.КарточкаКонтроляТелефон", ПараметрыФормы);
+
+ ИначеЕсли ИмяМетаданных = "ВходящееПисьмо" Тогда
+
+ ОткрытьФорму("Документ.ВходящееПисьмо.Форма.ФормаВходящего", ПараметрыФормы);
+
+ ИначеЕсли ИмяМетаданных = "ИсходящееПисьмо" Тогда
+
+ ОткрытьФорму("Документ.ИсходящееПисьмо.Форма.ФормаИсходящего", ПараметрыФормы);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Формирует представление даты начала события для уведомления.
+//
+// Параметры:
+// Дата - Дата - Дата начала события;
+//
+// Возвращаемое значение:
+// Строка - Представление даты.
+//
+Функция СформироватьТекстДатыУведомления(Дата)
+
+ Если НачалоДня(ТекущаяДата()) = НачалоДня(Дата) Тогда
+ Представление =
+ СтрШаблон(
+ НСтр("ru = 'Сегодня в %1'; en = 'Today at %1'"), Формат(Дата, "ДФ=HH:mm"));
+
+ ИначеЕсли НачалоДня(ТекущаяДата())+86400 = НачалоДня(Дата) Тогда
+ Представление =
+ СтрШаблон(
+ НСтр("ru = 'Завтра в %1'; en = 'Tomorrow at %1'"), Формат(Дата, "ДФ=HH:mm"));
+
+ Иначе
+ Представление =
+ СтрШаблон(
+ НСтр("ru = '%1 в %2'; en = '%1 at %2'"),
+ Формат(Дата, "ДФ='dd MMMM'"), Формат(Дата, "ДФ=HH:mm"));
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+// Создает локальное уведомления на устройстве.
+//
+// Параметры:
+// Заголовок - Строка - Заголовок локального уведомления;
+// Текст - Строка - Текст локального уведомления;
+// ДатаСрабатывания - Дата - Дата показа локального уведомления;
+// Наклейка - Число - Число показываемое на значке приложения;
+// Данные - Строка - Данные об объекте уведомления;
+// ИнтервалПовторения - Число - Периодичность повтора уведомления;
+//
+// Возвращаемое значение:
+// ДоставляемоеУведомление - Созданное уведомление для помещение на устройство.
+//
+Функция СоздатьЛокальноеУведомление(ДанныеУведомления)
+
+ Уведомление = Неопределено;
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ // Проверяем дату предполагаемого показа
+ Если Не ДанныеУведомления.ДатаВремяУведомления = '00010101'
+ И УниверсальноеВремя(ТекущаяДата()) >= ДанныеУведомления.ДатаВремяУведомления Тогда
+ Возврат Уведомление;
+ КонецЕсли;
+
+ // Создаем новое локальное уведомление
+ Уведомление = Новый ДоставляемоеУведомление;
+
+ // Заполняем видимые пользователем свойства
+ Уведомление.ДатаПоявленияУниверсальноеВремя = ДанныеУведомления.ДатаВремяУведомления;
+ Уведомление.Заголовок = НСтр("ru = '1С:Стройка'");
+ Уведомление.Текст = ДанныеУведомления.Описание;
+ Уведомление.Данные = ДанныеУведомления.Данные;
+
+ // Заполняем служебные данные уведомления
+ Уведомление.Наклейка = 0;
+ Уведомление.ЗвуковоеОповещение = ЗвуковоеОповещение.ПоУмолчанию;
+ Уведомление.ИнтервалПовтора = ДанныеУведомления.Интервал;
+
+ #КонецЕсли
+
+ Возврат Уведомление;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..a37fc3e
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменВызовСервера
+
+
+ ru
+ Обмен вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..a50d563
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,1534 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Функция - Запустить синхронизацию с сервером в фоне
+//
+// Параметры:
+// ПараметрыЗапуска - Структура - Параметры запуска фонового задания;
+// ИдентификаторЗадания - УникальныйИдентификатор - Идентификатор формы;
+// АдресХранилища - Строка - Адрес хранилища дополнительной информации.
+//
+// Возвращаемое значение:
+// Булево - Истина, если задание запущено.
+//
+Функция ЗапуститьСинхронизациюССерверомВФоне(
+ ПараметрыЗапуска, ИдентификаторЗадания, АдресХранилища) Экспорт
+
+ //Перед запуском фонового задания синхронизации необходимо отменить
+ //задание очистки от устаревших данных, если оно активно
+ ОчисткаБазыДанныхВызовСервера.ПрерватьОчисткуОтСтарыхДанныхВФоне();
+
+ ИмяФоновогоЗадания = ПараметрыЗапуска.РежимСинхронизации;
+
+ // Проверим наличие активного задания синхронизации.
+ ОтборЗаданий = Новый Структура();
+ ОтборЗаданий.Вставить("Наименование", ИмяФоновогоЗадания);
+ ОтборЗаданий.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);
+
+ Задания = ФоновыеЗадания.ПолучитьФоновыеЗадания(ОтборЗаданий);
+ Если Не Задания.Количество() = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ // Запустим новое задание синхронизации.
+ ВыполнениеВФоне = Истина;
+ Данные = Неопределено;
+
+ Если Не ПараметрыЗапуска.Свойство("Данные", Данные) Тогда
+ АдресХранилища =
+ ПоместитьВоВременноеХранилище(
+ Неопределено, ПараметрыЗапуска.УникальныйИдентификатор);
+ Данные = АдресХранилища;
+ КонецЕсли;
+
+ Параметры = Новый Массив();
+ Параметры.Добавить(ПараметрыЗапуска.ДатаНачалаСинхронизации);
+ Параметры.Добавить(ПараметрыЗапуска.РежимСинхронизации);
+ Параметры.Добавить(ВыполнениеВФоне);
+ Параметры.Добавить(Данные);
+
+ Задание =
+ ФоновыеЗадания.Выполнить("ОбменВызовСервера.ОтправитьИПолучитьДанные",
+ Параметры, Новый УникальныйИдентификатор, ИмяФоновогоЗадания);
+
+ ИдентификаторЗадания = Задание.УникальныйИдентификатор;
+
+ Возврат Истина;
+
+КонецФункции
+
+// Выполняет отправку сообщения на сервер и обработку ответного сообщения, если требуется получать
+// ответ от сервера.
+//
+// Параметры:
+// ДатаНачалаСинхронизации - Дата - Дата начала синхронизации с мобильным клиентом;
+// РежимСинхронизации - Строка - Идентификатор режима синхронизации;
+// ВыполнениеВФоне - Булево - Признак вызова функции как фоновое задание;
+// Данные - Произвольный - Данные передаваемые на сервер.
+//
+// Возвращаемое значение:
+// Структура СведенияОЗагруженныхДанных - описывает загруженные данные;
+// *КоличествоОбработанныхОбъектов - количество обработанных объектов;
+// *НовыеДанные - массив ссылок на новые объекты, загруженные с сервера;
+// *НовыеПисьма - количество новых писем;
+// *НовыеЗадачи - количество новых задач;
+// *НовыеЗаписиКалендаря - количество новых записей календаря.
+//
+Процедура ОтправитьИПолучитьДанные(
+ ДатаНачалаСинхронизации, РежимСинхронизации,
+ ВыполнениеВФоне, Данные = Неопределено) Экспорт
+
+ // Выполняем подготовительные действия
+ ТекущаяСтадияРаботы = "Подготовка";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ ОбновитьПовторноИспользуемыеЗначения();
+ ОбщегоНазначенияВызовСервера.УстановитьПараметрыСеанса();
+ УстановитьТекущуюСессияСинхронизации(Константы.СессияСинхронизации.Получить());
+ ВыполнитьДействияПередПодключением();
+
+ // Инициализируем постоянные переменные для уведомления пользователя
+ ЕстьОшибкиПриПодключении = Ложь;
+ ВСообщенияхЕстьДанные = Ложь;
+
+ СчетчикиОбъектов = Новый Массив();
+ Для Счетчик = 0 По ОбменКлиентСервер.Сущности().Количество() - 1 Цикл
+ СчетчикиОбъектов.Добавить(0);
+ КонецЦикла;
+
+ ЭтоДемоРежим = Константы.ЭтоДемоРежим.Получить();
+ ЕстьНеотправленныеДанные = Константы.ЕстьНеотправленныеДанные.Получить();
+ СведенияОЗагруженныхДанных = ИнициализироватьСведенияОЗагруженныхДанных();
+ ВыводитьРасширенныйПротокол =
+ ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций();
+
+ // подключаемся к сервису для определения версии формата обмена
+ ТекущаяСтадияРаботы = "Подключение";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ Попытка
+ СостояниеОбмена = ПолучитьПараметрыСостоянияОбмена();
+
+ // todo: нужен ли демо-режим?
+ // Получаем версию формата обмена через которую будем общаться с сервером
+ Если ЭтоДемоРежим Тогда
+ СостояниеОбмена.ЕстьОшибки = Ложь;
+ СведенияОЗагруженныхДанных.ЕстьОшибки = Ложь;
+
+ ТекущаяСтадияРаботы = "ОтправкаДанных";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+ Иначе
+ НачалоОперации = ТекущаяДата();
+ ВерсияСервиса = ОбменВызовСервераПовтИсп.ПолучитьВерсиюСервиса();
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Установка соединения'; en = 'Connection'"), НачалоОперации);
+
+ Если ЗначениеЗаполнено(ВерсияСервиса) Тогда
+
+ ТекущаяСтадияРаботы = "СозданиеСообщений";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ Если Не ЭтоДемоРежим Тогда
+
+ НачалоОперации = ТекущаяДата();
+
+ Если РежимСинхронизации = "ПодключитьНовоеУстройство" Тогда
+ ОбменФормированиеСообщенийВызовСервера.СоздатьСообщениеДляПодключенияУстройства(
+ ВерсияСервиса);
+
+ ИначеЕсли РежимСинхронизации = "ОтключитьУстройство" Тогда
+ ОбменФормированиеСообщенийВызовСервера.СоздатьСообщениеДляОтключенияУстройства(
+ ВерсияСервиса)
+
+ ИначеЕсли РежимСинхронизации = "ВыполнитьСинхронизацию" Тогда
+ ОбменФормированиеСообщенийВызовСервера.СоздатьСообщениеДляВыгрузкиВсехИзмененныхДанных(
+ ВерсияСервиса, ЕстьНеотправленныеДанные)
+
+ ИначеЕсли РежимСинхронизации = "ЗагрузитьФайлССервера" Тогда
+ ОбменФормированиеСообщенийВызовСервера.СоздатьСообщениеДляПолученияОдногоФайла(
+ ВерсияСервиса, Данные)
+
+ ИначеЕсли РежимСинхронизации = "ОтправитьОтчетОПроблеме" Тогда
+ ОбменФормированиеСообщенийВызовСервера.СоздатьСообщениеДляПередачиСообщенияОПроблеме(
+ ВерсияСервиса, Данные);
+
+ КонецЕсли;
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Создание исходящего сообщения';
+ |en = 'Creating an outgoing message'"), НачалоОперации);
+
+ КонецЕсли;
+
+ ТекущаяСтадияРаботы = "ОтправкаДанных";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ НачалоОперации = ТекущаяДата();
+
+ ОтправитьДанные(СостояниеОбмена, СведенияОЗагруженныхДанных);
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Отправка данных'; en = 'Sending data'"), НачалоОперации);
+
+ ИначеЕсли РежимСинхронизации = "ОтключитьУстройство" Тогда
+ // при отключении устройства - просто продолжаем очищать базу.
+ Иначе
+
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Истина);
+ Возврат;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Исключение
+
+ ЗаписатьОшибкуПриОбмене(ИнформацияОбОшибке());
+
+ ТекущаяСтадияРаботы = "Завершение";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Истина);
+
+ ТекущаяСтадияРаботы = "ОбновитьДатуСинхронизации";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Истина);
+
+ Возврат;
+
+ КонецПопытки;
+
+ Если СведенияОЗагруженныхДанных.ЕстьОшибки Тогда
+ ТекущаяСтадияРаботы = "Завершение";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Истина, Ложь, СчетчикиОбъектов);
+ Возврат;
+ КонецЕсли;
+
+ Попытка
+ ТекущаяСтадияРаботы = "ЗагрузкаДанных";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ Если ЭтоДемоРежим Тогда
+ ОбменДемоДанныеВызовСервера.ЗагрузитьДемоДанные();
+ Иначе
+ ЗагрузитьДанные(СостояниеОбмена, СведенияОЗагруженныхДанных, ДатаНачалаСинхронизации);
+ КонецЕсли;
+
+ ТекущаяСтадияРаботы = "ПросмотрДанных";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Ложь);
+
+ ВСообщенияхЕстьДанные = ПросмотретьДанные(СведенияОЗагруженныхДанных);
+
+ СчетчикиОбъектов = ОбменВызовСервера.ПоказателиНовыеОбъекты();
+ ЗаполнитьЗначенияСвойств(СчетчикиОбъектов,
+ СведенияОЗагруженныхДанных.ПоказателиОбмена);
+
+ ТекущаяСтадияРаботы = "ЗаписьДанных";
+ СообщитьПользователю(
+ ТекущаяСтадияРаботы, ВыполнениеВФоне, Ложь, ВСообщенияхЕстьДанные,
+ СчетчикиОбъектов);
+
+ ЗаписатьДанные(
+ ВСообщенияхЕстьДанные, СведенияОЗагруженныхДанных, ДатаНачалаСинхронизации);
+
+ ВозвращаемыеДанные = Новый СписокЗначений;
+ Для Каждого Пара Из СведенияОЗагруженныхДанных.НовыеДанные Цикл
+ ВозвращаемыеДанные.Добавить(
+ Новый Структура("Ключ, Значение", Пара.Ключ, Пара.Значение));
+ КонецЦикла;
+
+ Адрес = ПоместитьВоВременноеХранилище(ВозвращаемыеДанные, Данные);
+
+ ТекущаяСтадияРаботы = "Завершение";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне);
+
+ Исключение
+ ЗаписатьОшибкуПриОбмене(ИнформацияОбОшибке());
+ ТекущаяСтадияРаботы = "Завершение";
+ СообщитьПользователю(ТекущаяСтадияРаботы, ВыполнениеВФоне, Истина);
+ Возврат;
+ КонецПопытки;
+
+ СообщитьПользователю("ОбновитьДатуСинхронизации", ВыполнениеВФоне);
+
+ ЗавершитьОтправкуИПолучение(СведенияОЗагруженныхДанных, РежимСинхронизации);
+
+КонецПроцедуры
+
+// Увеличить счетчики о загруженных данных.
+//
+// Параметры:
+// СведенияОЗагруженныхДанных - Структура - общие сведения о текущем сеансе обмена
+// * СчетчикиОбъектов - Соответствие - список счетчиков по типам объектов.
+// ИмяТипа - Строка - Тип учитываемого объекта.
+//
+Процедура УвеличитьСчетчикиПоТипамОбъектов(СведенияОЗагруженныхДанных, ИмяТипа) Экспорт
+
+ // Обновляем общий счетчик объектов
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.КоличествоЗагружаемыхОбъектов =
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.КоличествоЗагружаемыхОбъектов + 1;
+
+ // Получаем счетчик указанного типа
+ ДанныеОТипеОбъекта = СведенияОЗагруженныхДанных.ПоказателиОбмена.СчетчикиОбъектов[ИмяТипа];
+
+ // Создаем новый счетчик, если он еще не инициализирован
+ Если ДанныеОТипеОбъекта = Неопределено Тогда
+ ДанныеОТипеОбъекта = Новый Структура("Количество", 0);
+ КонецЕсли;
+
+ // Увеличиваем количество указанного типа
+ ДанныеОТипеОбъекта.Количество = ДанныеОТипеОбъекта.Количество + 1;
+
+ // Обновляем параметры текущего сеанса синхронизации
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.СчетчикиОбъектов.Вставить(ИмяТипа, ДанныеОТипеОбъекта);
+
+КонецПроцедуры
+
+// Проверяет состояние задания фоновой синхронизации.
+//
+// Параметры:
+// ФоновоеЗаданиеИдентификатор - УникальныйИдентификатор - Идентификатор задания;
+// ФоновоеЗаданиеАдресХранилища - Строка - Адрес хранилища на сервере для помещения результат;
+// ОписаниеПоследнегоОбновления - Строка - Описание текщей операции и истории обновления.
+//
+// Возвращаемое значение:
+// Результат - Структура возвращаемых данных.
+//
+Функция ПроверитьСостояниеФоновойСинхронизации(
+ ФоновоеЗаданиеИдентификатор,
+ ФоновоеЗаданиеАдресХранилища,
+ ОписаниеПоследнегоОбновления) Экспорт
+
+ Результат = Новый Структура();
+ Результат.Вставить("ЗаданиеВыполнено", Ложь);
+ Результат.Вставить("СообщениеОбОшибке", Неопределено);
+ Результат.Вставить("ОбновитьДатуСинхронизации", Ложь);
+
+ Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ФоновоеЗаданиеИдентификатор);
+
+ Если Задание = Неопределено Тогда
+ Результат.СообщениеОбОшибке =
+ НСтр("ru = 'Не удалось выполнить синхронизацию. См. протокол обмена'");
+
+ ИначеЕсли Задание.Состояние = СостояниеФоновогоЗадания.ЗавершеноАварийно Тогда
+ Результат.СообщениеОбОшибке = ПодробноеПредставлениеОшибки(Задание.ИнформацияОбОшибке);
+
+ ИначеЕсли Задание.Состояние = СостояниеФоновогоЗадания.Завершено Тогда
+ Результат.ЗаданиеВыполнено = Истина;
+
+ КонецЕсли;
+
+ Если Не Задание = Неопределено Тогда
+
+ ВсеСообщения = Задание.ПолучитьСообщенияПользователю(Ложь);
+ Если ВсеСообщения = Неопределено Тогда
+ ВсеСообщения = Новый Массив();
+ КонецЕсли;
+
+ ЕстьОшибки = Ложь;
+
+ Для Каждого СообщениеПользователю Из ВсеСообщения Цикл
+ СодержимоеСообщения = ОбщегоНазначенияСервер.ОбъектИзJSON(СообщениеПользователю.Текст);
+ Если СодержимоеСообщения = Неопределено Тогда
+ Продолжить;
+ КонецЕсли;
+
+ // todo: delete
+ // МассивРезультатовРаботы = СтрРазделить(СообщениеПользователю.Текст, ";");
+
+ ТекущаяСтадияРаботы = СодержимоеСообщения.ТекущаяСтадия; // МассивРезультатовРаботы[0];
+ ЕстьОшибки = СодержимоеСообщения.ЕстьОшибки; // Булево(МассивРезультатовРаботы[1]);
+ ВСообщенияхЕстьДанные = СодержимоеСообщения.ЕстьДанные; // Булево(МассивРезультатовРаботы[2]);
+
+ Если СодержимоеСообщения.Данные <> Неопределено Тогда
+ //Если СтрНайти(МассивРезультатовРаботы[3], ",") Тогда
+ // СчетчикиОбъектов = СтрРазделить(МассивРезультатовРаботы[3], ",");
+ СчетчикиОбъектов = СодержимоеСообщения.Данные;
+ Иначе
+
+ Если ТекущаяСтадияРаботы = "Завершение"
+ И ЗначениеЗаполнено(ФоновоеЗаданиеАдресХранилища) Тогда
+
+ Результат.Вставить("СведенияОЗагруженныхДанных",
+ ПолучитьИзВременногоХранилища(ФоновоеЗаданиеАдресХранилища));
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Результат.Вставить("ТекущаяСтадияРаботы", ТекущаяСтадияРаботы);
+ Результат.Вставить("ЕстьОшибки", ЕстьОшибки);
+ Результат.Вставить("ВСообщенияхЕстьДанные", ВСообщенияхЕстьДанные);
+
+ Если ТекущаяСтадияРаботы = "ЗаписьДанных" Тогда
+ Результат.Вставить("СчетчикиОбъектов", СчетчикиОбъектов);
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ОбновитьДатуСинхронизации" Тогда
+ Результат.ОбновитьДатуСинхронизации = Истина;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ СформироватьОписаниеТекущегоСостояния(
+ ЕстьОшибки, ТекущаяСтадияРаботы, ОписаниеПоследнегоОбновления);
+
+ КонецЕсли;
+
+ Результат.Вставить("ОписаниеПоследнегоОбновления", ОписаниеПоследнегоОбновления);
+
+ Возврат Результат;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СервисныеФункции
+
+// Сбрасывает значения в константах, описывающих состояние загрузки частей сообщений с сервера,
+// чтобы дать возможность загрузить сообщения с начала очереди.
+//
+Процедура СброситьСостояниеЗагрузкиЧастейСообщений() Экспорт
+
+ Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Установить(УникальныйИдентификаторПустой());
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Установить(0);
+
+КонецПроцедуры
+
+// Удаляет регистрацию изменений на центральном узле обмена и увеличивает счетчик отправленных сообщений.
+//
+Процедура УдалитьРегистрациюИзмененийОтправленныхДанных() Экспорт
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ // После записи сообщения в очередь регистрация изменений очищается
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена);
+
+ ЦентральныйУзелОбменаОбъект = ЦентральныйУзелОбмена.ПолучитьОбъект();
+ ЦентральныйУзелОбменаОбъект.НомерОтправленного = ЦентральныйУзелОбменаОбъект.НомерОтправленного + 1;
+ ЦентральныйУзелОбменаОбъект.Записать();
+
+КонецПроцедуры
+
+// Выполняет настройку ИБ после первого подключения к серверу.
+//
+Процедура ВыполнитьДействияПослеПервогоПодключенияКСерверу() Экспорт
+
+ Константы.ДатаПоследнегоОбновления.Установить(ТекущаяДата());
+
+ //СтруктураОтбора = Новый Структура("МожетИспользоватьсяДляОтправки", Истина);
+ //ВыборкаУчетныеЗаписи = Справочники.УчетныеЗаписи.Выбрать(,, СтруктураОтбора);
+ //ТекущаяУчетнаяЗапись = Константы.ОсновнаяУчетнаяЗапись.Получить();
+
+ //Если Не ЗначениеЗаполнено(ТекущаяУчетнаяЗапись) Тогда
+ // Если ВыборкаУчетныеЗаписи.Следующий() Тогда
+ // Константы.ОсновнаяУчетнаяЗапись.Установить(ВыборкаУчетныеЗаписи.Ссылка);
+ // КонецЕсли;
+ //КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Процедура СформироватьОписаниеТекущегоСостояния(ЕстьОшибки, ТекущаяСтадияРаботы, ОписаниеПоследнегоОбновления)
+
+ Если ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ Если ТекущаяСтадияРаботы = "Подготовка"
+ Или Не ЗначениеЗаполнено(ТекущаяСтадияРаботы) Тогда
+ Процент = 5;
+ ПредставлениеЭтапа = НСтр("ru = 'Запуск'; en = 'Launching'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "Подключение" Тогда
+ Процент = 10;
+ ПредставлениеЭтапа = НСтр("ru = 'Подключение'; en = 'Connecting'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "СозданиеСообщений" Тогда
+ Процент = 15;
+ ПредставлениеЭтапа = НСтр("ru = 'Подготовка'; en = 'Preparing'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ОтправкаДанных" Тогда
+ Процент = 35;
+ ПредставлениеЭтапа = НСтр("ru = 'Отправка данных'; en = 'Sending data'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ЗагрузкаДанных" Тогда
+ Процент = 50;
+ ПредставлениеЭтапа = НСтр("ru = 'Загрузка данных'; en = 'Download data'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ПросмотрДанных" Тогда
+ Процент = 65;
+ ПредставлениеЭтапа = НСтр("ru = 'Анализ данных'; en = 'Preview data'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ЗаписьДанных" Тогда
+ Процент = 80;
+ ПредставлениеЭтапа = НСтр("ru = 'Запись данных'; en = 'Writing data'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "Завершение"
+ Или ТекущаяСтадияРаботы = "ОбновитьДатуСинхронизации" Тогда
+ Процент = 95;
+ ПредставлениеЭтапа = НСтр("ru = 'Завершение'; en = 'Finishing'");
+
+ КонецЕсли;
+ Иначе
+ Если (Не ЗначениеЗаполнено(ТекущаяСтадияРаботы)
+ Или ТекущаяСтадияРаботы = "Подготовка"
+ Или ТекущаяСтадияРаботы = "Подключение"
+ Или ТекущаяСтадияРаботы = "СозданиеСообщений"
+ Или ТекущаяСтадияРаботы = "ОтправкаДанных") Тогда
+
+ ПредставлениеЭтапа = НСтр("ru = 'Подключение'; en = 'Connecting'");
+
+ ИначеЕсли ТекущаяСтадияРаботы = "ЗагрузкаДанных" Тогда
+ ПредставлениеЭтапа = НСтр("ru = 'Загрузка'; en = 'Loading'");
+
+ ИначеЕсли (ТекущаяСтадияРаботы = "ПросмотрДанных"
+ Или ТекущаяСтадияРаботы = "ЗаписьДанных"
+ Или ТекущаяСтадияРаботы = "Завершение"
+ Или ТекущаяСтадияРаботы = "ОбновитьДатуСинхронизации") Тогда
+ ПредставлениеЭтапа = НСтр("ru = 'Обработка'; en = 'Processing'");
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если ЕстьОшибки Тогда
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон("%1", НСтр("ru = 'Ошибка (см. протокол)'; en = 'Error (view protocol)!'"));
+
+ ИначеЕсли ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон("%1 (%2%%)...", ПредставлениеЭтапа, Процент);
+
+ Иначе
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон("%1...", ПредставлениеЭтапа);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Записывает ошибку в протокол работы пользователя.
+//
+// Параметры:
+// Инфо - ИнформацияОбОшибке - Информация о произошедшей ошибке.
+//
+Процедура ЗаписатьОшибкуПриОбмене(Инфо)
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'При выполнении обмена произошла ошибка.'; en = 'Synchronization error.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, Инфо.Описание, ПодробноеПредставлениеОшибки(Инфо));
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+
+КонецПроцедуры
+
+// Устанавливает номер сессии синхронизации используемую в текущей операции обмена
+//
+// Возвращаемое значение:
+// Число - Номер текущей сессии обмена.
+//
+Функция ВыполнитьДействияПередПодключением()
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(НСтр("ru = 'Подключение'; en = 'Connecting'"));
+
+ НомерСессии = ПараметрыСеанса.ТекущаяСессияСинхронизации;
+
+ Если НомерСессии = 0 Тогда
+
+ // Получаем текущую сессию из константы и сразу увеличиваем ее до текущей
+ НомерСессии = Константы.СессияСинхронизации.Получить()+ 1;
+
+ // Сразу обновляем константу
+ Константы.СессияСинхронизации.Установить(НомерСессии);
+
+ // Обновим параметры для быстрого доступа
+ УстановитьТекущуюСессияСинхронизации(НомерСессии);
+
+ КонецЕсли;
+
+ Возврат НомерСессии;
+
+КонецФункции
+
+// Устанавливает номер сессии синхронизации используемую в текущей операции обмена.
+//
+Процедура УстановитьТекущуюСессияСинхронизации(НомерСессии = 0) Экспорт
+
+ ПараметрыСеанса.ТекущаяСессияСинхронизации = НомерСессии;
+
+КонецПроцедуры
+
+// Получает структуру состояния новой операции запроса к серверу.
+//
+// Возвращаемое значение:
+// Структура - Параметры состояния операции по-умолчанию
+// ЕстьОшибки - Булево - По-умолчанию Истина, пока не подтверждено, что операция успешна;
+// ПродолжитьЗагрузку - Булево - По-умолчанию: Ложь, пока сервере не ответил, что есть данные для загрузки;
+// КоличествоСообщенийВОчереди - Число - Количество сообщений в очереди на сервере, ожидающие загрузки;
+// ОбъемПолученныхДанных - Число - Объем загруженных текущей операцией данных;
+// ВремяЗагрузкиДанных - Число - Время загрузки очередной порции данных в сек;
+// ПроцентГотовностиЗагружаемогоСообщения - Число - Процент готовности сообщения на сервере.
+//
+Функция ПолучитьПараметрыСостоянияОбмена()
+
+ // Инициализация структуры, описывающей состояние обмена.
+ // По умолчанию считаем, что сообщений на сервере нет и обмен продолжаться не будет.
+
+ СостояниеОбмена = Новый Структура;
+ СостояниеОбмена.Вставить("ЕстьОшибки", Истина);
+ СостояниеОбмена.Вставить("ПродолжитьЗагрузку", Ложь);
+ СостояниеОбмена.Вставить("КоличествоСообщенийВОчереди", 0);
+ СостояниеОбмена.Вставить("ОбъемПолученныхДанных", 0);
+ СостояниеОбмена.Вставить("ВремяЗагрузкиДанных", 0);
+ СостояниеОбмена.Вставить("ПроцентГотовностиЗагружаемогоСообщения", 0);
+
+ Возврат СостояниеОбмена;
+
+КонецФункции
+
+// Получает структура данных служебной информации для обмена.
+//
+Функция ИнициализироватьСведенияОЗагруженныхДанных()
+
+ ВыводитьРасширенныйПротокол = ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций();
+
+ ПоказателиОбмена = Новый Структура();
+ ПоказателиОбмена.Вставить("КоличествоОбработанныхОбъектов", 0);
+ ПоказателиОбмена.Вставить("КоличествоЗагружаемыхОбъектов" , 0);
+ ПоказателиОбмена.Вставить("ОбъемПолученныхДанных" , 0);
+ ПоказателиОбмена.Вставить("ОбъемПолученныхФайлов" , 0);
+ ПоказателиОбмена.Вставить("КоличествоИтерацийОбмена" , 0);
+ ПоказателиОбмена.Вставить("КоличествоПустыхПакетов" , 0);
+ ПоказателиОбмена.Вставить("КоличествоПакетовСДанными", 0);
+ ПоказателиОбмена.Вставить("ВсегоПолученоСообщений" , 0);
+ ПоказателиОбмена.Вставить("ВремяЗагрузкиДанных" , 0);
+
+ Для Каждого ПоказательНового Из ПоказателиНовыеОбъекты() Цикл
+ ПоказателиОбмена.Вставить(ПоказательНового.Ключ, ПоказательНового.Значение);
+ КонецЦикла;
+
+ ПоказателиОбмена.Вставить("ВременныеПоказатели", Новый Массив());
+ ПоказателиОбмена.Вставить("СчетчикиОбъектов", Новый Соответствие());
+
+ // Начальное заполнение структуры, описывающей загруженные данные при синхронизации
+ СведенияОЗагруженныхДанных = Новый Структура();
+ СведенияОЗагруженныхДанных.Вставить("ЕстьОшибки", Ложь);
+
+ СведенияОЗагруженныхДанных.Вставить("НовыеДанные" , Новый Соответствие());
+ СведенияОЗагруженныхДанных.Вставить("УдаляемыеДанные" , Новый Соответствие());
+
+ СведенияОЗагруженныхДанных.Вставить("ПоказателиОбмена", ПоказателиОбмена);
+
+ Возврат СведенияОЗагруженныхДанных;
+
+КонецФункции
+
+Функция ПоказателиНовыеОбъекты() Экспорт
+
+ ПоказателиОбмена = Новый Структура();
+
+ // Справочники
+ ПоказателиОбмена.Вставить("НовыеОбъектыСтроительства", 0);
+ ПоказателиОбмена.Вставить("НовыеГорода", 0);
+ ПоказателиОбмена.Вставить("НовыеКонтрагенты", 0);
+ ПоказателиОбмена.Вставить("НовыеСтатьиРасходов", 0);
+
+ // Документы
+ ПоказателиОбмена.Вставить("НовыеСписанияДенежныхСредств", 0);
+
+ Возврат ПоказателиОбмена;
+
+КонецФункции
+
+// Отправляет данные в центральную базу
+//
+// Параметры:
+// ДанныеДляПередачи - хранилище значения в двоичными данными;
+// НеобходимоПолучитьДанныеОтСервера - признак того, что серверу необходимо будет подготовить ответ.
+//
+Процедура ОтправитьДанные(СостояниеОбмена, СведенияОЗагруженныхДанных)
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Начало отправки сообщения на сервер'"));
+
+ // Получаем состояние константы перед началом обмен
+ СведенияОЗагруженныхДанных.Вставить("ЕстьНеотправленныеДанные",
+ Константы.ЕстьНеотправленныеДанные.Получить());
+
+ ДанныеОСоединении = ОбменВызовСервераПовтИсп.ПолучитьСоединение(СостояниеОбмена);
+
+ Если ДанныеОСоединении = Неопределено Тогда
+ СведенияОЗагруженныхДанных.ЕстьОшибки = Истина;
+ Иначе
+ ОтправитьДанныеJSON(
+ СостояниеОбмена, ДанныеОСоединении, СведенияОЗагруженныхДанных);
+
+ СведенияОЗагруженныхДанных.ЕстьОшибки = СостояниеОбмена.ЕстьОшибки;
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Загружает очередную порцию данных с сервера.
+//
+// Параметры:
+// СостояниеОбмена - Структура - Структура параметров текущей операции обмена;
+// СведенияОЗагруженныхДанных - Структура - Кэш данных синхронизации;
+// ДатаНачалаСинхронизации - Дата - Дата и время начала процесса обмена.
+//
+Процедура ЗагрузитьДанные(СостояниеОбмена, СведенияОЗагруженныхДанных, ДатаНачалаСинхронизации)
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Загрузка данных'; en = 'Downloading data'"), ДатаНачалаСинхронизации);
+
+ НачалоОперации = ТекущаяДата();
+ ПервыйПакетСДанными = Неопределено;
+
+ // Загрузка данных с сервера
+ Пока СостояниеОбмена.ПродолжитьЗагрузку Цикл
+
+ ОбъемПолученныхДанных = ПолучитьДанные(СостояниеОбмена,
+ СведенияОЗагруженныхДанных.ПоказателиОбмена);
+
+ Если Не ОбъемПолученныхДанных = 0 И ПервыйПакетСДанными = Неопределено Тогда
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Получение изменений на сервере'; en = 'Getting changes'"),
+ НачалоОперации - (СостояниеОбмена.ВремяЗагрузкиДанных / 1000),
+ ТекущаяДата());
+
+ ПервыйПакетСДанными = ТекущаяДата();
+ НачалоОперации =
+ ТекущаяДата() - (СостояниеОбмена.ВремяЗагрузкиДанных / 1000);
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Загрузка изменений с сервера'; en = 'Donloading changes from server'"),
+ НачалоОперации,
+ ТекущаяДата());
+
+КонецПроцедуры
+
+// Получает с сервера очередную часть сообщения обмена, записывает ее в регистр.
+// При этом обновляются показатели состояния процесса загрузки.
+//
+Функция ПолучитьДанные(СостояниеОбмена, ПоказателиОбмена)
+
+ ДанныеОСоединении = ОбменВызовСервераПовтИсп.ПолучитьСоединение(СостояниеОбмена);
+ СостояниеОбмена = ПолучитьПараметрыСостоянияОбмена();
+
+ ПолучитьДанныеJSON(ДанныеОСоединении, СостояниеОбмена);
+
+ // Обновим показатели обмена
+ Если СостояниеОбмена.ОбъемПолученныхДанных = 0 Тогда
+ ПоказателиОбмена.КоличествоПустыхПакетов = ПоказателиОбмена.КоличествоПустыхПакетов + 1;
+
+ Иначе
+ ПоказателиОбмена.КоличествоПакетовСДанными = ПоказателиОбмена.КоличествоПакетовСДанными + 1;
+
+ ВремяВСекундах = Формат(СостояниеОбмена.ВремяЗагрузкиДанных / 1000, "ЧЦ=15; ЧДЦ=2; ЧГ=");
+ ОбъемВКб = Формат(СостояниеОбмена.ОбъемПолученныхДанных / 1024, "ЧЦ=15; ЧДЦ=2; ЧГ=");
+
+ Если СостояниеОбмена.ВремяЗагрузкиДанных = 0 Тогда
+ Скорость = 0;
+ Иначе
+ Скорость =
+ (СостояниеОбмена.ОбъемПолученныхДанных / 1024) / (СостояниеОбмена.ВремяЗагрузкиДанных / 1000);
+ Скорость = Формат(Скорость, "ЧЦ=15; ЧДЦ=2; ЧГ=");
+ КонецЕсли;
+
+ ТекстИнформации =
+ СтрШаблон(
+ НСтр("ru = 'Получена часть сообщения обмена.
+ |Объем данных: %1 кб
+ |Затраченное время : %2 сек.
+ |Скорость: %3 кб/сек';
+ |en = 'Data part arrived:
+ |Data volume: %1 kb
+ |Elapsed time: %2 sec
+ |Speed: %3 kb/sec'"),
+ ОбъемВКб, ВремяВСекундах, Скорость);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ ТекстИнформации);
+
+ КонецЕсли;
+
+ ПоказателиОбмена.КоличествоИтерацийОбмена = ПоказателиОбмена.КоличествоИтерацийОбмена + 1;
+
+ ПоказателиОбмена.ОбъемПолученныхДанных = ПоказателиОбмена.ОбъемПолученныхДанных
+ + СостояниеОбмена.ОбъемПолученныхДанных;
+
+ ПоказателиОбмена.ВремяЗагрузкиДанных = ПоказателиОбмена.ВремяЗагрузкиДанных
+ + СостояниеОбмена.ВремяЗагрузкиДанных;
+
+ Возврат СостояниеОбмена.ОбъемПолученныхДанных;
+
+КонецФункции
+
+
+// Выполняет обработку очередного сообщения
+//
+// Параметры:
+// ДатаНачалаСинхронизации - дата и время начала процесса синхронизации.
+// СведенияОЗагруженныхДанных - структура,описывающая загруженные данные.
+//
+Процедура ОбработатьСледующееСообщение(ДатаНачалаСинхронизации, СведенияОЗагруженныхДанных)
+
+ Сообщение = РегистрыСведений.ПолученныеДанныеОбмена.ПолучитьСообщение();
+
+ ОбменОбработкаСообщений.ОбработатьСообщение(Сообщение, СведенияОЗагруженныхДанных);
+
+ РегистрыСведений.ПолученныеДанныеОбмена.УдалитьСообщение(Сообщение.ИдентификаторСообщения);
+
+ Если ЗначениеЗаполнено(Константы.ДатаПоследнегоОбновления.Получить()) Тогда
+ Константы.ДатаПоследнегоОбновления.Установить(ДатаНачалаСинхронизации);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Выполняет предварительный анализ полученных данных.
+//
+// Параметры:
+// СведенияОЗагруженныхДанных - Структура - Кэш данных синхронизации;
+//
+// Возвращаемое значение:
+// Булево - Признак того, что в сообщении есть данные.
+//
+Функция ПросмотретьДанные(СведенияОЗагруженныхДанных)
+
+ НачалоОперации = ТекущаяДата();
+
+ КоличествоЗагруженныхСообщений = ПолучитьКоличествоСообщений();
+ ВСообщенияхЕстьДанные = Ложь;
+
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВсегоПолученоСообщений = КоличествоЗагруженныхСообщений;
+
+ Для Счетчик = 1 По КоличествоЗагруженныхСообщений Цикл
+
+ ЕстьДанные = ПросмотретьСледующееСообщение(Счетчик, СведенияОЗагруженныхДанных);
+ ВСообщенияхЕстьДанные = ВСообщенияхЕстьДанные Или ЕстьДанные;
+
+ КонецЦикла;
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Просмотр сообщений'; en = 'Preview messages'"),
+ НачалоОперации,
+ ТекущаяДата());
+
+ Возврат ВСообщенияхЕстьДанные;
+
+КонецФункции
+
+
+// Получает количество различных сообщений, части которых хранятся в регистре ЗагруженныеЧастиСообщений.
+//
+Функция ПолучитьКоличествоСообщений()
+
+ МассивУникальныхИдентификаторов = Новый Массив();
+ Выборка = РегистрыСведений.ПолученныеДанныеОбмена.Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+ Если МассивУникальныхИдентификаторов.Найти(Выборка.ИдентификаторСообщения) = Неопределено Тогда
+ МассивУникальныхИдентификаторов.Добавить(Выборка.ИдентификаторСообщения);
+ КонецЕсли;
+ КонецЦикла;
+
+ Возврат МассивУникальныхИдентификаторов.Количество();
+
+КонецФункции
+
+// Выполняет чтение очередного сообщения из входящей очереди и получает количество новых данных.
+//
+// Параметры:
+// СведенияОЗагруженныхДанных - Структура, описывающая загружаемые данные;
+// КоличествоОбработанныхОбъектов - общее количество объектов в сообщении;
+// НовыеДанные - массив ссылок на новые данные;
+// НовыеПисьма - количество новых писем;
+// НовыеЗадачи - количество новых задач;
+// НовыеЗаписиКалендаря - количество новых записей календаря.
+//
+Функция ПросмотретьСледующееСообщение(Счетчик, СведенияОЗагруженныхДанных)
+
+ // Обработка загруженных сообщений
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Просмотр сообщения'; en = 'Preview message'"));
+
+ Сообщение = РегистрыСведений.ПолученныеДанныеОбмена.ПолучитьСообщение(Счетчик);
+
+ Возврат ПросмотретьСообщение(Сообщение, СведенияОЗагруженныхДанных);
+
+КонецФункции
+
+// Записывает полученные с сервера данные.
+//
+// Параметры:
+// ВСообщенияхЕстьДанные - Булево - Признак наличия данных в сообщении обмена;
+// СведенияОЗагруженныхДанных - Структура - Кэш данных синхронизации;
+// ДатаНачалаСинхронизации - Дата - Дата и время начала процесса обмена.
+//
+// Возвращаемое значение:
+// Число - количество загруженных сообщений.
+//
+Функция ЗаписатьДанные(ВСообщенияхЕстьДанные, СведенияОЗагруженныхДанных, ДатаНачалаСинхронизации)
+
+ НачалоОперации = ТекущаяДата();
+
+ Если Не ВСообщенияхЕстьДанные Тогда
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Данных для обработки нет'; en = 'There are no data for processing'"));
+
+ ОчисткаБазыДанныхВызовСервера.ОчиститьПринятыеДанные();
+
+ КоличествоЗагруженныхСообщений = 0;
+
+ Иначе
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Начало записи загруженных данных'; en = 'The beginning of record of the loaded data'"));
+
+ КоличествоЗагруженныхСообщений = ПолучитьКоличествоСообщений();
+
+ Для Счетчик = 1 По КоличествоЗагруженныхСообщений Цикл
+
+ ОбработатьСледующееСообщение(ДатаНачалаСинхронизации, СведенияОЗагруженныхДанных);
+
+ КонецЦикла;
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Конец записи загруженных данных'; en = 'loaded data are written down'"));
+
+ КонецЕсли;
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Запись данных'; en = 'Data record'"), НачалоОперации, ТекущаяДата());
+
+ Возврат КоличествоЗагруженныхСообщений;
+
+КонецФункции
+
+// Выполняет финальные действия после обмена с сервером.
+//
+// Параметры:
+// СведенияОЗагруженныхДанных - Структура, описывающая загружаемые данные;
+// РежимСинхронизации - Строка - Текущий режим синхронизации.
+//
+Процедура ЗавершитьОтправкуИПолучение(СведенияОЗагруженныхДанных, РежимСинхронизации)
+
+ Начало = ТекущаяДата();
+
+ Если Не РежимСинхронизации = "ОтключитьУстройство" Тогда
+
+ ИнформацияОПакете = "";
+
+ //Если СведенияОЗагруженныхДанных.ПоказателиОбмена.КоличествоОбработанныхОбъектов = 0 Тогда
+ Константы.ДатаПоследнегоОбновления.Установить(ТекущаяДата());
+ //КонецЕсли;
+
+ //ДатаСинхронизацииУстановлена =
+ // ЗначениеЗаполнено(Константы.ДатаПоследнегоОбновления.Получить());
+
+ //Если Не ДатаСинхронизацииУстановлена Тогда
+ // Константы.ДатаПоследнегоОбновления.Установить(ТекущаяДата());
+ //КонецЕсли;
+
+ КонецЕсли;
+
+ ДобавитьИнформациюОЗамереВремени(
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.ВременныеПоказатели,
+ НСтр("ru = 'Окончание синхронизации'; en = 'End'"), Начало);
+
+ ПолучитьОписаниеСеансаОбмена(СведенияОЗагруженныхДанных.ПоказателиОбмена);
+
+ СборСтатистикиВызовСервера.ОтправитьСтатистику();
+
+ Если СведенияОЗагруженныхДанных.ЕстьОшибки Тогда
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "ЕстьНеотправленныеДанные", Истина);
+ Иначе
+ ОбщегоНазначенияВызовСервера.ОчиститьОчередьСообщенийДляСервера();
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "ЕстьНеотправленныеДанные", Ложь);
+ КонецЕсли;
+
+ ОбщегоНазначенияВызовСервера.ОбновитьПовторноИспользуемыеЗначенияСервер();
+
+КонецПроцедуры
+
+
+// Сообщает пользователю текущую информацию о процессе синхронизации с сервером.
+//
+// Параметры:
+// ТекущаяСтадия - Строка - Текущая стадия в процедуре синхронизации;
+// ВыполнениеВФоне - Булево - Признак, что сообщения пользователю идут из фонового задания;
+// ЕстьОшибки - Булево - Признак наличия ошибок при обмене;
+// ЕстьДанные - Булево - Признак наличия данных загруженных с сервера;
+// Данные - Массив[4], Строка - Данные, которые нужно передать на клиент.
+//
+Процедура СообщитьПользователю(ТекущаяСтадия, ВыполнениеВФоне, ЕстьОшибки = Ложь, ЕстьДанные = Ложь, Данные = Неопределено)
+
+ Если Не ВыполнениеВФоне Тогда
+ Возврат;
+ КонецЕсли;
+
+ СодержимоеСообщения = Новый Структура("ТекущаяСтадия, ЕстьОшибки, ЕстьДанные, Данные",
+ ТекущаяСтадия, ЕстьОшибки, ЕстьДанные, Данные);
+
+ //Если ТипЗнч(Данные) = Тип("Структура") Тогда
+ // СодержимоеСообщения.Данные = ;
+ //
+ // ТекстСообщения =
+ // СтрШаблон(
+ // "%1;%2;%3;%4",
+ // ТекущаяСтадия,
+ // ЕстьОшибки,
+ // ЕстьДанные,
+ //
+ //
+ //
+ // СтрШаблон("%1,%2,%3,%4,%5,%6,%7,%8,%9,%10", Данные[0],Данные[1], Данные[2], Данные[3], Данные[4], Данные[5], Данные[6], Данные[7], Данные[8], Данные[9]));
+ //Иначе
+ // ТекстСообщения =
+ // СтрШаблон(
+ // "%1;%2;%3;%4",
+ // ТекущаяСтадия, ЕстьОшибки, ЕстьДанные, Данные);
+ //КонецЕсли;
+
+ Сообщение = Новый СообщениеПользователю();
+ Сообщение.Текст = ОбщегоНазначенияСервер.ОбъектВJSON(СодержимоеСообщения);
+
+ Сообщение.Сообщить();
+
+КонецПроцедуры
+
+Процедура ОтправитьДанныеJSON(СостояниеОбмена, ДанныеОСоединении, СведенияОЗагруженныхДанных)
+
+ Соединение = ДанныеОСоединении.Соединение;
+ НомерВерсииСервиса = ДанныеОСоединении.ВерсияСервиса;
+
+ ИдентификаторПоследнегоЗагруженногоСообщения =
+ Строка(Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Получить());
+
+ НомерПоследнейЗагруженнойЧастиСообщения =
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Получить();
+
+ ИнформацияОбУстройстве = ПолучитьПредставлениеУстройства();
+ КодУстройства = Константы.КодУстройства.Получить();
+
+ Сообщения = Новый Массив;
+ Выборка = РегистрыСведений.ОчередьСообщенийНаСервер.Выбрать(, "МоментВремени");
+
+ Пока Выборка.Следующий() Цикл
+ // ОбъектСообщение = СоздатьОбъект("XRequest", НомерВерсииСервиса, Прокси);
+ ОбъектСообщение = Новый Структура("ClientCode, ExchangeData, LastResponseID, LastResponsePartIndex");
+ ОбъектСообщение.ClientCode = КодУстройства;
+ ОбъектСообщение.ExchangeData = Выборка.Данные.Получить();
+ ОбъектСообщение.LastResponseID = "0";
+ ОбъектСообщение.LastResponsePartIndex = 1;
+
+ СтруктураСообщение = Новый Структура();
+ СтруктураСообщение.Вставить("Идентификатор", Выборка.Идентификатор);
+ СтруктураСообщение.Вставить("Сообщение" , ОбъектСообщение);
+
+ Сообщения.Добавить(СтруктураСообщение);
+ КонецЦикла;
+
+
+ Если Сообщения.Количество() > 0 Тогда
+ ПоследнийЭлементМассива = Сообщения[Сообщения.Количество() - 1];
+ ПоследнийЭлементМассива.Сообщение.LastResponseID = ИдентификаторПоследнегоЗагруженногоСообщения;
+ Иначе
+ // Формируем пустое сообщение с указанием используемой версии обмена
+
+ ОбъектСообщение = Новый Структура("ClientCode, ExchangeData, LastResponseID, LastResponsePartIndex");
+ ОбъектСообщение.ClientCode = КодУстройства;
+
+ ОбъектСообщение.ExchangeData = Новый Структура();
+ ОбменЭкспорт.ИнформацияОКлиенте(ОбъектСообщение.ExchangeData);
+
+ ОбъектСообщение.LastResponseID = ИдентификаторПоследнегоЗагруженногоСообщения;
+ ОбъектСообщение.LastResponsePartIndex = 1;
+
+ СтруктураСообщение = Новый Структура();
+ СтруктураСообщение.Вставить("Идентификатор", Неопределено);
+ СтруктураСообщение.Вставить("Сообщение" , ОбъектСообщение);
+
+ Сообщения.Добавить(СтруктураСообщение);
+ КонецЕсли;
+
+ МоментВремени = РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(
+ НСтр("ru = 'На сервер отправлено сообщений: %1';
+ |en = 'Send message to server: %1'"),
+ Сообщения.Количество()));
+
+ Для Каждого СтруктураСообщение Из Сообщения Цикл
+ Попытка
+ Заголовки = Новый Соответствие();
+ Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
+
+ СтруктураURI = ОбщегоНазначенияКлиентСервер.СтруктураURI(
+ СокрЛП(Константы.АдресЦентральнойБазы.Получить()) + "/hs/mobile/put");
+
+ Запрос = Новый HTTPЗапрос(СтруктураURI.ПутьНаСервере, Заголовки);
+ Запрос.УстановитьТелоИзСтроки(
+ ОбщегоНазначенияСервер.ОбъектВJSON(СтруктураСообщение.Сообщение));
+
+ ОтветСервера = Соединение.ОтправитьДляОбработки(Запрос);
+ Если ОтветСервера.КодСостояния = 200 Тогда
+ ОбработатьДанныеОбмена(ОтветСервера, СостояниеОбмена)
+ Иначе
+ ТекстИсключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ошибка отправки сообщения. Код ответа: %1, %2'"),
+ ОтветСервера.КодСостояния,
+ ОтветСервера.ПолучитьТелоКакСтроку());
+
+ ВызватьИсключение ТекстИсключения;
+ КонецЕсли;
+ Исключение
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(
+ ПолучитьПредставлениеОшибкиПриПодключении(ИнформацияОбОшибке()));
+
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+
+ Возврат;
+ КонецПопытки;
+ КонецЦикла;
+
+ СостояниеОбмена.ЕстьОшибки = Ложь;
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Сообщение отправлено на сервер'"));
+
+КонецПроцедуры
+
+// Начинает процесс получения данных по протоколу DMX.
+//
+// Параметры:
+// ДанныеОПрокси - Структура - Параметры подключения;
+// СостояниеОбмена - Структура - Параметры текущего вызова сервера.
+//
+Процедура ПолучитьДанныеJSON(ДанныеОПрокси, СостояниеОбмена)
+
+ Соединение = ДанныеОПрокси.Соединение;
+
+ // Зафиксируем время начала операции
+ НачалоОперации = ТекущаяУниверсальнаяДатаВМиллисекундах();
+
+ Заголовки = Новый Соответствие();
+ Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
+
+ ПараметрыЗапроса = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ "?ClientCode=%1&LastResponseID=%2&LastResponsePartIndex=%3",
+ Константы.КодУстройства.Получить(),
+ Строка(Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Получить()),
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Получить());
+
+ СтруктураURI = ОбщегоНазначенияКлиентСервер.СтруктураURI(
+ СокрЛП(Константы.АдресЦентральнойБазы.Получить()) + "/hs/mobile/get" + ПараметрыЗапроса);
+
+ Запрос = Новый HTTPЗапрос(СтруктураURI.ПутьНаСервере, Заголовки);
+
+ ОтветСервера = Соединение.Получить(Запрос);
+ Если ОтветСервера.КодСостояния = 200 Тогда
+ СостояниеОбмена.ВремяЗагрузкиДанных = ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоОперации;
+ ОбработатьДанныеОбмена(ОтветСервера, СостояниеОбмена);
+ Иначе
+ ТекстИсключения = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Ошибка отправки сообщения. Код ответа: %1, %2'"),
+ ОтветСервера.КодСостояния,
+ ОтветСервера.ПолучитьТелоКакСтроку());
+
+ ВызватьИсключение ТекстИсключения;
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Получает представление ошибки для пользователя.
+//
+// Параметры:
+// Инфо - Информация о ошибке - информация о произошедшей ошибке;
+//
+// Возвращаемое значение:
+// Строка - Пользовательское представление ошибки.
+//
+Функция ПолучитьПредставлениеОшибкиПриПодключении(Инфо)
+
+ ТекстИсключенияПодробно = ПодробноеПредставлениеОшибки(Инфо);
+
+ Если СтрНайти(НРег(ТекстИсключенияПодробно), "работа с мобильными клиентами выключена") > 0 Тогда
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'На сервере не включена работа с мобильными клиентами.
+ |Обратитесь к администратору.'
+ |; en = 'Mobile client support on server is disabled.
+ |Contact your administrator.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ ИначеЕсли СтрНайти(НРег(ТекстИсключенияПодробно), "вам не разрешен доступ к программе") > 0 Тогда
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Указанному пользователю не разрешен доступ с использованием мобильного клиента.
+ |Обратитесь к администратору.'
+ |; en = 'You don''t have access previlegies to database with mobile device.
+ |Contact your administrator.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ ИначеЕсли СтрНайти(НРег(ТекстИсключенияПодробно), "xml") > 0 Тогда
+
+ ОбщееОписаниеОшибки = СтрШаблон(
+ НСтр("ru = 'При отправке данных на сервер возникла ошибка.
+ |Вероятно, не работает интернет-соединение или запрещен доступ к Документообороту по адресу %1.
+ |Повторите попытку синхронизации.
+ |Если повторные попытки синхронизации не удаются, обратитесь к администратору.
+ |'; en = 'An error occured while send data to server
+ |Probably internet connection %1 is does not work properly or mobile client support on server is disabled
+ |Try again later
+ |If another attempt will be failed, contact your administrator'"),
+ Константы.АдресЦентральнойБазы.Получить());
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ Иначе
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'При отправке данных на сервер возникла ошибка.'
+ |; en = 'An error occured while send data to server'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ КонецЕсли;
+
+ Возврат ТекстОшибки;
+
+КонецФункции
+
+// Выполняет диспетчеризацию просмотра сообщения в зависимости от версии формата.
+//
+// Параметры:
+// Сообщение - Структура - параметры сообщения обмена
+// * ИмяФайла - Строка - Имя временного файла с данными сообщения;
+// * ИдентификаторСообщения - Строка(36) - Идентификатор загруженного сообщения;
+// СведенияОЗагруженныхДанных - Структура - сеансовые данные обмена.
+//
+// Возвращаемое значение:
+// Истина - Если в сообщении есть данные для загрузки.
+//
+Функция ПросмотретьСообщение(Сообщение, СведенияОЗагруженныхДанных)
+
+ Если Сообщение.Данные <> Неопределено Тогда
+ Возврат ОбменОбработкаСообщений.ПросмотретьСообщение(Сообщение, СведенияОЗагруженныхДанных);
+ Иначе
+ Возврат Ложь;
+ КонецЕсли;
+
+КонецФункции
+
+
+// Записывает принятую часть сообщения от сервера в регистр и добавляет имя этого файла в
+// массив имен частей.
+//
+// Параметры:
+// ОбъектXDTOЧастьСообщения - ОбъектXDTO - Очередная часть сообщения, полученная с сервера;
+// СостояниеОбмена - Структура - Параметры текущего вызова сервера;
+// ВремяЗакачки - Число - Время скачивания очередной части.
+//
+Процедура ОбработатьДанныеОбмена(HTTPОтвет, СостояниеОбмена)
+
+ СтрокаJSON = HTTPОтвет.ПолучитьТелоКакСтроку();
+ Данные = ОбщегоНазначенияСервер.ОбъектИзJSON(СтрокаJSON);
+
+ // Запись данных части сообщения в регистр
+ Если Данные.ExchangeData <> Неопределено Тогда
+
+ ИдентификаторСообщения = Новый УникальныйИдентификатор(Данные.ResponseID);
+
+ ДанныеСообщения = Новый ХранилищеЗначения(Данные.ExchangeData, Новый СжатиеДанных(9));
+
+ РегистрыСведений.ПолученныеДанныеОбмена.ДобавитьЗапись(
+ ИдентификаторСообщения,
+ Данные.PartIndex,
+ ДанныеСообщения);
+
+ Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Установить(
+ ИдентификаторСообщения);
+
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Установить(
+ Данные.PartIndex);
+
+ СостояниеОбмена.ОбъемПолученныхДанных = СтрДлина(СтрокаJSON);
+ КонецЕсли;
+
+ СостояниеОбмена.КоличествоСообщенийВОчереди = Данные.PartCount;
+ СостояниеОбмена.ПродолжитьЗагрузку = (Данные.PartIndex = -1 Или Не Данные.PartCount = 0);
+
+КонецПроцедуры
+
+
+// Получает текст описания сеанса обмена.
+//
+// Параметры:
+// СведенияОЗагруженныхДанных - Структура - Данные о операциях проведенных в сеансе.
+//
+// Возвращаемое значение:
+// Строка - Текстовое представление сеанса обмена.
+//
+Процедура ПолучитьОписаниеСеансаОбмена(ПоказателиОбмена)
+
+ ВыводитьРасширенныйПротокол = ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций();
+
+ ИнформацияОПакете = НСтр("ru = 'Сводка по загруженным по объектам'; en = 'The report on loaded on objects'");
+
+ // Отсортируем показатели объектов по алфавиту
+ Список = Новый СписокЗначений();
+ Для Каждого Показатель Из ПоказателиОбмена.СчетчикиОбъектов Цикл
+ Список.Добавить(Показатель.Значение, Показатель.Ключ);
+ КонецЦикла;
+ Список.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
+
+ Для Каждого ЭлементДанных Из Список Цикл
+
+ ПоказателиОбъекта = ЭлементДанных.Значение;
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Тип: %1, кол-во: %2'; en = 'Type: %1, count: %2'"),
+ ЭлементДанных.Представление,
+ ПоказателиОбъекта.Количество);
+
+ КонецЦикла;
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Всего объектов: %1'; en = 'Total: %1'"),
+ ПоказателиОбмена.КоличествоЗагружаемыхОбъектов);
+
+ Начало = ПоказателиОбмена.ВременныеПоказатели[0].Начало;
+ Конец = ПоказателиОбмена.ВременныеПоказатели[
+ ПоказателиОбмена.ВременныеПоказатели.ВГраница()].Начало;
+ ЗатраченноеВремя = Конец - Начало;
+
+ Если ВыводитьРасширенныйПротокол Тогда
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС + Символы.ПС
+ + НСтр("ru = '#Подробная информация для администратора:#'");
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Обращений к серверу: %1
+ |Получено сообщений с сервера: %2
+ |Объем полученных файлов: %4 кб
+ |Общий объем данных: %3 кб
+ |Общее количество объектов в сеансе обмена: %5'
+ |; en = 'Appeals to the server: %1
+ |Messages arrived from server: %2
+ |Total amount of the received files: %4 кб
+ |Total amount of data: %3 кб
+ |Total of objects in session: %5'"),
+ ПоказателиОбмена.КоличествоИтерацийОбмена,
+ ПоказателиОбмена.ВсегоПолученоСообщений,
+ Формат(ПоказателиОбмена.ОбъемПолученныхДанных /1024, "ЧЦ=15"),
+ Формат(ПоказателиОбмена.ОбъемПолученныхФайлов / 1024, "ЧЦ=15"),
+ ПоказателиОбмена.КоличествоЗагружаемыхОбъектов);
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Новых писем: %1 (из них не прочитано %5)
+ |Новых задач: %2
+ |Новый записей календаря: %3
+ |Новых объектов контроля: %4';
+ |en = 'New email: %1 (unread %5)
+ |New task %2
+ |New calendar record %3
+ |New monitoring card %4'"),
+ ПоказателиОбмена.НовыеПисьма,
+ ПоказателиОбмена.НовыеЗадачи,
+ ПоказателиОбмена.НовыеЗаписиКалендаря,
+ ПоказателиОбмена.НовыеОбъектыКонтроля,
+ ПоказателиОбмена.НеПрочитанныеПисьма);
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС + Символы.ПС
+ + НСтр("ru = 'Показатели обмена по операциям'");
+
+ Для Каждого Показатель Из ПоказателиОбмена.ВременныеПоказатели Цикл
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = '%2: %1'; en = '%2: %1'"),
+ Показатель.Описание, Формат(Показатель.Начало, "ДЛФ=T"));
+
+ Если Не Показатель.Конец = Неопределено Тогда
+ ИнформацияОПакете = ИнформацияОПакете
+ + " " + СтрШаблон(
+ НСтр("ru = '(%1 сек)'; en = '(%1 s)'"),
+ (Показатель.Конец - Показатель.Начало));
+ КонецЕсли;
+
+ КонецЦикла;
+
+ ИнформацияОПакете = ИнформацияОПакете + Символы.ПС
+ + СтрШаблон(
+ НСтр("ru = 'Всего затрачено времени: %1 сек'; en = 'Total time elapsed: %1 s'"),
+ (ЗатраченноеВремя));
+
+ КонецЕсли;
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("ПоказательРаботы.ВремяСинхронизации",
+ ЗатраченноеВремя);
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("ПоказательРаботы.ЗагруженоОбъектов",
+ ПоказателиОбмена.КоличествоЗагружаемыхОбъектов);
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("ПоказательРаботы.ОбъемПолученныхДанных",
+ ПоказателиОбмена.ОбъемПолученныхДанных);
+
+ МоментВремени = РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(ИнформацияОПакете);
+
+ Если ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ РаботаСПротоколомСобытийВызовСервера.УстановитьПризнакПоказаСобытияПослеСинхронизации(МоментВремени);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Добавляет информацию о замере времени для протокола.
+//
+Процедура ДобавитьИнформациюОЗамереВремени(
+ ВременныеПоказатели, Описание, Начало, Конец = Неопределено)
+
+ Результат = Новый Структура();
+ Результат.Вставить("Описание", Описание);
+ Результат.Вставить("Начало" , Начало);
+ Результат.Вставить("Конец" , Конец);
+
+ ВременныеПоказатели.Добавить(Результат);
+
+КонецПроцедуры
+
+// Формирует представление файла с указанием его размера.
+//
+// Параметры:
+// ПредставлениеФайла - Строка - Представление файла;
+// Размер - Число - Размер файла.
+//
+Процедура СформироватьПредставлениеРазмераФайла(ПредставлениеФайла, Размер) Экспорт
+
+ Если Не ЗначениеЗаполнено(Размер) Тогда
+ Размер = 0;
+ КонецЕсли;
+
+ Если Размер >= 0 И Размер < 1024 Тогда
+
+ РазмерСтрокой = Формат(Размер, "ЧГ=");
+ Представление = НСтр("ru = 'б'; en = 'b'");
+
+ ИначеЕсли Размер >= 1024 И Размер < 1024 * 1024 Тогда
+ РазмерСтрокой = Формат(Размер/1024, "ЧДЦ=0; ЧГ=");
+ Представление = НСтр("ru = 'Кб'; en = 'Kb'");
+
+ ИначеЕсли Размер >= 1024*1024 Тогда
+
+ РазмерСтрокой = Формат(Размер/(1024*1024), "ЧДЦ=0; ЧГ=");
+ Представление = НСтр("ru = 'Мб'; en = 'Mb'");
+
+ КонецЕсли;
+
+ ПредставлениеФайла = СтрШаблон("%1 %2",
+ РазмерСтрокой, Представление);
+
+КонецПроцедуры
+
+// Обновляет данные файла, данными файла-основания полученным с сервера
+//
+// Параметры:
+// Объект - Ссылка - Ссылка на файл-основание.
+//
+Процедура ОбновитьПодчиненныеФайлы(Объект) Экспорт
+
+ СтруктураОтбора = Новый Структура;
+ СтруктураОтбора.Вставить("ФайлОснование", Объект.Ссылка);
+
+ ВыборкаФайлыОснование = Справочники.Файлы.Выбрать(,, СтруктураОтбора);
+ Пока ВыборкаФайлыОснование.Следующий() Цикл
+
+ ФайлОбъект = ВыборкаФайлыОснование.Ссылка.ПолучитьОбъект();
+ ФайлОбъект.Данные = Объект.Данные;
+ ФайлОбъект.ТолькоЗаголовок = Объект.ТолькоЗаголовок;
+
+ Если Не ФайлОбъект.ТолькоЗаголовок Тогда
+ ФайлОбъект.ФайлОснование = Справочники.Файлы.ПустаяСсылка();
+ КонецЕсли;
+
+ ФайлОбъект.Записать();
+
+ РегистрыСведений.ДатыЗагрузкиОбъектов.ОбновитьДатуПоследнегоИзмененияОбъекта(ФайлОбъект.Ссылка);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+// Получить представление устройства для обмена.
+//
+// Возвращаемое значение:
+// Строка - Представление устройства в виде строки.
+//
+Функция ПолучитьПредставлениеУстройства()
+
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+ ПредставлениеУстройства = СтрШаблон(
+ НСтр("ru = 'Версия:%5, ОС:%2, ОЗУ:%3, WS:%1, Экран:%4""';
+ |en = 'Version:%5, OS:%2, RAM:%3, WS:%1, Screen:%4""'"),
+ ИмяКомпьютера(),
+ СистемнаяИнформация.ВерсияОС,
+ Строка(СистемнаяИнформация.ОперативнаяПамять),
+ Формат(ЭкранКлиентСервер.ДиагональЭкрана(),"ЧЦ=3; ЧДЦ=1"),
+ Метаданные.Версия);
+
+ ПредставлениеУстройстваПослеОбработки = ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ПредставлениеУстройства);
+
+ Если Не ПредставлениеУстройстваПослеОбработки = ПредставлениеУстройства Тогда
+
+ ТекстПредупреждения = СтрШаблон(
+ НСтр("ru = 'Представление устройства содержит недопустимые символы:
+ |Возможно задано неверное имя устройства
+ |Должно быть: %1,
+ |Есть: %2';
+ |en = 'Wrong character in device name
+ |Must be: %1
+ |Presently: %2'"),
+ ПредставлениеУстройстваПослеОбработки,
+ ПредставлениеУстройства);
+
+ МоментВремени = РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(ТекстПредупреждения);
+
+ РаботаСПротоколомСобытийВызовСервера.УстановитьПризнакПоказаСобытияПослеСинхронизации(МоментВремени);
+
+ КонецЕсли;
+
+ Возврат ПредставлениеУстройстваПослеОбработки;
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
new file mode 100644
index 0000000..b8f64dd
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменВызовСервераПовтИсп
+
+
+ ru
+ Обмен вызов сервера повт исп
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DuringSession
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
new file mode 100644
index 0000000..c210097
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
@@ -0,0 +1,1067 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Получает текущую версию сервиса которая будет использоваться в сессии обмена.
+//
+// Возвращаемое значение:
+// Строка - Используемая для обмена версия сервиса.
+//
+Функция ПолучитьВерсиюСервиса() Экспорт
+
+ // Если вызов функции не первый, то получим версию сохраненную ранее
+ ВерсияСервиса = ПараметрыСеанса.ВерсияСервиса;
+ Если ЗначениеЗаполнено(ВерсияСервиса) Тогда
+ Возврат ВерсияСервиса;
+ КонецЕсли;
+
+ // Если вызов функции в сеансе обмена первый раз, проверяем подключались ли мы уже ранее,
+ // и если да, то установим версию этого подключению в качестве используемой.
+ ИспользуемаяВерсияФорматаОбмена = Константы.ИспользуемаяВерсияФорматаОбмена.Получить();
+ Если ЗначениеЗаполнено(ИспользуемаяВерсияФорматаОбмена) Тогда
+
+ ТекстИнформации =
+ СтрШаблон(
+ НСтр("ru = 'Ранее использующаяся версия: %1'; en = 'Previously used version: %1'"),
+ ИспользуемаяВерсияФорматаОбмена);
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(ТекстИнформации);
+
+ КонецЕсли;
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(
+ НСтр("ru = 'Начато получение версии сервиса'; en = 'Started getting version of the service'"));
+
+ Адрес = СокрЛП(Константы.АдресЦентральнойБазы.Получить());
+ Если Адрес = ""
+ Или НРег(Адрес) = "http://"
+ Или НРег(Адрес) = "https://" Тогда
+
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(
+ НСтр("ru = 'Не удалось получить версию сервиса, т.к. адрес не задан'"));
+
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+
+ Возврат Неопределено;
+
+ КонецЕсли;
+
+ Пользователь = СокрЛП(Константы.ПользовательЦентральнойБазы.Получить());
+ Пароль = Константы.ПарольПользователя.Получить();
+ Адрес = НормализоватьАдресПриОтсутствииПрефикса(Адрес);
+
+ Если ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+
+ ТекстСообщения =
+ НСтр("ru = 'Адрес: %1
+ |Пользователь: %2';
+ |en = 'Addres: %1
+ |User: %2'");
+
+ ТекстСообщения = СтрШаблон(
+ ТекстСообщения, Адрес, Пользователь);
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(ТекстСообщения);
+
+ КонецЕсли;
+
+ // Добавление адресов для обратной совместимости
+ АдресСервиса = Адрес + "/hs/mobile/version";
+ СтруктураURI = ОбщегоНазначенияКлиентСервер.СтруктураURI(АдресСервиса);
+
+ Соединение = Неопределено;
+
+ Попытка
+ Если ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(АдресСервиса);
+ КонецЕсли;
+
+ Соединение = Новый HTTPСоединение(СтруктураURI.Хост, СтруктураURI.Порт, Пользователь, Пароль, , 60);
+ Исключение
+ Инфо = ИнформацияОбОшибке();
+ ПодробноеОписание = ПодробноеПредставлениеОшибки(Инфо);
+ Если ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'При попытке подключения к сервису версий произошла ошибка.'
+ |; en = 'An error occured while connection to version services'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеОписание);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+ КонецЕсли;
+ КонецПопытки;
+
+ Если Соединение = Неопределено Тогда
+ ТекстСообщения =
+ НСтр("ru = 'Не удалось подключиться к сервису версий.
+ |Проверьте настройки подключения и попробуйте подключиться снова.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ТекстСообщения, ПодробноеОписание);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+ ВызватьИсключение ТекстОшибки;
+ Иначе
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(
+ НСтр("ru = 'Адрес сервиса: %1'; en = 'Server addres: %1'"),
+ АдресСервиса));
+
+ КонецЕсли;
+
+ Заголовки = Новый Соответствие();
+ Заголовки.Вставить("Content-Type", "application/json; charset=utf-8");
+ ОтветСервера = Соединение.Получить(Новый HTTPЗапрос(СтруктураURI.ПутьНаСервере, Заголовки));
+
+ Если ОтветСервера.КодСостояния <> 200 Тогда
+ Если ОтветСервера.КодСостояния = 401 Тогда
+ ТекстСообщения =
+ НСтр("ru = 'Неверные имя пользователя или пароль.
+ |Проверьте настройки подключения и попробуйте снова.'");
+
+ Иначе
+ ТекстСообщения =
+ СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
+ НСтр("ru = 'Код ответа сервера: %1; %2'"),
+ ОтветСервера.КодСостояния,
+ ОтветСервера.ПолучитьТелоКакСтроку());
+ КонецЕсли;
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ТекстСообщения, ПодробноеОписание);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+ ВызватьИсключение ТекстОшибки;
+ КонецЕсли;
+
+ ОтветСервераДанные = ОбщегоНазначенияСервер.ОбъектИзJSON(ОтветСервера.ПолучитьТелоКакСтроку());
+ Если Не ОтветСервераДанные.Свойство("version") Тогда
+ ТекстСообщения =
+ НСтр("ru = 'Получен неверный ответ сервера'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ТекстСообщения, ПодробноеОписание);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+ ВызватьИсключение ТекстОшибки;
+ КонецЕсли;
+
+ ВерсияСервера = ОтветСервераДанные.version;
+ ВерсияКлиента = Константы.ПоддерживаемыеВерсииФорматаОбмена.Получить();
+
+ ВерсииПоддерживаемыеСервером = СтрРазделить(ВерсияСервера, ",");
+ ВерсииПоддерживаемыеКлиентом = СтрРазделить(ВерсияКлиента, ",");
+
+ ТекстСообщения =
+ НСтр("ru = 'Рабочие версии сервера: %1
+ |Рабочие версии клиента: %2';
+ |en = 'Available version of the server: %1
+ |available version of the client: %2'");
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(ТекстСообщения, ВерсияСервера,ВерсияКлиента));
+
+ Для Счетчик = 0 По ВерсииПоддерживаемыеСервером.ВГраница() Цикл
+ Индекс = ВерсииПоддерживаемыеСервером.ВГраница()-Счетчик;
+
+ Если ВерсииПоддерживаемыеКлиентом.Найти(ВерсииПоддерживаемыеСервером[Индекс]) <> Неопределено Тогда
+
+ // Проверим, что выбранная версия не ниже ранее использовавшейся.
+ Если ЗначениеЗаполнено(ИспользуемаяВерсияФорматаОбмена)
+ И ИспользуемаяВерсияФорматаОбмена > ВерсииПоддерживаемыеСервером[Индекс] Тогда
+
+ ТекстОшибки =
+ СтрШаблон(
+ НСтр("ru = 'Ошибка при подключении.
+ |Нельзя подключиться выбранной версией формата (%1), так как ранее
+ |уже было осуществлено подключение с более старшей версией (%2).
+ |Попробуйте выполнить подключение снова.';
+ |en = 'Connection error
+ |Used service version (%1) less than used previously (%2)
+ |Try again leter'"),
+ ВерсииПоддерживаемыеСервером[Индекс], ИспользуемаяВерсияФорматаОбмена);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(ТекстОшибки);
+
+ ВызватьИсключение ТекстОшибки;
+
+ КонецЕсли;
+
+ ПараметрыСеанса.ВерсияСервиса = ВерсииПоддерживаемыеСервером[Индекс];
+ Константы.ИспользуемаяВерсияФорматаОбмена.Установить(ВерсииПоддерживаемыеСервером[Индекс]);
+
+ Если ВерсииПоддерживаемыеСервером[Индекс] > ИспользуемаяВерсияФорматаОбмена Тогда
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(
+ НСтр("ru = 'Используемая версия сервиса (%1) обновлена (%2)';
+ |en = 'Used service version (%1) updated (%2)'"),
+ ИспользуемаяВерсияФорматаОбмена, ВерсииПоддерживаемыеСервером[Индекс]));
+ Иначе
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(
+ НСтр("ru = 'Используемая версия сервиса: %1'; en = 'Service version used: %1'"),
+ ВерсииПоддерживаемыеСервером[Индекс]));
+ КонецЕсли;
+
+ Возврат ВерсииПоддерживаемыеСервером[Индекс];
+
+ КонецЕсли;
+ КонецЦикла;
+
+ ПараметрыСеанса.ВерсияСервиса = ИспользуемаяВерсияФорматаОбмена;
+
+ ТекстИсключения =
+ СтрШаблон(
+ НСтр("ru = 'Приложение не поддерживает данную версию сервера ДО (%1).
+ |Необходимо обновить сервер до версии или использовать клиент версии 0.0.1'"),
+ ИспользуемаяВерсияФорматаОбмена);
+
+ ВызватьИсключение ТекстИсключения;
+
+КонецФункции
+
+Функция ПолучитьСоединение(СостояниеОбмена) Экспорт
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(НСтр("ru = 'Начало получения соединения'"));
+
+ ВерсияСервиса = ПараметрыСеанса.ВерсияСервиса;
+ Если Не ЗначениеЗаполнено(ВерсияСервиса) Тогда
+ ВерсияСервиса = ПолучитьВерсиюСервиса();
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(ВерсияСервиса) Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Адрес = СокрЛП(Константы.АдресЦентральнойБазы.Получить());
+ Пользователь = СокрЛП(Константы.ПользовательЦентральнойБазы.Получить());
+ Пароль = Константы.ПарольПользователя.Получить();
+
+ // Удаляем из адреса финишный слэш - т.к. он у нас есть в описании сервиса ниже.
+ // В противном случае будет ошибка при подключении.
+ Если СтрЗаканчиваетсяНа(Адрес, "/") Тогда
+ Адрес = Лев(Адрес, СтрДлина(Адрес)-1);
+ КонецЕсли;
+
+ Если Адрес = "" Тогда
+ СостояниеОбмена.ЕстьОшибки = Истина;
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Соединение =
+ ОбменВызовСервераПовтИсп.ПолучитьСоединениеДляОбмена(
+ Адрес, Пользователь, Пароль);
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(НСтр("ru = 'Установлено соединение с основной базой'"));
+
+ ДанныеОСоединении = Новый Структура;
+ ДанныеОСоединении.Вставить("Соединение", Соединение);
+ ДанныеОСоединении.Вставить("ВерсияСервиса", ВерсияСервиса);
+
+ Возврат ДанныеОСоединении;
+
+КонецФункции
+
+Функция ПолучитьСоединениеДляОбмена(Адрес, Пользователь, Пароль) Экспорт
+
+ Адрес = НормализоватьАдресПриОтсутствииПрефикса(Адрес);
+ СтруктураURI = ОбщегоНазначенияКлиентСервер.СтруктураURI(Адрес);
+ Соединение = Новый HTTPСоединение(СтруктураURI.Хост, СтруктураURI.Порт, Пользователь, Пароль, , 120);
+
+ Возврат Соединение;
+
+КонецФункции
+
+// Возвращает флаг использования расширенного протокола.
+//
+// Возвращаемое значение:
+// Булево - Признак использования подробного протоколирования операций.
+//
+Функция ИспользоватьРасширенноеПротоколированиеОпераций() Экспорт
+
+ Возврат Константы.ПодробнаяИнформацияОСинхронизации.Получить();
+
+КонецФункции
+
+
+// Получает узел обмена, на котором регистрируются изменения данных для отправки на сервер.
+//
+// Возвращаемое значение:
+// ПланыОбменаСсылка.ОбменССервером - Ссылка на узле регистрации данных для обмена.
+//
+Функция ПолучитьЦентральныйУзелОбмена() Экспорт
+
+ ЦентральныйУзелОбмена = ПланыОбмена.ОбменССервером.НайтиПоКоду(Константы.КодУстройства.Получить());
+
+ Если ЦентральныйУзелОбмена.Пустая() Тогда
+
+ НовыйУзел = ПланыОбмена.ОбменССервером.СоздатьУзел();
+ НовыйУзел.Код = Константы.КодУстройства.Получить();
+ НовыйУзел.Наименование = НСтр("ru = 'Центральный'; en = 'General'");
+ НовыйУзел.Записать();
+
+ ЦентральныйУзелОбмена = НовыйУзел.Ссылка;
+
+ КонецЕсли;
+
+ Возврат ЦентральныйУзелОбмена;
+
+КонецФункции
+
+
+// Получает представление типа объекта для выгрузки
+//
+// Параметры:
+// ЭлементДанных - ДокументСсылка.ВходящееПисьмо - Выгружаемый элемент данных.
+//
+// Возвращаемое значение:
+// Строка - тип объекта строкой подготовленный к выгрузке.
+//
+Функция ПолучитьПредставлениеТипаПоСсылке(ЭлементДанных) Экспорт
+
+ Если ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.ВходящееПисьмо") Тогда
+ Тип = "IncomingMail";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.ИсходящееПисьмо") Тогда
+ Тип = "OutgoingMail";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.ЗаписиРабочегоКалендаря") Тогда
+ Тип = "CalendarEvent";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.Задачи") Тогда
+ Тип = "Task";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.ПроцессыИсполнение") Тогда
+ Тип = "ExecutionProcess";
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.УчетныеЗаписи") Тогда
+ Тип = "MailAccount";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.ПапкиПисем") Тогда
+ Тип = "MailFolder";
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.Пользователи") Тогда
+ Тип = "User";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.РолиИсполнителей") Тогда
+ Тип = "Role";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.Файлы") Тогда
+ Тип = "File";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.ВеткиПереписки") Тогда
+ Тип = "MailThread";
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("СправочникСсылка.АдресатыПочтовыхСообщений") Тогда
+ Тип = "Addressee";
+ Иначе
+ Тип = "ActionTarget";
+ КонецЕсли;
+
+ Возврат Тип;
+
+КонецФункции
+
+// Получает ссылку из БД по указанному представлению типа и УИД.
+//
+// Параметры:
+// ТипЗначения - Строка - Представление типа;
+// Идентификатор - УникальныйИдентификатор - УникальныйИдентификатор объекта;
+//
+// Возвращаемое значение:
+// Ссылка - Ссылка на объект.
+//
+Функция ПолучитьСсылкуПоТипу(Знач ТипЗначения, Знач Идентификатор) Экспорт
+
+ Если Не ЗначениеЗаполнено(ТипЗначения) Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если Идентификатор = УникальныйИдентификаторПустой()
+ Или Идентификатор = Неопределено
+ Или Идентификатор = ""Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если ТипЗнч(Идентификатор) = Тип("Строка") Тогда
+ Идентификатор = Новый УникальныйИдентификатор(Идентификатор);
+ КонецЕсли;
+
+ ТипЗначения = НРег(ТипЗначения);
+
+ // Справочники
+
+ Если ТипЗначения = НРег(ОбменКлиентСервер.Сущность_Город()) Тогда
+ Возврат Справочники.Города.ПолучитьСсылку(Идентификатор);
+
+ ИначеЕсли ТипЗначения = НРег(ОбменКлиентСервер.Сущность_Контрагент()) Тогда
+ Возврат Справочники.Контрагенты.ПолучитьСсылку(Идентификатор);
+
+ ИначеЕсли ТипЗначения = НРег(ОбменКлиентСервер.Сущность_ОбъектСтроительства()) Тогда
+ Возврат Справочники.Объекты.ПолучитьСсылку(Идентификатор);
+
+ ИначеЕсли ТипЗначения = НРег(ОбменКлиентСервер.Сущность_СтатьяРасходов()) Тогда
+ Возврат Справочники.СтатьиРасходов.ПолучитьСсылку(Идентификатор);
+
+ // Документы
+
+ ИначеЕсли ТипЗначения = НРег(ОбменКлиентСервер.Сущность_СписаниеДенежныхСредств()) Тогда
+ Возврат Документы.СписаниеДенежныхСредств.ПолучитьСсылку(Идентификатор);
+
+ Иначе
+ ВызватьИсключение СтрШаблон("Тип не определен (%1)", ТипЗначения);
+ КонецЕсли;
+
+КонецФункции
+
+Функция СоздатьОбъектПоТипу(Знач ТипЗначения) Экспорт
+
+ // todo: проверить
+ Результат = Неопределено;
+
+ Если ТипЗначения = ОбменКлиентСервер.Сущность_Город() Тогда
+ Результат = Справочники.Города.СоздатьЭлемент();
+
+ ИначеЕсли ТипЗначения = ОбменКлиентСервер.Сущность_Контрагент() Тогда
+ Результат = Справочники.Контрагенты.СоздатьЭлемент();
+
+ ИначеЕсли ТипЗначения = ОбменКлиентСервер.Сущность_ОбъектСтроительства() Тогда
+ Результат = Справочники.Объекты.СоздатьЭлемент();
+
+ Иначе
+ ВызватьИсключение СтрШаблон("Тип не определен (%1)", ТипЗначения);
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+
+
+// Получает важность задачи по представлению
+//
+// Параметры:
+// Представление - Строка - Идентификатор значения в обмене.
+//
+// Возвращаемое значение:
+// Перечисления.ВариантыВажностиЗадачи - Важность задачи.
+//
+Функция ПолучитьВажностьЗадачиПоПредставлению(Представление) Экспорт
+
+ Если Представление = "low" Тогда
+ Важность = Перечисления.ВариантыВажностиЗадачи.Низкая;
+ ИначеЕсли Представление = "high" Тогда
+ Важность = Перечисления.ВариантыВажностиЗадачи.Высокая;
+ Иначе
+ Важность = Перечисления.ВариантыВажностиЗадачи.Обычная;
+ КонецЕсли;
+
+ Возврат Важность;
+
+КонецФункции
+
+// Получить представление важности задачи для обмена.
+//
+// Параметры:
+// Значение - Перечисления.ВариантыВажностиЗадачи - Важность задачи.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор перечисления для обмена.
+//
+Функция ПолучитьПредставлениеВажностиЗадачи(Значение) Экспорт
+
+ Если Значение = Перечисления.ВариантыВажностиЗадачи.Низкая Тогда
+ Представление = "low";
+
+ ИначеЕсли Значение = перечисления.ВариантыВажностиЗадачи.Высокая Тогда
+ Представление = "high";
+
+ Иначе
+ Представление = "normal";
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+
+// Получает идентификатор частоты повторения по значению перечисления.
+//
+// Параметры:
+// ЧастотаПовторения - Перечисления.ЧастотаПовторения - Частота повторения.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор перечисления.
+//
+Функция ПолучитьПредставлениеЧастотыПовторений(ЧастотаПовторения) Экспорт
+
+ Если ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежедневно Тогда
+ Представление = "daily";
+ ИначеЕсли ЧастотаПовторения = Перечисления.ЧастотаПовторения.Еженедельно Тогда
+ Представление = "weekly";
+ ИначеЕсли ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежемесячно Тогда
+ Представление = "monthly";
+ ИначеЕсли ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежегодно Тогда
+ Представление = "yearly";
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+
+// Получает частоту представления по идентификатору обмена.
+//
+// Параметры:
+// Представление - Строка - Идентификатор перечисления.
+//
+// Возвращаемое значение:
+// Перечисления.ЧастотаПовторения - Частота повторения.
+//
+Функция ПолучитьЧастотуПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "daily") = 0 Тогда
+ ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежедневно;
+
+ ИначеЕсли СтрСравнить(Представление, "weekly") = 0 Тогда
+ ЧастотаПовторения = Перечисления.ЧастотаПовторения.Еженедельно;
+
+ ИначеЕсли СтрСравнить(Представление, "monthly") = 0 Тогда
+ ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежемесячно;
+
+ ИначеЕсли СтрСравнить(Представление, "yearly") = 0 Тогда
+ ЧастотаПовторения = Перечисления.ЧастотаПовторения.Ежегодно;
+
+ КонецЕсли;
+
+ Возврат ЧастотаПовторения;
+
+КонецФункции
+
+// Получает представление цвета по значению перечисления.
+//
+// Параметры:
+// Представление - Строка - строковое представление цвета.
+//
+// Возвращаемое значение:
+// Перечисления.ЦветаОбъектов - Цвет объекта.
+//
+Функция ПолучитьЦветПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "red") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Красный;
+
+ ИначеЕсли СтрСравнить(Представление, "blue") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Синий;
+
+ ИначеЕсли СтрСравнить(Представление, "yellow") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Желтый;
+
+ ИначеЕсли СтрСравнить(Представление, "green") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Зеленый;
+
+ ИначеЕсли СтрСравнить(Представление, "orange") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Оранжевый;
+
+ ИначеЕсли СтрСравнить(Представление, "purple") = 0 Тогда
+ Цвет = Перечисления.ЦветаОбъектов.Лиловый;
+
+ Иначе
+ Цвет = Перечисления.ЦветаОбъектов.Нет;
+
+ КонецЕсли;
+
+ Возврат Цвет;
+
+КонецФункции
+
+// Получает представление цвета по значению перечисления
+//
+// Параметры:
+// Цвет - Перечисления.ЦветаОбъектов - Цвет рабочего календаря.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор значения для обмена.
+//
+Функция ПолучитьПредставлениеЦвета(Цвет) Экспорт
+
+ Если Цвет = Перечисления.ЦветаОбъектов.Красный Тогда
+ Представление = "red";
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Синий Тогда
+ Представление = "blue";
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Желтый Тогда
+ Представление = "yellow";
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Зеленый Тогда
+ Представление = "green";
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Оранжевый Тогда
+ Представление = "orange";
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Лиловый Тогда
+ Представление = "purple";
+ Иначе
+ Представление = "none";
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+// Заполняет индекс картинки по цвету
+//
+// Параметры:
+// Цвет - Перечисления.ЦветаОбъектов - Цвет объекта.
+//
+// Возвращаемое значение:
+// Число - Индекс картинки в ОбщаяКартинка.КоллекцияЦвет.
+//
+Функция ПолучитьИндексКартинкиПоЦвету(Цвет) Экспорт
+
+ Если Цвет = Перечисления.ЦветаОбъектов.Нет Тогда
+ Возврат 0;
+
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Красный Тогда
+ Возврат 1;
+
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Синий Тогда
+ Возврат 2;
+
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Желтый Тогда
+ Возврат 3;
+
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Зеленый Тогда
+ Возврат 4;
+
+ ИначеЕсли Цвет = Перечисления.ЦветаОбъектов.Оранжевый Тогда
+ Возврат 5;
+
+ КонецЕсли;
+
+КонецФункции
+
+
+// Получает представление типа записи календаря
+//
+// Параметры:
+// ТипЗаписиКалендаря - Перечисления.ТипЗаписиКалендаря - Тип записи календаря.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор типа записи.
+//
+Функция ПолучитьПредставлениеТипаЗаписиКалендаря(ТипЗаписиКалендаря) Экспорт
+
+ Если ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.Событие Тогда
+ Представление = "event";
+
+ ИначеЕсли ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.ПовторяющеесяСобытие Тогда
+ Представление = "recurrence";
+
+ ИначеЕсли ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.ЭлементПовторяющегосяСобытия Тогда
+ Представление = "recurrenceException";
+
+ Иначе
+ Представление = "event";
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+// Получает тип записи календаря по его представлению
+//
+// Параметры:
+// Представление - Строка - Идентификатор типа записи.
+//
+// Возвращаемое значение:
+// Перечисления.ТипЗаписиКалендаря - Тип записи значением.
+//
+Функция ПолучитьТипаЗаписиКалендаряПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "event") = 0 Тогда
+ ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.Событие;
+
+ ИначеЕсли СтрСравнить(Представление, "recurrence") = 0 Тогда
+ ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.ПовторяющеесяСобытие;
+
+ ИначеЕсли СтрСравнить(Представление, "recurrenceException") = 0 Тогда
+ ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.ЭлементПовторяющегосяСобытия;
+
+ Иначе
+ ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.Событие;
+
+ КонецЕсли;
+
+ Возврат ТипЗаписиКалендаря;
+
+КонецФункции
+
+
+// Получает состояние записи по идентификатору.
+//
+// Параметры:
+// Представление - Строка - Идентификатор перечисления в обмене.
+//
+// Возвращаемое значение:
+// Перечисления.СостоянияЗаписейРабочегоКалендаря - Состояние записи календаря.
+//
+Функция ПолучитьСостояниеЗаписиПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "confirmed") = 0 Тогда
+ Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Принято;
+
+ ИначеЕсли СтрСравнить(Представление, "cancelled") = 0 Тогда
+ Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Отклонено;
+
+ ИначеЕсли СтрСравнить(Представление, "tentative") = 0 Тогда
+ Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.ПодВопросом;
+
+ Иначе
+ Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.ПодВопросом;
+ КонецЕсли;
+
+ Возврат Состояние;
+
+КонецФункции
+
+// Получает представление цвета по значению перечисления.
+//
+// Параметры:
+// Состояние - Перечисления.СостоянияЗаписейРабочегоКалендаря - Ссылка на значение перечисления
+// типа СостоянияЗаписейРабочегоКалендаря.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор состояния.
+//
+Функция ПолучитьПредставлениеСостоянияЗаписиРабочегоКалендаря(Состояние) Экспорт
+
+ Если Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Принято Тогда
+ Представление = "confirmed";
+
+ ИначеЕсли Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Отклонено Тогда
+ Представление = "cancelled";
+
+ ИначеЕсли Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.ПодВопросом Тогда
+ Представление = "tentative";
+
+ Иначе
+ Представление = "tentative";
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+
+// Получает строковое представление состояния бизнес процесса для обмена.
+//
+// Параметры:
+// Значение - Перечисление.СостоянияБизнесПроцессов - Состояние бизнес-процесса.
+//
+// Возвращаемое значение:
+// Строка - Строковый идентификатор перечисления для обмена.
+//
+Функция ПолучитьПредставлениеСостоянияБизнесПроцесса(Значение) Экспорт
+
+ Если Значение = Перечисления.СостоянияБизнесПроцессов.Остановлен Тогда
+ Результат = "Stopped";
+
+ ИначеЕсли Значение = Перечисления.СостоянияБизнесПроцессов.Прерван Тогда
+ Результат = "Terminated";
+
+ Иначе
+ Результат = "Active";
+
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+// Получает состояние бизнес процесса по идентификатору обмена.
+//
+// Параметры:
+// Представление - Строка - Идентификатор значения в обмене.
+//
+// Возвращаемое значение:
+// Перечисления.СостоянияБизнесПроцессов - Состояние бизнес-процесса.
+//
+Функция ПолучитьСостояниеБизнесПроцессаПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "Stopped") = 0 Тогда
+ Состояние = Перечисления.СостоянияБизнесПроцессов.Остановлен;
+
+ ИначеЕсли СтрСравнить(Представление, "Terminated") = 0 Тогда
+ Состояние = Перечисления.СостоянияБизнесПроцессов.Прерван;
+
+ Иначе
+ Состояние = Перечисления.СостоянияБизнесПроцессов.Активен;
+
+ КонецЕсли;
+
+ Возврат Состояние;
+
+КонецФункции
+
+
+// Получает представление правила окончания повторения записи календаря.
+//
+// Параметры:
+// ПравилоОкончанияПовторения - Перечисления.ПравилаОкончанияПовторения - Ссылка на значение
+// перечисления типа ПравилаОкончанияПовторения.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор правила.
+//
+Функция ПолучитьПредставлениеПравилаОкончанияПовторения(ПравилоОкончанияПовторения) Экспорт
+
+ Если ПравилоОкончанияПовторения = Перечисления.ПравилаОкончанияПовторения.Никогда Тогда
+ Представление = "never";
+
+ ИначеЕсли ПравилоОкончанияПовторения =
+ Перечисления.ПравилаОкончанияПовторения.ПослеЧислаПовторов Тогда
+ Представление = "byCount";
+
+ ИначеЕсли ПравилоОкончанияПовторения = Перечисления.ПравилаОкончанияПовторения.ДоДаты Тогда
+ Представление = "byDate";
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+// Получает тип правила окончания повторения записи календаря по его представлению.
+//
+// Параметры:
+// Представление - Строка - строковое представление правила окончания повторения.
+//
+// Возвращаемое значение:
+// Перечисления.ПравилаОкончанияПовторения - Значение перечисления.
+//
+Функция ПолучитьПравилоОкончанияПовторенияПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "never") = 0 Тогда
+ ПравилоОкончанияПовторения = Перечисления.ПравилаОкончанияПовторения.Никогда;
+
+ ИначеЕсли СтрСравнить(Представление, "byCount") = 0 Тогда
+ ПравилоОкончанияПовторения = Перечисления.ПравилаОкончанияПовторения.ПослеЧислаПовторов;
+
+ ИначеЕсли СтрСравнить(Представление, "byDate") = 0 Тогда
+ ПравилоОкончанияПовторения = Перечисления.ПравилаОкончанияПовторения.ДоДаты;
+
+ КонецЕсли;
+
+ Возврат ПравилоОкончанияПовторения;
+
+КонецФункции
+
+
+// Получает оценку результата выполнения по представлению в обмене.
+//
+// Параметры:
+// Представление - Строка - Значение перечисления в обмене.
+//
+// Возвращаемое значение:
+// Перечисления.ОценкиРезультатаВыполнения - Результат выполнения задачи.
+//
+Функция ПолучитьОценкуРезультатаВыполненияПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "ExecutedNeutral") = 0 Тогда
+ ОценкаРезультата = Перечисления.ОценкиРезультатаВыполнения.ВыполненоНейтрально;
+
+ ИначеЕсли СтрСравнить(Представление, "ExecutedPositive") = 0 Тогда
+ ОценкаРезультата = Перечисления.ОценкиРезультатаВыполнения.ВыполненоПоложительно;
+
+ ИначеЕсли СтрСравнить(Представление, "ExecutedAlmostPositive") = 0 Тогда
+ ОценкаРезультата = Перечисления.ОценкиРезультатаВыполнения.ВыполненоПоложительноСЗамечаниями;
+
+ ИначеЕсли СтрСравнить(Представление, "ExecutedNegative") = 0 Тогда
+ ОценкаРезультата = Перечисления.ОценкиРезультатаВыполнения.ВыполненоОтрицательно;
+
+ КонецЕсли;
+
+ Возврат ОценкаРезультата;
+
+КонецФункции
+
+// Получает строковое представление типа события протокола для обмена.
+//
+// Параметры:
+// Значение - Перечисления.ТипыСобытийПротокола - Тип события протокола.
+//
+// Возвращаемое значение:
+// Строка - Строковый идентификатор перечисления для обмена.
+//
+Функция ПолучитьПредставлениеТипаСобытияПротокола(Значение) Экспорт
+
+ Если Значение = Перечисления.ТипыСобытийПротокола.Предупреждение Тогда
+ Представление = "Warning";
+
+ ИначеЕсли Значение = Перечисления.ТипыСобытийПротокола.Ошибка Тогда
+ Представление = "Error";
+
+ Иначе
+ Представление = "Information";
+
+ КонецЕсли;
+
+ Возврат Представление;
+
+КонецФункции
+
+// Возвращает тип ответа на письмо по его представлению.
+//
+// Параметры:
+// Представление - Строка - Строковый идентификатор значения перечисления.
+//
+// Возвращаемое значение:
+// ПеречислениеСсылка.ТипыОтвета - Полученный тип ответа.
+//
+Функция ПолучитьТипОтветаНаПисьмоПоПредставлению(Представление) Экспорт
+
+ Если СтрСравнить(Представление, "ОтветНаПисьмо") = 0 Тогда
+ Возврат Перечисления.ТипыОтвета.ОтветНаПисьмо;
+
+ ИначеЕсли СтрСравнить(Представление, "ПересылкаПисьма") = 0 Тогда
+ Возврат Перечисления.ТипыОтвета.ПересылкаПисьма;
+
+ Иначе
+ Возврат Перечисления.ТипыОтвета.ПустаяСсылка();
+
+ КонецЕсли;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Проверяет наличие префикса http или https и подставляет http в адрес если их нет
+//
+// Параметры:
+// Адрес - Строка - Адрес подключения к серверу.
+//
+// Возвращаемое значение:
+// Строка - нормализованный адрес подключения.
+//
+Функция НормализоватьАдресПриОтсутствииПрефикса(Адрес)
+
+ АдресДляПроверки = НРег(Адрес);
+ Если СтрНайти(АдресДляПроверки, "http://") = 0
+ И СтрНайти(АдресДляПроверки, "https://") = 0 Тогда
+ Возврат "http://" + Адрес;
+ Иначе
+ Возврат Адрес;
+ КонецЕсли;
+
+КонецФункции
+
+// Формирует расширенное описание ошибки возникшей при подключении.
+//
+// Параметры:
+// Инфо - ИнформацияОбОшибке - Полученная информация об ошибке во время обмена.
+//
+// Возвращаемое значение:
+// Строка - расширенное описание ошибки.
+//
+Функция СформироватьОписаниеОшибкиПриПодключении(Инфо)
+
+ ПодробноеПредставлениеОшибки = ПодробноеПредставлениеОшибки(Инфо);
+
+ Если СтрНайти(ПодробноеПредставлениеОшибки, "Аутентификация пользователя не выполнена") > 0 Тогда
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Не удалось подключиться. Аутентификация пользователя не выполнена.
+ |Проверьте имя пользователя и пароль и повторите попытку.'
+ |; en = 'Can''t connect to server. User authentication failed.
+ |Check user name and password and try again later'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки);
+
+ ИначеЕсли ЗначениеЗаполнено(Константы.ДатаПоследнегоОбновления.Получить()) Тогда
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Не удалось подключиться.
+ |Проверьте интернет-соединение и повторите попытку'
+ |; en = 'Can''t connect to server
+ |Check internet connection and try again later'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки);
+
+ ИначеЕсли СтрНайти(Инфо.Причина.Описание, "Код ответа сервера: ") > 0 Тогда
+
+ ТекстСообщения = НСтр("ru = 'Код ответа сервера: '");
+ Позиция = СтрНайти(Инфо.Причина.Описание, ТекстСообщения) + СтрДлина(ТекстСообщения);
+ КодОшибки = Сред(Инфо.Причина.Описание, Позиция, 3);
+
+ Если КодОшибки = "403" Тогда
+ ТекстОписанияКодаОшибки =
+ НСтр("ru = '403 Доступ запрещен. Проверьте адрес сервера, имя пользователя и пароль';
+ |en = '403 Forbidden. Check server address, user name and password'");
+
+ ИначеЕсли КодОшибки = "404" Тогда
+ ТекстОписанияКодаОшибки =
+ НСтр("ru = '404 Сервер не найден. Проверьте адрес сервера ';
+ | en = '404 Server not found. Check server address'");
+
+ ИначеЕсли КодОшибки = "409" Тогда
+ ТекстОписанияКодаОшибки =
+ НСтр("ru = '409 Конфликт. Проверьте адрес сервера ';
+ | en = '409 Conflict. Check server address'");
+
+ ИначеЕсли КодОшибки = "500" Тогда
+ ТекстОписанияКодаОшибки =
+ НСтр("ru = '500 Внутренняя ошибка сервера. Попробуйте позже или обратитесь к администратору';
+ |en = '500 Internal server error. Try again later or contact the administrator'");
+
+ ИначеЕсли КодОшибки = "503" Тогда
+ ТекстОписанияКодаОшибки =
+ НСтр("ru = '503 Сервис временно недоступен. Попробуйте позже или обратитесь к администратору';
+ |en = '503 Service Temporarily Unavailable. Try again later or contact the administrator'");
+
+ Иначе
+ ТекстОписанияКодаОшибки =
+ СтрШаблон(
+ НСтр("ru = 'Сервер вернул код ошибки: %1'; en = 'Server return error code: %1'"),
+ КодОшибки);
+ КонецЕсли;
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Не удалось подключиться.'; en = 'Can''t connect to server'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки, ТекстОписанияКодаОшибки);
+
+ Иначе
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Не удалось подключиться.
+ |1. Убедитесь, что правильно ввели адрес, логин и пароль.
+ |2. Уточните у администратора, что на сервере включено использование мобильных клиентов.
+ |3. Уточните у администратора наличие доступа к документообороту через web.
+ |4. Уточните у администратора, что используемый сервер присутствует в списке разрешенных к использованию.
+ |5. Уточните у администратора, что пользователю разрешено использование мобильных клиентов.
+ |6. Проверьте, что работает интернет-соединение.
+ |'; en = 'Can''t connect to server
+ |1. Check server addres, user name and password.
+ |2. Check with administrator what mobile support on server is enabled
+ |3. Check with administrator that servers have access to web
+ |4. Check with administrator what specified server present in allow list for current user.
+ |5. Check with administrator what specified user is allowed to use mobile clients.
+ |6. Check internet connection.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки, ТекстОписанияКодаОшибки);
+
+ КонецЕсли;
+
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(ТекстОшибки);
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(МоментВремени, Истина);
+
+ Возврат ТекстОшибки;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..8c8e4a4
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменДемоДанныеВызовСервера
+
+
+ ru
+ Обмен демо данные вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..18b85a8
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\224\320\265\320\274\320\276\320\224\320\260\320\275\320\275\321\213\320\265\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,152 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выполняет загрузку демо-данных из макета ДемоДанные.
+//
+Процедура ЗагрузитьДемоДанные() Экспорт
+
+ ЗаполнитьДемоДанныеПрограммно();
+
+ ИдентификаторСообщения = Новый УникальныйИдентификатор();
+ ДанныеСообщения =
+ Новый ХранилищеЗначения(ПолучитьОбщийМакет("ДемоДанные"), Новый СжатиеДанных(9));
+
+ РегистрыСведений.ПолученныеДанныеОбмена.ДобавитьЗапись(
+ ИдентификаторСообщения, 1, ДанныеСообщения);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Процедура ЗаполнитьДемоДанныеПрограммно()
+
+ СтруктураДемоЗаписиКалендаря = Новый Структура("Ид, ВесьДень, ДатаНачала, ДатаОкончания, Описание, Состояние, Цвет");
+ СтруктураДемоЗаписиКалендаря.ВесьДень = Ложь;
+ СтруктураДемоЗаписиКалендаря.Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Принято;
+ СтруктураДемоЗаписиКалендаря.Цвет = Перечисления.ЦветаОбъектов.Нет;
+
+ // День 1
+ ТекущаяДатаЗаполнения = НачалоДня(ТекущаяДата());
+ СкорректироватьДемоДату(ТекущаяДатаЗаполнения);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("352726af-e13c-11e5-ac2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 36000; // 10:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 45000; // 12:30
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Зарегистрировать ""Рекламные материалы""'
+ |;en = 'Register ""Advertising materials""'");
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("355766af-e43c-1412-ac2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 50400; // 14:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 52200; // 14:30
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Перезвонить Савельеву П.М.'; en = 'Call back to Savelyev P. M.'");
+ СтруктураДемоЗаписиКалендаря.Цвет = Перечисления.ЦветаОбъектов.Красный;
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("354666af-e43c-1762-ab2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 55800; // 15:30
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 63000; // 17:30
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Подготовить список видов документов по всем подразделениям'
+ |;en = 'Prepare the list of types of documents on all divisions'");
+ СтруктураДемоЗаписиКалендаря.Цвет = Перечисления.ЦветаОбъектов.Нет;
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ // День 2
+ ТекущаяДатаЗаполнения = ТекущаяДатаЗаполнения + 86400;
+ СкорректироватьДемоДату(ТекущаяДатаЗаполнения);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("355766b3-e86c-1414-ac7b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 43200; // 12:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 54000; // 15:00
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Перепроверить документы, по которым поступали претензии от ОАО Плазма'
+ |; en = 'Recheck documents according to which claims from JSC Plazma arrived'");
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("355466af-12bc-1aa2-ac2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 57600; // 16:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 59400; // 16:30
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Адвокатское бюро ""Аплана"" - необходимо позвонить'
+ |; en = 'Lawyer bureau ""Aplana"" - it is necessary to call'");
+ СтруктураДемоЗаписиКалендаря.Цвет = Перечисления.ЦветаОбъектов.Желтый;
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ // День 3
+ ТекущаяДатаЗаполнения = ТекущаяДатаЗаполнения + 86400;
+ СкорректироватьДемоДату(ТекущаяДатаЗаполнения);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("35421baf-e12c-b412-ac2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 36000; // 10:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 39600; // 11:00
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Актуализировать ""График дежурств""'
+ |; en = 'Staticize ""The schedule of watches""'");
+ СтруктураДемоЗаписиКалендаря.Цвет = Перечисления.ЦветаОбъектов.Нет;
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("3557653f-e43c-1512-ac7b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.ПодВопросом;
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = ТекущаяДатаЗаполнения + 43200; // 12:00
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = ТекущаяДатаЗаполнения + 50400; // 14:00
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Подведение итогов работы секретариата за май'
+ |; en = 'Summing up work of the secretariat for May'");
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+ // День 4
+ ТекущаяДатаЗаполнения = ТекущаяДатаЗаполнения + 86400;
+ СкорректироватьДемоДату(ТекущаяДатаЗаполнения);
+
+ СтруктураДемоЗаписиКалендаря.Ид = Новый УникальныйИдентификатор("355b431f-eb3c-1454-ac2b-bcaec5d977c9");
+ СтруктураДемоЗаписиКалендаря.Состояние = Перечисления.СостоянияЗаписейРабочегоКалендаря.Принято;
+ СтруктураДемоЗаписиКалендаря.ВесьДень = Истина;
+ СтруктураДемоЗаписиКалендаря.ДатаНачала = НачалоДня(ТекущаяДатаЗаполнения);
+ СтруктураДемоЗаписиКалендаря.ДатаОкончания = КонецДня(ТекущаяДатаЗаполнения);
+ СтруктураДемоЗаписиКалендаря.Описание = НСтр("ru = 'Посещение выставки'; en = 'Visit of an exhibition'");
+
+ СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря);
+
+КонецПроцедуры
+
+Процедура СкорректироватьДемоДату(ТекущаяДатаЗаполнения)
+
+ Если ДеньНедели(ТекущаяДатаЗаполнения) = 6 Тогда
+ ТекущаяДатаЗаполнения = ТекущаяДатаЗаполнения + 86400 * 2;
+
+ ИначеЕсли ДеньНедели(ТекущаяДатаЗаполнения) = 7 Тогда
+ ТекущаяДатаЗаполнения = ТекущаяДатаЗаполнения + 86400;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура СоздатьДемоЗаписьКалендаря(СтруктураДемоЗаписиКалендаря)
+
+ Ссылка = Справочники.ЗаписиРабочегоКалендаря.ПолучитьСсылку(СтруктураДемоЗаписиКалендаря.ид);
+ Объект = Ссылка.ПолучитьОбъект();
+
+ Если Объект = Неопределено Тогда
+ Объект = Справочники.ЗаписиРабочегоКалендаря.СоздатьЭлемент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.Событие;
+
+ ЗаполнитьЗначенияСвойств(Объект, СтруктураДемоЗаписиКалендаря);
+
+ Объект.Записать();
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена, Объект.Ссылка);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202.xml"
new file mode 100644
index 0000000..bb0101c
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменИмпорт
+
+
+ ru
+ Обмен импорт
+
+
+
+ false
+ false
+ true
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..0eb7793
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\230\320\274\320\277\320\276\321\200\321\202/Ext/Module.bsl"
@@ -0,0 +1,279 @@
+
+///////////////////////////////////////////////////////////////////////////////
+// ОБРАБОТЧИКИ ОБЪЕКТОВ
+
+#Область ОбработчикиОбъектов
+
+Функция ЗаписатьОбъект(Сообщение, СведенияОЗагруженныхДанных, МоментВремени = Неопределено) Экспорт
+
+ Если Сообщение.Свойство("LogRecord") Тогда
+ ЗаписатьИнформациюОбОшибке(Сообщение.LogRecord, СведенияОЗагруженныхДанных);
+ КонецЕсли;
+
+ Если Сообщение.Свойство("Objects") Тогда
+ Для Каждого Объект Из Сообщение.Objects Цикл
+
+ // Справочники
+ Если НРег(Объект.Тип) = НРег(ОбменКлиентСервер.Сущность_ОбъектСтроительства()) Тогда
+ ЗаписатьОбъектСтроительства(Объект, СведенияОЗагруженныхДанных);
+
+ ИначеЕсли НРег(Объект.Тип) = НРег(ОбменКлиентСервер.Сущность_Контрагент()) Тогда
+ ЗаписатьКонтрагента(Объект, СведенияОЗагруженныхДанных);
+
+ ИначеЕсли НРег(Объект.Тип) = НРег(ОбменКлиентСервер.Сущность_Город())Тогда
+ ЗаписатьГород(Объект, СведенияОЗагруженныхДанных);
+
+ ИначеЕсли НРег(Объект.Тип) = НРег(ОбменКлиентСервер.Сущность_СтатьяРасходов()) Тогда
+ ЗаписатьСтатьюРасходов(Объект, СведенияОЗагруженныхДанных);
+
+ // Документы
+ ИначеЕсли НРег(Объект.Тип) = НРег(ОбменКлиентСервер.Сущность_СписаниеДенежныхСредств()) Тогда
+ ЗаписатьСписаниеДенежныхСредств(Объект, СведенияОЗагруженныхДанных);
+
+ Иначе
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьПредупреждение(
+ СтрШаблон(НСтр("ru = 'Обнаружен неизвестный тип объекта (%1)'"), Объект.Тип));
+
+ КонецЕсли;
+ КонецЦикла;
+ Иначе
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьПредупреждение(
+ НСтр("ru = 'Обнаружен неизвестный тип объекта'"));
+ КонецЕсли;
+
+КонецФункции
+
+Функция ЗаписатьИнформациюОбОшибке(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных)
+
+ ТипЗаписи = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "RecordType", "Строка");
+ Описание = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Description", "Строка");
+
+ Если ТипЗаписи = "Error" Тогда
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(Описание);
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+
+ СведенияОЗагруженныхДанных.ЕстьОшибки = Истина;
+
+ ИначеЕсли ТипЗаписи = "Information" Тогда
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(Описание);
+
+ ИначеЕсли ТипЗаписи = "Warning" Тогда
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьПредупреждение(Описание);
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+
+ КонецЕсли;
+
+КонецФункции
+
+// Справочники
+
+Функция ЗаписатьГород(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных, КраткаяЗапись = Ложь)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = Справочники.Города.СоздатьЭлемент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.Код = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Код", "Строка");
+ Объект.Наименование = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Наименование", "Строка");
+
+ Объект.Записать();
+
+ Возврат Объект.Ссылка;
+
+КонецФункции
+
+Функция ЗаписатьОбъектСтроительства(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных, КраткаяЗапись = Ложь)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = Справочники.Объекты.СоздатьЭлемент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.Код = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Код", "Строка");
+ Объект.Наименование = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Наименование", "Строка");
+
+ Объект.Записать();
+
+ Возврат Объект.Ссылка;
+
+КонецФункции
+
+Функция ЗаписатьКонтрагента(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных, КраткаяЗапись = Ложь)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = Справочники.Контрагенты.СоздатьЭлемент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.Код = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Код", "Строка");
+ Объект.Наименование = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Наименование", "Строка");
+
+ Объект.Записать();
+
+ Возврат Объект.Ссылка;
+
+КонецФункции
+
+Функция ЗаписатьСтатьюРасходов(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных, КраткаяЗапись = Ложь)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = Справочники.СтатьиРасходов.СоздатьЭлемент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.Код = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Код", "Строка");
+ Объект.Наименование = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Наименование", "Строка");
+
+ Объект.Записать();
+
+ Возврат Объект.Ссылка;
+
+КонецФункции
+
+// Документы
+
+Функция ЗаписатьСписаниеДенежныхСредств(СтруктураДанныхОбъекта, СведенияОЗагруженныхДанных)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = Документы.СписаниеДенежныхСредств.СоздатьДокумент();
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Объект.Дата = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Дата", "Дата");
+ Объект.Номер = ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, "Номер", "Строка");
+
+ Объект.Объект = ПолучитьСсылку(СтруктураДанныхОбъекта.Объект);
+ Объект.Контрагент = ПолучитьСсылку(СтруктураДанныхОбъекта.Контрагент);
+ Объект.ТипПлатежа = Перечисления.ТипыПлатежей[СтруктураДанныхОбъекта.ТипПлатежа];
+ Объект.Сумма = СтруктураДанныхОбъекта.Сумма;
+ Объект.СтатьяРасходов = ПолучитьСсылку(СтруктураДанныхОбъекта.СтатьяРасходов);
+
+ Объект.Комментарий = СтруктураДанныхОбъекта.Комментарий;
+ Объект.Ответственный = СтруктураДанныхОбъекта.Ответственный;
+
+ Объект.ДополнительныеСвойства.Вставить("Загрузка", Истина);
+
+ // Проведение / отмена проведения / пометка на удаление
+ РежимЗаписи = РежимЗаписиДокумента.Запись;
+ Если СтруктураДанныхОбъекта.ПометкаУдаления Тогда
+ Объект.ПометкаУдаления = Истина;
+ Иначе
+ Объект.ПометкаУдаления = Ложь;
+ Если СтруктураДанныхОбъекта.Проведен Тогда
+ РежимЗаписи = РежимЗаписиДокумента.Проведение;
+ Иначе
+ РежимЗаписи = РежимЗаписиДокумента.ОтменаПроведения;
+ КонецЕсли;
+ КонецЕсли;
+ Объект.Записать(РежимЗаписи);
+
+ РегистрыСведений.ДатыЗагрузкиОбъектов.ОбновитьДатуПоследнегоИзмененияОбъекта(Объект.Ссылка);
+
+ Возврат Объект.Ссылка;
+
+КонецФункции
+
+#КонецОбласти
+
+
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция ПолучитьСсылку(СтруктураДанныхОбъекта)
+
+ Если СтруктураДанныхОбъекта = Неопределено Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если СтруктураДанныхОбъекта.UUID = "00000000-0000-0000-0000-000000000000" Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Результат = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(
+ СтруктураДанныхОбъекта.Тип, СтруктураДанныхОбъекта.UUID);
+
+ Если Не ЗначениеЗаполнено(Результат) Тогда
+ Результат = ЗаписатьПростойОбъект(СтруктураДанныхОбъекта);
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+Функция ЗаписатьПростойОбъект(СтруктураДанныхОбъекта)
+
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(СтруктураДанныхОбъекта.Тип,
+ СтруктураДанныхОбъекта.UUID);
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если Объект = Неопределено Тогда
+ Объект = ОбменВызовСервераПовтИсп.СоздатьОбъектПоТипу(СтруктураДанныхОбъекта);
+ Объект.УстановитьСсылкуНового(Ссылка);
+ КонецЕсли;
+
+ Возврат Объект;
+
+КонецФункции
+
+// Получает значение указанного реквизита из прочитанных данных
+//
+// Параметры:
+// СтруктураДанныхОбъекта - Соответствие - Предварительно прочитанные значения реквизитов объекта;
+// ИмяРеквизита - Строка - Имя получаемого реквизита объекта;
+// ИмяТипа - Строка - Тип к которому преобразуются данные из XML-строки;
+// Обязательный - Булево - Признак обязательного реквизита.
+//
+// Возвращаемое значение:
+// Значение - Значение запрошенного типа.
+//
+Функция ПолучитьЗначениеРеквизита(СтруктураДанныхОбъекта, ИмяРеквизита, ИмяТипа = Неопределено,
+ Обязательный = Ложь)
+
+ Значение = СтруктураДанныхОбъекта[ВРег(ИмяРеквизита)];
+
+ // Читаем значение атрибута из потока данных
+ Если Значение = Неопределено Тогда
+ Если Обязательный Тогда
+ ТекстСообщения = НСтр("ru = 'Для ""%1"" отсутствует ожидаемый атрибут (%2)';
+ |en = 'Attribute ""%2"" expected for ""%1""'");
+ ВызватьИсключение
+ СтрШаблон(ТекстСообщения, СтруктураДанныхОбъекта["ИмяТипа"], ИмяРеквизита);
+ Иначе
+ Возврат Значение;
+ КонецЕсли;
+ КонецЕсли;
+
+ // Получаем значение нужного типа
+ Если ИмяТипа = Неопределено Тогда
+ Возврат Значение;
+ Иначе
+ Возврат XMLЗначение(Тип(ИмяТипа), Значение);
+ КонецЕсли;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..41708a3
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменКлиент
+
+
+ ru
+ Обмен клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..0c5a81e
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,296 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выводит сообщение с временем когда была последняя синхронизация данных.
+//
+// Параметры:
+// Элементы - ЭлементыФормы - Элементы текущей формы.
+// ОписаниеПоследнегоОбновления - Строка - Описание срока последней синхронизации.
+//
+Процедура УстановитьПодписьКДатеОбновления(Элементы, ОписаниеПоследнегоОбновления) Экспорт
+
+ ДанныеДляПодписи = ПолучитьПодписьКДатеОбновленияИНаличиеДанныхДляОтправки();
+ ОписаниеПоследнегоОбновления = ДанныеДляПодписи.ОписаниеПоследнегоОбновления;
+
+ Если ДанныеДляПодписи.ЕстьНеотправленныеДанные Тогда
+ НужнаяСтраница = Элементы.Внимание;
+ Иначе
+ НужнаяСтраница = Элементы.Обычная;
+ КонецЕсли;
+
+ // Отобразим нужную страницу формы, если это необходимо
+ Если Не Элементы.ГруппаКнопкаОбновить.ТекущаяСтраница = НужнаяСтраница Тогда
+ Элементы.ГруппаКнопкаОбновить.ТекущаяСтраница = НужнаяСтраница;
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Начинает процесс синхронизации.
+//
+// Параметры:
+// ФормаИсточник - Форма - Форма инициатор процедуры обмена;
+//
+Процедура НачатьСинхронизацию(ФормаИсточник) Экспорт
+
+ // Выполняем проверку, не было ли до этого прерванной очиски базы
+ ИнициированаОчисткаБазы =
+ ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ИнициированаОчисткаБазы");
+
+ Если ИнициированаОчисткаБазы Тогда
+ ОчисткаБазыДанныхКлиент.ПродолжитьОчисткуБазыДанных();
+ Возврат;
+ КонецЕсли;
+
+ // Выполняем проверку, выполнялась синхронизация хотя бы один раз или нет
+ ДатаПоследнегоОбновления =
+ ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ДатаПоследнегоОбновления");
+
+ Если ЗначениеЗаполнено(ДатаПоследнегоОбновления) Тогда
+
+ ФормаИсточник.ОтключитьОбработчикОжидания("ОбработчикОжиданияУстановитьПодписьКДатеОбновления");
+
+ ФормаИсточник.Элементы.ГруппаКнопкаОбновить.ТекущаяСтраница =
+ ФормаИсточник.Элементы.ВПроцессе;
+
+ ФормаИсточник.ПодключитьОбработчикОжидания(
+ "ВыполнитьСинхронизациюНачало", 0.1, Истина);
+
+ Иначе
+ ПоказатьФормуНастройкиПодключения();
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Завершает процесс синхронизации
+//
+// Параметры:
+// ФормаИсточник - Форма - Форма инициатор процедуры обмена;
+// СведенияОЗагруженныхДанных - Структура - Результат обмена с сервером.
+//
+Процедура ЗавершитьСинхронизацию(
+ ФормаИсточник, СведенияОЗагруженныхДанных = Неопределено) Экспорт
+
+ ОбщегоНазначенияВызовСервера.УстановитьПараметрыСеанса();
+
+ Оповестить("СоздатьУведомления");
+ Оповестить("СинхронизацияЗавершена", СведенияОЗагруженныхДанных);
+
+ ОбменКлиент.НайтиИПоказатьОшибкиПриСинхронизации();
+
+ ФормаИсточник.ПодключитьОбработчикОжидания(
+ "ОбработчикОжиданияУстановитьПодписьКДатеОбновления", 60, Ложь);
+
+КонецПроцедуры
+
+// Отображает формы выбора способа подключения при если база пустая.
+//
+Процедура ПоказатьФормуНастройкиПодключения() Экспорт
+
+ ОткрытьФорму("ОбщаяФорма.ВыборСпособаПодключения");
+
+КонецПроцедуры
+
+// Начинает процесс первичного подключения к серверу 1С:Документооборота.
+//
+// Параметры:
+// ЭтаФорма - Форма - Форма, в которой произошел вызов;
+// НаборКонстант - КонстантыНабор - Набор констант, хранящий текущие настройки;
+// ДатаНачалаСинхронизации - Дата - Дата начала синхронизации.
+//
+Процедура ВыполнитьПодключениеКСерверу(ЭтаФорма, НаборКонстант, ДатаНачалаСинхронизации) Экспорт
+
+ ЭтоДемоРежим = НРег(НаборКонстант.ПользовательЦентральнойБазы) = "test"
+ И НРег(НаборКонстант.ПарольПользователя) = "test";
+
+ ОбщегоНазначенияВызовСервера.УстановитьДемоРежим(ЭтоДемоРежим);
+
+ Если Не ЭтоДемоРежим Тогда
+ Если НРег(НаборКонстант.АдресЦентральнойБазы) = "https://"
+ Или НРег(НаборКонстант.АдресЦентральнойБазы) = "http://"
+ Или НаборКонстант.АдресЦентральнойБазы = "" Тогда
+
+ ЗаголовокПредупреждения = НСтр("ru = 'Подключение'; en = 'Connection'");
+ ТекстПредупреждения = НСтр("ru = 'Не указан адрес сервера.';
+ |en = 'The server address is not specified'");
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, , ЗаголовокПредупреждения);
+
+ Возврат;
+
+ КонецЕсли;
+ КонецЕсли;
+
+ ДатаНачалаСинхронизации = ТекущаяДата();
+
+ ОбщегоНазначенияВызовСервера.ОчиститьОчередьСообщенияИПолученныеДанныеНаСервере();
+
+ ПараметрыОбработчика = Новый Структура;
+ ПараметрыОбработчика.Вставить("ЭтаФорма", ЭтаФорма);
+ ПараметрыОбработчика.Вставить("ДатаНачалаСинхронизации", ДатаНачалаСинхронизации);
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ПодключитьсяЗавершение", ОбменКлиент,
+ ПараметрыОбработчика);
+
+ Форма = ОткрытьФорму("ОбщаяФорма.Синхронизация",,
+ ЭтаФорма,,,,
+ ОбработчикЗавершения,
+ РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ ПараметрыВызова = Новый Структура;
+ ПараметрыВызова.Вставить("РежимСинхронизации", "ПодключитьНовоеУстройство");
+ ПараметрыВызова.Вставить("ДатаНачалаСинхронизации", ДатаНачалаСинхронизации);
+
+ Форма.ВыполнитьСинхронизацию(ПараметрыВызова);
+
+КонецПроцедуры
+
+// Выполняет действия после завершения синхронизации.
+//
+// Параметры:
+// Результат - Произвольный - Результат выполнения синхронизации;
+// ДатаНачалаСинхронизации - ДатаВремя - Дата начала процесса синхронизации.
+//
+Процедура ПодключитьсяЗавершение(Результат, ДатаНачалаСинхронизации) Экспорт
+
+ ЕстьОшибкиПриПодключении = Результат;
+
+ Если ЕстьОшибкиПриПодключении = Ложь Тогда
+ Оповестить("ВыполненоПодключениеКЦентральнойБазе", ДатаНачалаСинхронизации);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Показывает пользователю сообщения с ошибками обмена.
+//
+// Возвращаемое значение:
+// Булево - Истина, если есть ошибки для показа.
+//
+Функция НайтиИПоказатьОшибкиПриСинхронизации() Экспорт
+
+ ЕстьОшибки = Ложь;
+ МоментыВремениСобытий =
+ ОбщегоНазначенияВызовСервера.ПолучитьОтметкиВремениНепоказанныеОшибок(Ложь);
+
+ Если МоментыВремениСобытий.Количество() > 0 Тогда
+
+ ПараметрыФормы = Новый Структура("МоментыВремениСобытий", МоментыВремениСобытий);
+ ОткрытьФорму("РегистрСведений.ПротоколСобытий.Форма.ФормаСпискаСобытий", ПараметрыФормы);
+
+ ЕстьОшибки = Истина;
+
+ КонецЕсли;
+
+ Возврат ЕстьОшибки;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция ПолучитьПодписьКДатеОбновленияИНаличиеДанныхДляОтправки()
+
+ ТекущаяДата = ТекущаяДата();
+ ДатаПоследнегоОбновления = Дата(1,1,1);
+ ЕстьДанныеДляОтправки = Ложь;
+
+ ОбщегоНазначенияВызовСервера.ПолучитьДатуПоследнегоОбновленияИНаличиеДанныхДляОтправки(
+ ДатаПоследнегоОбновления, ЕстьДанныеДляОтправки);
+
+ Если Не ЗначениеЗаполнено(ДатаПоследнегоОбновления) Тогда
+
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Не настроено подключение'; en = 'Check connection settings'");
+
+ СтруктураВозврата = Новый Структура;
+ СтруктураВозврата.Вставить("ОписаниеПоследнегоОбновления", ОписаниеПоследнегоОбновления);
+ СтруктураВозврата.Вставить("ЕстьНеотправленныеДанные" , Ложь);
+
+ Иначе
+
+ Период = (ТекущаяДата - ДатаПоследнегоОбновления)/60;
+ ОписаниеПоследнегоОбновления =
+ ПолучитьОписаниеПоследнегоОбновления(Период, ТекущаяДата, ДатаПоследнегоОбновления);
+
+ СтруктураВозврата = Новый Структура;
+ СтруктураВозврата.Вставить("ОписаниеПоследнегоОбновления", ОписаниеПоследнегоОбновления);
+ СтруктураВозврата.Вставить("ЕстьНеотправленныеДанные" , ЕстьДанныеДляОтправки);
+
+ КонецЕсли;
+
+ Возврат СтруктураВозврата;
+
+КонецФункции
+
+Функция ПолучитьОписаниеПоследнегоОбновления(Период, ТекущаяДата, ДатаПоследнегоОбновления)
+
+ ОписаниеПоследнегоОбновления = "";
+
+ Если Период < 1 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено только что'; en = 'Updated just now'");
+
+ ИначеЕсли Период < 2 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено минуту назад'; en = 'Updated a minute ago'");
+
+ ИначеЕсли Период < 3 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 2 минуты назад'; en = 'Updated 2 minutes ago'");
+
+ ИначеЕсли Период < 4 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 3 минуты назад'; en = 'Updated 3 minutes ago'");
+
+ ИначеЕсли Период < 5 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 4 минуты назад'; en = 'Updated 4 minutes ago'");
+
+ ИначеЕсли Период < 6 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 5 минуты назад'; en = 'Updated 5 minutes ago'");
+
+ ИначеЕсли Период < 15 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 15 минут назад'; en = 'Updated 15 minutes ago'");
+
+ ИначеЕсли Период < 30 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено 30 минут назад'; en = 'Updated 30 minutes ago'");
+
+ ИначеЕсли Период < 60 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено менее часа назад'
+ |; en = 'Updated less than an hour ago'");
+
+ ИначеЕсли Период < 120 Тогда
+ ОписаниеПоследнегоОбновления =
+ НСтр("ru = 'Обновлено менее 2 часов назад'
+ |; en = 'Updated less than an 2 hours ago'");
+
+ ИначеЕсли ДатаПоследнегоОбновления < КонецДня(ТекущаяДата)
+ И ДатаПоследнегоОбновления > НачалоДня(ТекущаяДата) Тогда
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон(
+ НСтр("ru = 'Обновлено сегодня в %1'; en = 'Updated today at %1'"),
+ Формат(ДатаПоследнегоОбновления, "ДФ='HH:mm'"));
+
+ ИначеЕсли ДатаПоследнегоОбновления < НачалоДня(ТекущаяДата)
+ И ДатаПоследнегоОбновления > НачалоДня(ТекущаяДата - 24*60*60) Тогда
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон(
+ НСтр("ru = 'Обновлено вчера в %1'; en = 'Updated yesterday at %1'"),
+ Формат(ДатаПоследнегоОбновления, "ДФ='HH:mm'"));
+
+ Иначе
+ ОписаниеПоследнегоОбновления =
+ СтрШаблон(
+ НСтр("ru = 'Обновлено %1'; en = 'Updated %1'"),
+ Формат(ДатаПоследнегоОбновления, "ДФ='dd.MM.yyyy HH:mm'"));
+ КонецЕсли;
+
+ Возврат ОписаниеПоследнегоОбновления;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..c97e176
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменКлиентСервер
+
+
+ ru
+ Обмен клиент сервер
+
+
+
+ false
+ true
+ true
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..83a07f5
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,57 @@
+
+///////////////////////////////////////////////////////////////////////////////
+// СУЩНОСТИ ОБМЕНА
+
+#Область СущностиОбмена
+
+// Справочники
+
+Функция Сущность_Город() Экспорт
+
+ Возврат "Город";
+
+КонецФункции
+
+Функция Сущность_ОбъектСтроительства() Экспорт
+
+ Возврат "Объект";
+
+КонецФункции
+
+Функция Сущность_Контрагент() Экспорт
+
+ Возврат "Контрагент";
+
+КонецФункции
+
+Функция Сущность_СтатьяРасходов() Экспорт
+
+ Возврат "СтатьяРасходов";
+
+КонецФункции
+
+// Документы
+
+Функция Сущность_СписаниеДенежныхСредств() Экспорт
+
+ Возврат "СписаниеДенежныхСредств";
+
+КонецФункции
+
+Функция Сущности() Экспорт
+
+ Результат = Новый Массив();
+
+ // Справочники
+ Результат.Добавить(Сущность_Город());
+ Результат.Добавить(Сущность_ОбъектСтроительства());
+ Результат.Добавить(Сущность_Контрагент());
+
+ // Документы
+ Результат.Добавить(Сущность_СписаниеДенежныхСредств());
+
+ Возврат Результат;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271.xml"
new file mode 100644
index 0000000..168212e
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменОбработкаСообщений
+
+
+ ru
+ Обмен обработка сервер
+
+
+
+ false
+ false
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Module.bsl"
new file mode 100644
index 0000000..0c2a6c9
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\236\320\261\321\200\320\260\320\261\320\276\321\202\320\272\320\260\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271/Ext/Module.bsl"
@@ -0,0 +1,206 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выполняет предварительный анализ данных полученного сообщения обмена.
+//
+// Параметры:
+// Сообщение - Структура - Описание сообщения обмена;
+// * ИмяФайла - Строка - Имя файла сообщения;
+// * ИдентификаторСообщения - УУИД - Уникальный идентификатор сообщения в регистре;
+// СведенияОЗагруженныхДанных - Структура - Описание загруженных данных.
+//
+// Возвращаемое значение:
+// Число - Число объектов в файле.
+//
+Функция ПросмотретьСообщение(Сообщение, СведенияОЗагруженныхДанных) Экспорт
+
+ ДатаПоследнейСинхронизации = Константы.ДатаПоследнегоОбновления.Получить();
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Ссылка = Неопределено;
+ Значение = Неопределено;
+
+ Если Сообщение.Данные.Свойство("LogRecord") Тогда
+ LogRecord = Сообщение.Данные.LogRecord;
+ ТипЗаписи = LogRecord.RecordType;
+ Если ТипЗаписи = "Error" Тогда
+ СведенияОЗагруженныхДанных.ЕстьОшибки = Истина;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если Сообщение.Данные.Свойство("Objects") Тогда
+ Для Каждого Объект Из Сообщение.Данные.Objects Цикл
+ Ссылка = ОбменВызовСервераПовтИсп.ПолучитьСсылкуПоТипу(Объект.Тип, Объект.UUID);
+
+ ОбновитьСчетчикиКоллекций(Ссылка, Объект.Тип, СведенияОЗагруженныхДанных);
+ ОбменВызовСервера.УвеличитьСчетчикиПоТипамОбъектов(СведенияОЗагруженныхДанных, Объект.Тип);
+ КонецЦикла;
+ КонецЕсли;
+
+ Возврат СведенияОЗагруженныхДанных.ПоказателиОбмена.СчетчикиОбъектов.Количество() > 0
+ ИЛИ СведенияОЗагруженныхДанных.ЕстьОшибки;
+
+КонецФункции
+
+// Выполняет запись данных полученного сообщения обмена.
+//
+// Параметры:
+// Сообщение - Структура - Описание сообщения обмена;
+// * ИмяФайла - Строка - Имя файла сообщения;
+// * ИдентификаторСообщения - УУИД - Уникальный идентификатор сообщения в регистре;
+// СведенияОЗагруженныхДанных - Структура - Описание загруженных данных.
+//
+Процедура ОбработатьСообщение(Сообщение, СведенияОЗагруженныхДанных) Экспорт
+
+ Попытка
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.КоличествоОбработанныхОбъектов =
+ СведенияОЗагруженныхДанных.ПоказателиОбмена.КоличествоОбработанныхОбъектов + 1;
+
+ СсылкаНаЗагруженныйОбъект = Неопределено;
+
+ Попытка
+ ВыполнитьОбработку(
+ Сообщение.Данные, СсылкаНаЗагруженныйОбъект, СведенияОЗагруженныхДанных);
+ Исключение
+ Инфо = ИнформацияОбОшибке();
+ Если Сообщение.Свойство("LogRecord") Тогда
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Сервер сообщил об ошибке обработки данных.'
+ |; en = 'An error occured on server while procesing data'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ // От сервера поступило сообщение об ошибке - необходимо корректно завершить
+ // обработку сообщения.
+ РегистрыСведений.ПолученныеДанныеОбмена.УдалитьСообщение(Сообщение.ИдентификаторСообщения);
+ Иначе
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Произошла ошибка при обработке сообщения от сервера.'
+ |; en = 'An error occured while procesing server messages'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+ КонецЕсли;
+ ВызватьИсключение ТекстОшибки;
+ КонецПопытки;
+
+ // Для загруженных объектов удаляется регистрация изменений, чтобы они не передавались
+ // обратно на сервер.
+ Если Не СсылкаНаЗагруженныйОбъект = Неопределено
+ Или ТипЗнч(СсылкаНаЗагруженныйОбъект) = Тип("УдалениеОбъекта") Тогда
+
+ Попытка
+ МетаданныеОбъекта = СсылкаНаЗагруженныйОбъект.Метаданные();
+ Исключение
+ МетаданныеОбъекта = Неопределено;
+ КонецПопытки;
+
+ Если Не Метаданные = Неопределено
+ И Не Метаданные.ПланыОбмена.ОбменССервером.Состав.Найти(МетаданныеОбъекта) = Неопределено Тогда
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена, СсылкаНаЗагруженныйОбъект);
+ КонецЕсли;
+ КонецЕсли;
+
+ Исключение
+ Инфо = ИнформацияОбОшибке();
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(Инфо.Описание);
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+ ВызватьИсключение;
+ КонецПопытки;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Выполняет инициацию загрузки конкретного объекта данных.
+//
+// Параметры:
+// СтруктураДанныхОбъекта - Соответствие - Список значений реквизитов объекта;
+// СсылкаНаЗагруженныйОбъект - Ссылка - Ссылка на загружаемый объект;
+// СведенияОЗагруженныхДанных - Структура - Кэш данных загруженных объектов.
+//
+Процедура ВыполнитьОбработку(Сообщение, СсылкаНаЗагруженныйОбъект,
+ СведенияОЗагруженныхДанных)
+
+ СсылкаНаЗагруженныйОбъект = Неопределено;
+ МоментВремени = Неопределено;
+
+ ОбменИмпорт.ЗаписатьОбъект(Сообщение, СведенияОЗагруженныхДанных, МоментВремени);
+
+ Если МоментВремени <> Неопределено Тогда
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Обновляет счетчики коллекций при загрузке данных.
+//
+// Параметры:
+// Ссылка - Ссылка - Ссылка на загружаемый объект;
+// Значение - Объект - Загружаемый объект, Неопределено, если он новый;
+// ИмяТипа - Строка - Имя типа загружаемого объекта;
+// СведенияОЗагруженныхДанных - Структура - Временные данные о текущей операции обмена.
+// * УдаляемыеДанные - Соответствие - Список данных, которые будут удалены;
+// * НовыеДанные - Соответствие - Список данных, которые будут загружены в первый раз;
+// * ПоказателиОбмена - Структура - Статистические показатели текущей сессии обмена.
+//
+Процедура ОбновитьСчетчикиКоллекций(Ссылка, Знач Тип, СведенияОЗагруженныхДанных)
+
+ // todo
+ Значение = Неопределено;
+
+ Если Не Ссылка = Неопределено И Не Ссылка.Пустая() Тогда
+ СсылкаПодлежитУдалению =
+ СведенияОЗагруженныхДанных.УдаляемыеДанные.Получить(Ссылка.УникальныйИдентификатор()) <> Неопределено;
+
+ Если СсылкаПодлежитУдалению Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Добавим объект в список новых данных которые будут загружены
+ СведенияОЗагруженныхДанных.НовыеДанные.Вставить(
+ Ссылка, ?(Значение = Неопределено, Ссылка, Значение));
+
+ // Обновляем счетчики новых объектов для информирования пользователя
+ Коллекция = Неопределено;
+ Тип = НРег(Тип);
+
+ // Справочники
+ Если Тип = НРег(ОбменКлиентСервер.Сущность_Город()) Тогда
+ Коллекция = "НовыеГорода";
+
+ ИначеЕсли Тип = НРег(ОбменКлиентСервер.Сущность_Контрагент()) Тогда
+ Коллекция = "НовыеКонтрагенты";
+
+ ИначеЕсли Тип = НРег(ОбменКлиентСервер.Сущность_ОбъектСтроительства()) Тогда
+ Коллекция = "НовыеОбъектыСтроительства";
+
+ ИначеЕсли Тип = НРег(ОбменКлиентСервер.Сущность_СтатьяРасходов()) Тогда
+ Коллекция = "НовыеСтатьиРасходов";
+
+ // Документы
+ ИначеЕсли Тип = НРег(ОбменКлиентСервер.Сущность_СписаниеДенежныхСредств()) Тогда
+ Коллекция = "НовыеСписанияДенежныхСредств";
+
+ КонецЕсли;
+
+ Объект = Ссылка.ПолучитьОбъект();
+ Если НЕ Коллекция = Неопределено И Объект = Неопределено Тогда
+ СведенияОЗагруженныхДанных.ПоказателиОбмена[Коллекция] =
+ СведенияОЗагруженныхДанных.ПоказателиОбмена[Коллекция] + 1;
+ КонецЕсли;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..e20627b
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменФормированиеDMXСервер
+
+
+ ru
+ Обмен формирование DMX сервер
+
+
+
+ false
+ false
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..5387555
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265DMX\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,1274 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Инициирует запись команды подключения нового устройства в XML в зависимости от указанной версии.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных XML;
+// Версия - Строка - Желаемая версия формата данных.
+//
+Процедура ЗаписатьВXMLКомандуПодключенияУстройства(ЗаписьXML, Версия) Экспорт
+
+ ВыгрузитьСообщениеДляПодключенияУстройства(ЗаписьXML, Версия);
+
+КонецПроцедуры
+
+// Инициирует запись команды отключения устройства в XML в зависимости от указанной версии.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных XML;
+// Версия - Строка - Желаемая версия формата данных.
+//
+Процедура ЗаписатьВXMLКомандуОтключенияУстройства(ЗаписьXML, Версия) Экспорт
+
+ Если Версия >= "206" Тогда
+ ВыгрузитьСообщениеДляОтключенияУстройстваПоВерсии206(ЗаписьXML, Версия);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Инициирует запись запроса файла с сервера в XML в зависимости от указанной версии.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных XML;
+// Версия - Строка - Желаемая версия формата данных;
+// ФайлСсылка - СправочникСсылка.Файлы - Ссылка на запрашиваемый файл.
+//
+Процедура ЗаписатьВXMLКомандуПолученияОдногоФайла(ЗаписьXML, Версия, ФайлСсылка) Экспорт
+
+ Если Версия >= "206" Тогда
+ ВыгрузитьСообщениеДляПолученияОдногоФайлаПоВерсии206(ЗаписьXML, Версия, ФайлСсылка);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Инициирует запись данных информации о клиентском устройстве в XML в зависимости от указанной версии.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных XML;
+// Версия - Строка - Желаемая версия формата данных.
+//
+Процедура ЗаписатьВXMLИнформациюОКлиенте(ЗаписьXML, Версия) Экспорт
+
+ ВыгрузитьИнформациюОКлиентеПоВерсии206(ЗаписьXML);
+
+КонецПроцедуры
+
+// Записывает указанный объект в виде XML для передачи на сервер.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных XML;
+// ВерсияСервиса - Строка - Желаемая версия формата данных;
+// Объект - Произвольный - Объект, передаваемый на сервер (Ссылка или НаборЗаписей).
+//
+Процедура ЗаписатьОбъектВXML(ЗаписьXML, ВерсияСервиса, Объект) Экспорт
+
+ Если ТипЗнч(Объект) = Тип("УдалениеОбъекта") Тогда
+
+ ЗаписатьВXMLУдалениеОбъекта(ЗаписьXML, ВерсияСервиса, Объект);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.АдресатыПочтовыхСообщений") Тогда
+
+ ЗаписатьВXMLАдресата(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.ЗаписиРабочегоКалендаря") Тогда
+
+ ЗаписатьВXMLЗаписьРабочегоКалендаря(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.Контроль") Тогда
+
+ ЗаписатьВXMLКонтрольнуюКарточку(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.ПроцессыИсполнение") Тогда
+
+ ЗаписатьВXMLПроцессИсполнение(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.Файлы") Тогда
+
+ ЗаписатьВXMLФайл(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("СправочникОбъект.ШаблоныТекстовПисем") Тогда
+
+ ЗаписатьВXMLШаблоныТекстов(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("ДокументОбъект.ИсходящееПисьмо") Тогда
+
+ ЗаписатьВXMLИсходящееПисьмо(ЗаписьXML, ВерсияСервиса, Объект.Ссылка);
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ЗадачиПринятыеНаИсполнение") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLПринятиеЗадачиНаИсполнение(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ИзмененныеНастройкиСинхронизации") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+
+ Если Запись.ВидНастройки = Перечисления.ВидыНастроекОбмена.СинхронизацияПапокПисем Тогда
+ ЗаписатьВXMLНастройкуСинхронизацииПапокПисем(ЗаписьXML, ВерсияСервиса);
+
+ ИначеЕсли Запись.ВидНастройки = Перечисления.ВидыНастроекОбмена.СрокУстареванияДанных Тогда
+ ЗаписатьВXMLНастройкуСрокаУстаревания(ЗаписьXML, ВерсияСервиса);
+
+ ИначеЕсли Запись.ВидНастройки = Перечисления.ВидыНастроекОбмена.МаксимальныйРазмерФайла Тогда
+ ЗаписатьВXMLНастройкуМаксРазмераФайла(ЗаписьXML, ВерсияСервиса);
+
+ ИначеЕсли Запись.ВидНастройки = Перечисления.ВидыНастроекОбмена.ШаблоныТекстовПисем Тогда
+ ЗаписатьВXMLНастройкиШаблоновПисем(ЗаписьXML, ВерсияСервиса);
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ПапкиОбъектов") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLЗаписьПапкиОбъекта(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ПеренаправлениеЗадач") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLПеренаправлениеЗадачи(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ПротоколСобытий") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLЗаписьПротоколаСобытий(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.РезультатыВыполненияЗадач") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLРезультатыВыполненияЗадачи(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.СведенияОПрочтенииОбъектов") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLЗаписьОПрочтенииОбъекта(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.ФлагиОбъектов") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLФлагОбъекта(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ ИначеЕсли ТипЗнч(Объект) = Тип("РегистрСведенийНаборЗаписей.СостоянияПроцессов") Тогда
+
+ Для Каждого Запись Из Объект Цикл
+ ЗаписатьВXMLЗаписьСостоянияПроцессов(ЗаписьXML, ВерсияСервиса, Запись);
+ КонецЦикла;
+
+ Иначе
+
+ Описание = СтрШаблон(
+ НСтр("ru = 'Пропущен объект (%1, %2)'; en = 'object skipped (%1, %2)'"),
+ ТипЗнч(Объект),
+ Строка(Объект));
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьПредупреждение(Описание);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Процедура - Записать заголовок элемента данных.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи;
+// ИмяТипаОбъекта - Строка - Строковое представление типа выгружаемого объекта;
+// ВерсияФормата - Строка - Использованная при выгрузке версия формата.
+//
+Процедура ЗаписатьЗаголовокОбъекта(ЗаписьXML, ИмяТипаОбъекта, ВерсияФормата) Экспорт
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента(ИмяТипаОбъекта);
+ ЗаписьXML.ЗаписатьАтрибут("Version", ВерсияФормата);
+
+КонецПроцедуры
+
+// Выполняет проверку, получение и запись идентификатора объекта.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи;
+// ИмяЭлемента - Строка - Имя записываемого элемента;
+// ЗначениеЭлемента - Ссылка - Ссылка на объект выгружаемый на сервер.
+//
+Процедура ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, ИмяЭлемента, ЗначениеЭлемента)
+
+ Если Не ЗначениеЗаполнено(ЗначениеЭлемента) Тогда
+ Возврат;
+ КонецЕсли;
+
+ УИД = ЗначениеЭлемента.УникальныйИдентификатор();
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, ИмяЭлемента, УИД);
+
+КонецПроцедуры
+
+// Записывает значение элемента данных в поток XML.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи;
+// ИмяЭлемента - Строка - имя типа выгружаемого элемента;
+// ЗначениеЭлемента - Произвольный - выгружаемый объект;
+// УдалитьНедопустимыеСимволы - Булево - Признак, что для выгружаемого значения нужно удалить недопустимые символы.
+//
+Процедура ЗаписатьЭлементОбъектаДанных(ЗаписьXML, ИмяЭлемента, ЗначениеЭлемента) Экспорт
+
+ Если Не ЗначениеЗаполнено(ЗначениеЭлемента) Тогда
+ Возврат;
+ КонецЕсли;
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента(ИмяЭлемента);
+ ЗаписьXML.ЗаписатьТекст(XMLСтрока(ЗначениеЭлемента));
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+// Выгружает XML представление ссылки на объект.
+//
+// Параметры:
+// ВерсияКлиента - Строка - Версия формата запрошенная клиентом;
+// ЭлементДанных - ДокументСсылка.ВходящееПисьмо - Выгружаемый элемент данных.
+//
+// Возвращаемое значение:
+// Строка - XML представление ссылки на объект.
+//
+Процедура ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, ИмяЭлемента, ЭлементДанных)
+
+ Если Не ЗначениеЗаполнено(ЭлементДанных) Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Записываем в поток открывающий тег
+ ЗаписьXML.ЗаписатьНачалоЭлемента(ИмяЭлемента);
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Type",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеТипаПоСсылке(ЭлементДанных));
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЭлементДанных);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ОбработкаКоманд
+
+Процедура ВыгрузитьСообщениеДляПодключенияУстройства(ЗаписьXML, Версия)
+
+ // Записываем данные в пакет
+ ЗаписатьВXMLНастройкуСрокаУстаревания(ЗаписьXML, Версия);
+ ЗаписатьВXMLНастройкуМаксРазмераФайла(ЗаписьXML, Версия);
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "Connect", "001");
+
+ // Записываем данные в пакет
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ClientCode", Константы.КодУстройства.Получить());
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "InitialPeriod", Константы.ПериодПервичнойЗагрузкиДанных.Получить());
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ ЗаписатьВXMLИнформациюОКлиенте(ЗаписьXML, Версия);
+
+КонецПроцедуры
+
+Процедура ВыгрузитьСообщениеДляОтключенияУстройстваПоВерсии206(ЗаписьXML, Версия)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "Disconnect", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Client", Константы.КодУстройства.Получить());
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+Процедура ВыгрузитьСообщениеДляПолученияОдногоФайлаПоВерсии206(ЗаписьXML, Версия, ФайлСсылка)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "GetFile", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ФайлСсылка);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ПроцедурыИФункцииВыгрузкиДанных
+
+#Область ИнформацияОКлиенте
+
+Процедура ВыгрузитьИнформациюОКлиентеПоВерсии206(ЗаписьXML)
+
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ClientInfo", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "AppVersion",
+ Константы.ВерсияАренды.Получить());
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "OS",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(СистемнаяИнформация.ВерсияОС));
+
+ РазмерПамяти = СистемнаяИнформация.ОперативнаяПамять;
+ РазмерПамяти = ?(РазмерПамяти = 0, 64, РазмерПамяти);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RAM", РазмерПамяти);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DeviceName",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ИмяКомпьютера()));
+
+ РазмерЭкрана = ЭкранКлиентСервер.ДиагональЭкрана();
+ РазмерЭкрана = ?(ЗначениеЗаполнено(РазмерЭкрана), РазмерЭкрана, 4);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ScreenSize",
+ Формат(РазмерЭкрана,"ЧЦ=3; ЧДЦ=1; ЧРД=.; ЧГ="));
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область УдалениеОбъекта
+
+// Определяет какую версию объекта нужно использовать для удаления объекта.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи XML файла;
+// ВерсияСервиса - Строка - Версия протокола обмена заявленная клиентом;
+// ЭлементДанных - Ссылка, Набор, УдалениеОбъекта - Элемент выгружаемых данных.
+//
+Процедура ЗаписатьВXMLУдалениеОбъекта(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ // Выбираем версию выгрузки в зависимости от используемой версии клиента
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьУдалениеОбъектаДляВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Выгружает входящее письмо в терминах версии 206.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи XML файла;
+// ЭлементДанных - Ссылка, Набор, УдалениеОбъекта - Элемент выгружаемых данных.
+//
+Процедура ВыгрузитьУдалениеОбъектаДляВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ObjectDeletion", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Type",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеТипаПоСсылке(ЭлементДанных.Ссылка));
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЭлементДанных.Ссылка);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+#Область АдресатыПочтовыхСообщений
+
+Процедура ЗаписатьВXMLАдресата(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьАдресатаПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьАдресатаПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,Наименование,Адрес");
+
+ Если Не ЗначениеЗаполнено(ЗначенияРеквизитов.Ссылка) Тогда
+ Возврат;
+ КонецЕсли;
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "Addressee", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Presentation",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Наименование));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Address",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Адрес));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "PhoneNumbers", "");
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ЗаписиРабочегоКалендаря
+
+Процедура ЗаписатьВXMLЗаписьРабочегоКалендаря(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьЗаписьРабочегоКалендаряПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьЗаписьРабочегоКалендаряПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,Описание,ВесьДень,ДатаНачала,ДатаОкончания,Цвет,Состояние,
+ |ТипЗаписиКалендаря,ДатаНачалаПовторения,ДатаОкончанияПовторения,ИнтервалПовторения,
+ |ПовторениеПоДнямМесяца,ПовторениеПоМесяцам,КоличествоПовторов,ЧастотаПовторения,
+ |ПравилоОкончанияПовторения,ПовторениеПоДням,ИсключенияПовторения,Отработано,Предмет,Связанная");
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "CalendarEvent", "206");
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЗначенияРеквизитов.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Описание));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DayLong", ЗначенияРеквизитов.ВесьДень);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "StartDate", ЗначенияРеквизитов.ДатаНачала);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "EndDate", ЗначенияРеквизитов.ДатаОкончания);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Color",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеЦвета(ЗначенияРеквизитов.Цвет));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Status",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеСостоянияЗаписиРабочегоКалендаря(
+ ЗначенияРеквизитов.Состояние));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Type",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеТипаЗаписиКалендаря(ЗначенияРеквизитов.ТипЗаписиКалендаря));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "IsDone", ЗначенияРеквизитов.Отработано);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Linked", ЗначенияРеквизитов.Связанная);
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Target", ЗначенияРеквизитов.Предмет);
+
+ Если ЗначенияРеквизитов.ТипЗаписиКалендаря = Перечисления.ТипЗаписиКалендаря.ПовторяющеесяСобытие Тогда
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RecurrenceStartDate", ЗначенияРеквизитов.ДатаНачалаПовторения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RecurrenceEndDate", ЗначенияРеквизитов.ДатаОкончанияПовторения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Interval", ЗначенияРеквизитов.ИнтервалПовторения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ByMonthDay", ЗначенияРеквизитов.ПовторениеПоДнямМесяца);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ByMonth", ЗначенияРеквизитов.ПовторениеПоМесяцам);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Count", ЗначенияРеквизитов.КоличествоПовторов);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Frequency",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеЧастотыПовторений(ЗначенияРеквизитов.ЧастотаПовторения));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "EndRule",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеПравилаОкончанияПовторения(
+ ЗначенияРеквизитов.ПравилоОкончанияПовторения));
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("RecurrenceDays");
+ ДниПовторения = ЗначенияРеквизитов.ПовторениеПоДням.Выбрать();
+ Пока ДниПовторения.Следующий() Цикл
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("RecurrenceDay");
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Day", ДниПовторения.ДеньНедели);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Occurrence", ДниПовторения.НомерВхождения);
+
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ КонецЦикла;
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // RecurrenceDays
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("RecurrenceExceptions");
+ ИсключениеПовторения = ЗначенияРеквизитов.ИсключенияПовторения.Выбрать();
+ Пока ИсключениеПовторения.Следующий() Цикл
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("RecurrenceException");
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ИсключениеПовторения.ЗаписьИсключения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Date", ИсключениеПовторения.ДатаИсключения);
+
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ КонецЦикла;
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // RecurrenceExceptions
+
+ КонецЕсли;
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // CalendarEvent
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область Контроль
+
+Процедура ЗаписатьВXMLКонтрольнуюКарточку(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьКонтрольнуюКарточкуПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьКонтрольнуюКарточкуПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,Наименование,Описание,Автор,ДатаПостановкиНаКонтроль,
+ |ДатаСнятияСКонтроля,ПоставленНаКонтроль,СнятСКонтроля,СрокИсполнения,Контролер,Источник,
+ |Предмет,Исполнители");
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "Control", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЗначенияРеквизитов.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Name",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Наименование));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Описание));
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Author", ЗначенияРеквизитов.Автор);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ControlStartDate", ЗначенияРеквизитов.ДатаПостановкиНаКонтроль);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ControlEndDate", ЗначенияРеквизитов.ДатаСнятияСКонтроля);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Active", ЗначенияРеквизитов.ПоставленНаКонтроль);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Deactivated", ЗначенияРеквизитов.СнятСКонтроля);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DeadLine", ЗначенияРеквизитов.СрокИсполнения);
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Controller", ЗначенияРеквизитов.Контролер);
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Source", ЗначенияРеквизитов.Источник);
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Target", ЗначенияРеквизитов.Предмет);
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ControlPerformers");
+ Исполнитель = ЗначенияРеквизитов.Исполнители.Выбрать();
+ Пока Исполнитель.Следующий() Цикл
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ControlPerformer");
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Main", Исполнитель.Ответственный);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "TaskIsExecuted", Исполнитель.Исполнено);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "TaskExecutionDate", Исполнитель.ДатаИсполнения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ControlEndDate", Исполнитель.ДатаКонтроля);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "TaskControlled", Исполнитель.Проконтролировано);
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Performer", Исполнитель.Исполнитель);
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Source", Исполнитель.Источник);
+
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ КонецЦикла;
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // ControlPerformers
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // Control
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ПроцессИсполнение
+
+Процедура ЗаписатьВXMLПроцессИсполнение(ЗаписьXML, ВерсияКлиента, ЭлементДанных)
+
+ Если ВерсияКлиента >= "214" Тогда
+ ВыгрузитьПроцессИсполнениеПоВерсии214(ЗаписьXML, ЭлементДанных);
+ ИначеЕсли ВерсияКлиента >= "206" Тогда
+ ВыгрузитьПроцессИсполнениеПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьПроцессИсполнениеПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,Наименование,Описание,Срок,Важность,ДатаСоздания,ДатаСтарта,
+ |ДатаЗавершения,ГлавнаяЗадача,Состояние,Исполнители");
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ExecutionProcess", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЗначенияРеквизитов.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Описание));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Name",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Наименование));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DeadLine", ЗначенияРеквизитов.Срок);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Importance",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеВажностиЗадачи(ЗначенияРеквизитов.Важность));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "CreationDate", ЗначенияРеквизитов.ДатаСоздания);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "StartDate", ЗначенияРеквизитов.ДатаСтарта);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "EndDate", ЗначенияРеквизитов.ДатаЗавершения);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ExecutionHistory", "");
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "MainTask", ЗначенияРеквизитов.ГлавнаяЗадача);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "State",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеСостоянияБизнесПроцесса(
+ ЗначенияРеквизитов.Состояние));
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ExecutionPerformers");
+ Исполнитель = ЗначенияРеквизитов.Исполнители.Выбрать();
+ Пока Исполнитель.Следующий() Цикл
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ExecutionPerformer");
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Performer", Исполнитель.Исполнитель);
+
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ КонецЦикла;
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // ControlPerformers
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // ExecutionProcess
+
+ ЗаписатьВXMLФайлыОбъекта(ЗаписьXML, "206", ЗначенияРеквизитов.Ссылка);
+
+КонецПроцедуры
+
+Процедура ВыгрузитьПроцессИсполнениеПоВерсии214(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,Наименование,Описание,Срок,Важность,ДатаСоздания,ДатаСтарта,
+ |ДатаЗавершения,ГлавнаяЗадача,Состояние,Исполнители");
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ExecutionProcess", "214");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion",
+ ЗначенияРеквизитов.ВерсияДанныхНаСервере);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Описание));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Name",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Наименование));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DeadLine", ЗначенияРеквизитов.Срок);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Importance",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеВажностиЗадачи(ЗначенияРеквизитов.Важность));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "CreationDate",
+ ЗначенияРеквизитов.ДатаСоздания);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "StartDate",
+ ЗначенияРеквизитов.ДатаСтарта);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "EndDate",
+ ЗначенияРеквизитов.ДатаЗавершения);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ExecutionHistory", "");
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "MainTask",
+ ЗначенияРеквизитов.ГлавнаяЗадача);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "State",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеСостоянияБизнесПроцесса(
+ ЗначенияРеквизитов.Состояние));
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ExecutionPerformers");
+ Исполнители = ЗначенияРеквизитов.Исполнители.Выбрать();
+ Пока Исполнители.Следующий() Цикл
+
+ ЗаписьXML.ЗаписатьНачалоЭлемента("ExecutionPerformer");
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Performer",
+ Исполнители.Исполнитель);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ID",
+ Исполнители.ИдентификаторИсполнителя);
+
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ КонецЦикла;
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // ExecutionPerformers
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // ExecutionProcess
+
+ ЗаписатьВXMLФайлыОбъекта(ЗаписьXML, "206", ЗначенияРеквизитов.Ссылка);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область Файлы
+
+Процедура ЗаписатьВXMLФайлыОбъекта(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ СтруктураОтбора = Новый Структура;
+ СтруктураОтбора.Вставить("ВладелецФайла", ЭлементДанных.Ссылка);
+
+ ВыборкаФайлы = Справочники.Файлы.Выбрать(,, СтруктураОтбора);
+
+ Пока ВыборкаФайлы.Следующий() Цикл
+ ЗаписатьВXMLФайл(ЗаписьXML, ВерсияСервиса, ВыборкаФайлы.Ссылка, Истина);
+ КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ЗаписатьВXMLФайл(ЗаписьXML, ВерсияСервиса, ЭлементДанных, ЭтоВложение = Ложь)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьФайлПоВерсии206(ЗаписьXML, ЭлементДанных, ЭтоВложение);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьФайлПоВерсии206(ЗаписьXML, ЭлементДанных, ЭтоВложение = Ложь)
+
+ // Выполним проверки и подготовку данных
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,Наименование,Тип,ТолькоЗаголовок,Данные,Размер,ВладелецФайла,ФайлОснование");
+
+ // Для задач файлы могут выгружаться индивидуально.
+ // для писем и процессов исполнение - только как вложения.
+ Если Не ЭтоВложение
+ И ТипЗнч(ЗначенияРеквизитов.ВладелецФайла) = Тип("СправочникСсылка.Задачи") Тогда
+ ТипВладельца = "Task";
+
+ ИначеЕсли ЭтоВложение
+ И ТипЗнч(ЗначенияРеквизитов.ВладелецФайла) = Тип("СправочникСсылка.ПроцессыИсполнение") Тогда
+ ТипВладельца = "ExecutionProcess";
+
+ ИначеЕсли ЭтоВложение
+ И ТипЗнч(ЗначенияРеквизитов.ВладелецФайла) = Тип("ДокументСсылка.ВходящееПисьмо") Тогда
+ ТипВладельца = "IncomingMail";
+
+ ИначеЕсли ЭтоВложение
+ И ТипЗнч(ЗначенияРеквизитов.ВладелецФайла) = Тип("ДокументСсылка.ИсходящееПисьмо") Тогда
+ ТипВладельца = "OutgoingMail";
+
+ Иначе
+ Возврат;
+ КонецЕсли;
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "File", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Owner", ЗначенияРеквизитов.ВладелецФайла);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Name",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Наименование));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Extension",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Тип));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Size", ЗначенияРеквизитов.Размер);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "HeaderOnly", ЗначенияРеквизитов.ТолькоЗаголовок);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "FileData", ЗначенияРеквизитов.Данные);
+
+ Если ЗначениеЗаполнено(ЗначенияРеквизитов.ФайлОснование) Тогда
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "BaseFileID", ЗначенияРеквизитов.ФайлОснование);
+ КонецЕсли;
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // File
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ШаблоныТекстовПисем
+
+Процедура ЗаписатьВXMLШаблоныТекстов(ЗаписьXML, ВерсияКлиента, ЭлементДанных)
+
+ Если ВерсияКлиента >= "206" Тогда
+ ВыгрузитьШаблоныТекстовПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьШаблоныТекстовПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,Наименование,Шаблон");
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "MailTextTemplate", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЭлементДанных.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЭлементДанных.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Presentation", ЭлементДанных.Наименование);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Text",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЭлементДанных.Шаблон));
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+#Область ИсходящееПисьмо
+
+Процедура ЗаписатьВXMLИсходящееПисьмо(ЗаписьXML, ВерсияКлиента, ЭлементДанных)
+
+ Если ВерсияКлиента >= "206" Тогда
+ ВыгрузитьИсходящееПисьмоПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьИсходящееПисьмоПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Выполним проверки и подготовку данных
+ ЗначенияРеквизитов = ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(ЭлементДанных,
+ "Ссылка,ВерсияДанныхНаСервере,ПодготовленоКОтправке,ПометкаУдаления,ТекстХранилище,
+ |Тема,Дата,Прочитан,Важность,Папка,УчетнаяЗапись,ИндексСостоянияПисьма,ПисьмоОснование,
+ |ПолучателиКопий,ПолучателиПисьма,ПолучателиСкрытыхКопий");
+
+ СтруктураОтбора = Новый Структура;
+ СтруктураОтбора.Вставить("ВладелецФайла", ЗначенияРеквизитов.Ссылка);
+
+ ВыборкаФайлы = Справочники.Файлы.Выбрать(,, СтруктураОтбора);
+
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "OutgoingMail", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЗначенияРеквизитов.Ссылка);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЗначенияРеквизитов.ВерсияДанныхНаСервере);
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Folder", ЗначенияРеквизитов.Папка);
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Account", ЗначенияРеквизитов.УчетнаяЗапись);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Subject",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЗначенияРеквизитов.Тема));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Importance",
+ ОбщегоНазначенияВызовСервера.ИмяЗначенияПеречисления(ЗначенияРеквизитов.Важность));
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "CreationDate", ЗначенияРеквизитов.Дата);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ReadyToBeSent", ЗначенияРеквизитов.ПодготовленоКОтправке);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "MarkedForDeletion", ЗначенияРеквизитов.ПометкаУдаления);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Body", ЗначенияРеквизитов.ТекстХранилище);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "WasSent", Ложь);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "WasRead", ЗначенияРеквизитов.Прочитан);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "WasAnswered",
+ ЗначенияРеквизитов.ИндексСостоянияПисьма = 1);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "WasForwarded",
+ ЗначенияРеквизитов.ИндексСостоянияПисьма = 2 Или ЭлементДанных.ИндексСостоянияПисьма = 3);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "HasAnswer",
+ ЗначенияРеквизитов.ИндексСостоянияПисьма = 4);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "HasAttachment", ВыборкаФайлы.Следующий());
+
+ Если ЗначениеЗаполнено(ЭлементДанных.ПисьмоОснование) Тогда
+
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "BaseMail", ЭлементДанных.ПисьмоОснование);
+
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "AnswerType",
+ ОбщегоНазначенияВызовСервера.ИмяЗначенияПеречисления(ЭлементДанных.ТипОтвета));
+
+ КонецЕсли;
+
+ ЗаписатьЭлементОбъектаДанных(
+ ЗаписьXML, "TO", ЗначенияРеквизитов.ПолучателиПисьма);
+
+ ЗаписатьЭлементОбъектаДанных(
+ ЗаписьXML, "CC", ЗначенияРеквизитов.ПолучателиКопий);
+
+ ЗаписатьЭлементОбъектаДанных(
+ ЗаписьXML, "BCC", ЗначенияРеквизитов.ПолучателиСкрытыхКопий);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // OutgoingMail
+
+ ЗаписатьВXMLФайлыОбъекта(ЗаписьXML, "206", ЭлементДанных.Ссылка);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+#Область ЗадачиПринятыеНаИсполнение
+
+Процедура ЗаписатьВXMLПринятиеЗадачиНаИсполнение(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьПринятиеЗадачиНаИсполнениеПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьПринятиеЗадачиНаИсполнениеПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "TaskAcception", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЭлементДанных.Объект);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "AcceptDate", ЭлементДанных.ДатаПринятия);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Accepted", ЭлементДанных.ПринятаКИсполнению);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЭлементДанных.Объект.ВерсияДанныхНаСервере);
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Executor", ЭлементДанных.Исполнитель);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область НастройкаСрокаУстаревания
+
+Процедура ЗаписатьВXMLНастройкуСрокаУстаревания(ЗаписьXML, ВерсияКлиента)
+
+ ВыгрузитьНастройкуСрокаУстаревания(ЗаписьXML);
+
+КонецПроцедуры
+
+Процедура ВыгрузитьНастройкуСрокаУстаревания(ЗаписьXML)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "DataExpirationSettings", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataExpirationPeriod", Константы.ПериодПервичнойЗагрузкиДанных.Получить());
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область НастройкаМаксРазмераФайла
+
+Процедура ЗаписатьВXMLНастройкуМаксРазмераФайла(ЗаписьXML, ВерсияКлиента)
+
+ ВыгрузитьНастройкуМаксРазмерФайла(ЗаписьXML);
+
+КонецПроцедуры
+
+Процедура ВыгрузитьНастройкуМаксРазмерФайла(ЗаписьXML)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "MaxFileSizeToDownloadSetting", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "FileSize", Константы.МаксимальныйРазмерФайла.Получить());
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область НастройкаСинхронизацииПапок
+
+Процедура ЗаписатьВXMLНастройкуСинхронизацииПапокПисем(ЗаписьXML, ВерсияКлиента)
+
+ Если ВерсияКлиента >= "206" Тогда
+ ВыгрузитьНастройкуСинхронизацииПапокПисемПоВерсии206(ЗаписьXML);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьНастройкуСинхронизацииПапокПисемПоВерсии206(ЗаписьXML)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "MailFolderSynchronizationSettings", "206");
+
+ // Записываем данные
+ ЗаписьXML.ЗаписатьНачалоЭлемента("FolderList");
+
+ Выборка = Справочники.ПапкиПисем.Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+
+ Если Выборка.Предопределенный Тогда
+ Продолжить;
+ КонецЕсли;
+
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Folder", Выборка.Ссылка);
+
+ КонецЦикла;
+
+ ЗаписьXML.ЗаписатьКонецЭлемента(); // FolderList
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область НастройкиШаблоновПисем
+
+Процедура ЗаписатьВXMLНастройкиШаблоновПисем(ЗаписьXML, ВерсияКлиента)
+
+ Если ВерсияКлиента >= "206" Тогда
+ ВыгрузитьНастройкиШаблоновПисемПоВерсии206(ЗаписьXML);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьНастройкиШаблоновПисемПоВерсии206(ЗаписьXML)
+
+ // Подготавливаем данные
+ ПодписьДляНовыхПисем = Константы.ПодписьДляНовыхПисем.Получить();
+ ПодписьДляОтвета = Константы.ПодписьПриОтветеИПересылке.Получить();
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "MailFooterSettings", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "NewMailFooter", ПодписьДляНовыхПисем);
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ResponseMailFooter", ПодписьДляОтвета);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ПапкиОбъектов
+
+Процедура ЗаписатьВXMLЗаписьПапкиОбъекта(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьЗаписьПапкиПисемПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьЗаписьПапкиПисемПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ObjectInFolder", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Folder", ЭлементДанных.Папка);
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Object", ЭлементДанных.Объект);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ПеренаправлениеЗадачи
+
+Процедура ЗаписатьВXMLПеренаправлениеЗадачи(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьПеренаправлениеЗадачиПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьПеренаправлениеЗадачиПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "TaskRedirection", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Task", ЭлементДанных.Объект);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЭлементДанных.Объект.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Type", "ExecutionProcess");
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Comment",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЭлементДанных.Комментарий));
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "NewPerformer", ЭлементДанных.НовыйИсполнитель);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ПротоколСобытий
+
+Процедура ЗаписатьВXMLЗаписьПротоколаСобытий(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если Не ЗначениеЗаполнено(СокрЛП(ЭлементДанных.Описание)) Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьЗаписьПротоколаСобытийПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьЗаписьПротоколаСобытийПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "JournalRecord", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RecordType",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеТипаСобытияПротокола(ЭлементДанных.ТипСобытия));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ObjectType", ЭлементДанных.ТипОбъекта);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "ObjectID", ЭлементДанных.ИдентификаторОбъекта);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЭлементДанных.Описание));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RecordDate", ЭлементДанных.Период);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "RecordMSecs", ЭлементДанных.МоментВремени);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область РезультатыВыполненияЗадачи
+
+Процедура ЗаписатьВXMLРезультатыВыполненияЗадачи(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьРезультатыВыполненияЗадачиПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьРезультатыВыполненияЗадачиПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "TaskExecution", "206");
+
+ // Записываем данные
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "ID", ЭлементДанных.Объект);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЭлементДанных.Объект.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Date", ЭлементДанных.ДатаВыполнения);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Result", ЭлементДанных.Результат);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Comment",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЭлементДанных.Комментарий));
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СведенияОПрочтенииОбъекта
+
+Процедура ЗаписатьВXMLЗаписьОПрочтенииОбъекта(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьЗаписьОПрочтенииОбъектаПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьЗаписьОПрочтенииОбъектаПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ObjectReadState", "206");
+
+ // Записываем данные
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Object", ЭлементДанных.Объект);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "WasRead", ЭлементДанных.Прочтено);
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область ФлагОбъекта
+
+Процедура ЗаписатьВXMLФлагОбъекта(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ // Сам процесс передавать не нужно - изменение будет передано с задачей.
+ Если ТипЗнч(ЭлементДанных.Объект) = Тип("СправочникСсылка.ПроцессыИсполнение") Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьФлагОбъектаПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьФлагОбъектаПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ObjectFlag", "206");
+
+ // Записываем данные
+ ЗаписатьСсылкуНаЭлементДанных(ЗаписьXML, "Object", ЭлементДанных.Объект);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Flag",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеЦвета(ЭлементДанных.Флаг));
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СостояниеПроцессов
+
+Процедура ЗаписатьВXMLЗаписьСостоянияПроцессов(ЗаписьXML, ВерсияСервиса, ЭлементДанных)
+
+ Если ВерсияСервиса >= "206" Тогда
+ ВыгрузитьЗаписьСостоянияПроцессовПоВерсии206(ЗаписьXML, ЭлементДанных);
+ КонецЕсли;
+
+КонецПроцедуры
+
+Процедура ВыгрузитьЗаписьСостоянияПроцессовПоВерсии206(ЗаписьXML, ЭлементДанных)
+
+ // Записываем в поток открывающий тег и версию протокола
+ ЗаписатьЗаголовокОбъекта(ЗаписьXML, "ProcessStateChange", "206");
+
+ // Записываем данные
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Type", "ExecutionProcess");
+ ЗаписатьИдентификаторЭлементаДанных(ЗаписьXML, "Process", ЭлементДанных.Процесс);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "DataVersion", ЭлементДанных.Процесс.ВерсияДанныхНаСервере);
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Comment",
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ЭлементДанных.Комментарий));
+ ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "NewState",
+ ОбменВызовСервераПовтИсп.ПолучитьПредставлениеСостоянияБизнесПроцесса(ЭлементДанных.Состояние));
+
+ // Записываем закрывающий тег
+ ЗаписьXML.ЗаписатьКонецЭлемента();
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#КонецОбласти
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..0a5dbd3
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменФормированиеСообщенийВызовСервера
+
+
+ ru
+ Обмен формирование сообщений вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..9c1c302
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\244\320\276\321\200\320\274\320\270\321\200\320\276\320\262\320\260\320\275\320\270\320\265\320\241\320\276\320\276\320\261\321\211\320\265\320\275\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,218 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Создает сообщение для подключения нового устройства.
+//
+// Параметры:
+// ВерсияСервиса - Строка - Версия используемого формата обмена.
+//
+Процедура СоздатьСообщениеДляПодключенияУстройства(ВерсияСервиса) Экспорт
+
+ СброситьФлагНеобходимостиПоказаСтарыхПредупреждений();
+
+ // Установим код устройства чтобы избежать чтения пакетов которые были подготовлены заранее,
+ // но не загружены на устройство. Например, при начальной синхронизации произошел обрыв связи.
+
+ ЦентральныйУзелОбмена = ПланыОбмена.ОбменССервером.НайтиПоКоду(Константы.КодУстройства.Получить());
+
+ Если Не ЦентральныйУзелОбмена.Пустая() Тогда
+ НовыйКодУстройства = Новый УникальныйИдентификатор();
+
+ Константы.КодУстройства.Установить(НовыйКодУстройства);
+
+ УзелОбъект = ЦентральныйУзелОбмена.ПолучитьОбъект();
+ УзелОбъект.Код = НовыйКодУстройства;
+ УзелОбъект.Записать();
+ КонецЕсли;
+
+ Сообщение = Неопределено;
+ ОбменЭкспорт.СообщениеДляПодключенияУстройства(Сообщение);
+
+ // Записываем сообщение
+ ВыполнитьЗаписьЭлементаОчередиСообщения(ВерсияСервиса, Сообщение);
+
+КонецПроцедуры
+
+// Создает сообщение для отключения устройства от базы на сервере.
+//
+// Параметры:
+// ВерсияСервиса - Строка - Версия используемого формата обмена.
+//
+Процедура СоздатьСообщениеДляОтключенияУстройства(ВерсияСервиса) Экспорт
+
+ Сообщение = Неопределено;
+ ОбменЭкспорт.СообщениеДляОтключенияУстройства(Сообщение);
+
+ ВыполнитьЗаписьЭлементаОчередиСообщения(ВерсияСервиса, Сообщение);
+
+КонецПроцедуры
+
+// Создает сообщение, в котором содержится выгрузка всех измененных на клиенте данных.
+//
+// Параметры:
+// ВерсияСервиса - Строка - Версия используемого формата обмена;
+// ЕстьНеотправленныеДанные - Булево - Признак наличия неотправленных данных.
+//
+Процедура СоздатьСообщениеДляВыгрузкиВсехИзмененныхДанных(ВерсияСервиса,
+ ЕстьНеотправленныеДанные) Экспорт
+
+ СброситьФлагНеобходимостиПоказаСтарыхПредупреждений();
+
+ Сообщение = Неопределено;
+ ОбменЭкспорт.СообщениеДляВыгрузкиИзмененныхДанных(Сообщение);
+
+КонецПроцедуры
+
+// Создает сообщение для передачи сообщения о проблеме на сервер
+//
+// Параметры:
+// ВерсияСервиса - Строка - Версия используемого формата обмена;
+// Текст - Строка - Текст сообщения о проблеме.
+//
+Процедура СоздатьСообщениеДляПередачиСообщенияОПроблеме(ВерсияСервиса, Текст) Экспорт
+
+ Сообщение = Неопределено;
+ ОбменЭкспорт.СообщениеДляПередачиДанныхПроблемах(Сообщение);
+
+ ВыполнитьЗаписьЭлементаОчередиСообщения(ВерсияСервиса, Сообщение);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Процедура - Выполнить запись элемента очереди сообщения
+//
+// Параметры:
+// ВерсияСервиса - Строка - Используемая версия обмена;
+// ИмяФайлаСообщенияОбмена - Строка - Имя сформированного файла с данными.
+//
+Процедура ВыполнитьЗаписьЭлементаОчередиСообщения(ВерсияСервиса, Сообщение) Экспорт
+
+ СтрокаВЖурнал = НСтр("ru = 'Попытка записи элемента очереди сообщений обмена';
+ |en = 'Attempt to write down the message queue item'");
+
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(СтрокаВЖурнал);
+
+ ДанныеОбмена = Новый ХранилищеЗначения(Сообщение, Новый СжатиеДанных(9));
+
+ НовыйЭлементОчереди = РегистрыСведений.ОчередьСообщенийНаСервер.СоздатьМенеджерЗаписи();
+
+ НовыйЭлементОчереди.Данные = ДанныеОбмена;
+ НовыйЭлементОчереди.МоментВремени = ТекущаяУниверсальнаяДатаВМиллисекундах();
+ НовыйЭлементОчереди.Идентификатор = Новый УникальныйИдентификатор();
+
+ НовыйЭлементОчереди.Записать();
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ СтрШаблон(
+ НСтр("ru = 'Записан элемент очереди сообщений для сервера (версия %1)'"), ВерсияСервиса));
+
+КонецПроцедуры
+
+// Устанавливает признак необходимости показа еще не показанных ошибок в Ложь.
+//
+Процедура СброситьФлагНеобходимостиПоказаСтарыхПредупреждений()
+
+ // Для всех сообщений которые еще не выведены сбрасываем флаг - они больше не нужны.
+ СтруктураОтбора = Новый Структура("НеобходимоОтобразитьПослеСинхронизации", Истина);
+
+ Выборка = РегистрыСведений.ПротоколСобытий.Выбрать(,, СтруктураОтбора);
+ Пока Выборка.Следующий() Цикл
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ Выборка.МоментВремени, Ложь);
+ КонецЦикла;
+
+КонецПроцедуры
+
+// Процедура - Записать в поток обмена записи протокола
+//
+// Параметры:
+// ВерсияСервиса - Строка - Используемая версия формата обмена;
+// ЗаписьXML - ЗаписьXML - Объект записи данных в файл;
+//
+// Возвращаемое значение:
+// Булево - Истина, если записи протокола выгружены.
+//
+Функция ЗаписатьВПотокОбменаЗаписиПротокола(ВерсияСервиса, ЗаписьXML)
+
+ ЕстьДанныеДляВыгрузки = Ложь;
+
+ // Выходим, если нет необходимости передавать записи на сервер.
+ Если Не Константы.ВыгружатьПротоколСобытийНаСервер.Получить() Тогда
+ Возврат ЕстьДанныеДляВыгрузки;
+ КонецЕсли;
+
+ // Определяем границу переданных записей протокола.
+ ГраницаВыборки = Константы.ПоследняяОтправленнаяНаСерверЗаписьПротокола.Получить();
+
+ // Получаем еще не переданные записи протокола.
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("ГраницаВыборки", ГраницаВыборки);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ПротоколСобытий.Период,
+ | ПротоколСобытий.МоментВремени КАК МоментВремени
+ |ИЗ
+ | РегистрСведений.ПротоколСобытий КАК ПротоколСобытий
+ |ГДЕ
+ | ПротоколСобытий.МоментВремени > &ГраницаВыборки
+ |
+ |УПОРЯДОЧИТЬ ПО
+ | МоментВремени";
+
+ ПротоколВыборка = Запрос.Выполнить().Выбрать();
+
+ // Помещаем записи в файл
+ Пока ПротоколВыборка.Следующий() Цикл
+
+ НаборЗаписей = РегистрыСведений.ПротоколСобытий.СоздатьНаборЗаписей();
+ НаборЗаписей.Отбор.Период.Установить(ПротоколВыборка.Период);
+ НаборЗаписей.Отбор.МоментВремени.Установить(ПротоколВыборка.МоментВремени);
+ НаборЗаписей.Прочитать();
+
+ Если ВерсияСервиса >= "206" Тогда
+
+ ОбменФормированиеDMXСервер.ЗаписатьОбъектВXML(ЗаписьXML, ВерсияСервиса, НаборЗаписей);
+
+ КонецЕсли;
+
+ // Сдвигаем границу переданных данных вперед.
+ ГраницаВыборки = ПротоколВыборка.МоментВремени;
+ ЕстьДанныеДляВыгрузки = Истина;
+
+ КонецЦикла;
+
+ // Запоминаем границу переданных данных.
+ Константы.ПоследняяОтправленнаяНаСерверЗаписьПротокола.Установить(ГраницаВыборки);
+
+ Возврат ЕстьДанныеДляВыгрузки;
+
+КонецФункции
+
+// Записывает произошедшую ошибку в протокол и помечает ее как требующую показа после обмена.
+//
+// Параметры:
+// ЗаписьXML - ЗаписьXML - Объект записи данных в файл;
+// ИмяФайлаСообщенияОбмена - Строка - Имя файла, в который будут записаны данные;
+// Инфо - ИнформацияОбОшибке - Описание произошедшей ошибки.
+//
+Процедура ОбработатьОшибкуПриФормированиеВыгрузкиВсехИзмененныхДанных(Инфо) Экспорт
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'При подготовке сообщения для сервера произошла ошибка.'
+ |; en = 'An error occured while preparing message for server'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(ТекстОшибки);
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(
+ МоментВремени, Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202.xml" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202.xml"
new file mode 100644
index 0000000..b89cc09
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбменЭкспорт
+
+
+ ru
+ Обмен экспорт
+
+
+
+ false
+ false
+ true
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..1a7b079
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\274\320\265\320\275\320\255\320\272\321\201\320\277\320\276\321\200\321\202/Ext/Module.bsl"
@@ -0,0 +1,452 @@
+
+Процедура СообщениеДляПодключенияУстройства(Сообщение) Экспорт
+
+ Если Сообщение = Неопределено Тогда
+ Сообщение = Новый Структура();
+ КонецЕсли;
+
+ ЗаписатьНастройкуСрокаУстаревания(Сообщение);
+ ЗаписатьНастройкуМаксРазмераФайла(Сообщение);
+
+ Сообщение.Вставить("Connect",
+ Новый Структура("ClientCode, InitialPeriod",
+ Константы.КодУстройства.Получить(), Константы.ПериодПервичнойЗагрузкиДанных.Получить()));
+
+ ИнформацияОКлиенте(Сообщение);
+
+КонецПроцедуры
+
+Процедура СообщениеДляОтключенияУстройства(Сообщение) Экспорт
+
+ Если Сообщение = Неопределено Тогда
+ Сообщение = Новый Структура();
+ КонецЕсли;
+
+ Сообщение.Вставить("Disconnect",
+ Новый Структура("ClientCode", Константы.КодУстройства.Получить()));
+
+КонецПроцедуры
+
+Процедура ЗаписатьНастройкуСрокаУстаревания(Сообщение)
+
+ Сообщение.Вставить("DataExpirationSettings",
+ Новый Структура("DataExpirationPeriod", Константы.ПериодПервичнойЗагрузкиДанных.Получить()));
+
+КонецПроцедуры
+
+Процедура ЗаписатьНастройкуМаксРазмераФайла(Сообщение)
+
+ Сообщение.Вставить("MaxFileSizeToDownloadSetting",
+ Новый Структура("FileSize", Константы.МаксимальныйРазмерФайла.Получить()));
+
+КонецПроцедуры
+
+Функция ИнформацияОКлиенте(Сообщение) Экспорт
+
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+
+ Сообщение.Вставить("ClientInfo",
+ Новый Структура("AppVersion, OS, RAM, DeviceName, ScreenSize"));
+
+ Сообщение.ClientInfo.AppVersion = Константы.ВерсияАренды.Получить();
+
+ Сообщение.ClientInfo.OS =
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(СистемнаяИнформация.ВерсияОС);
+
+ РазмерПамяти = СистемнаяИнформация.ОперативнаяПамять;
+ РазмерПамяти = ?(РазмерПамяти = 0, 64, РазмерПамяти);
+ Сообщение.ClientInfo.RAM = РазмерПамяти;
+
+ Сообщение.ClientInfo.DeviceName =
+ ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(ИмяКомпьютера());
+
+ РазмерЭкрана = ЭкранКлиентСервер.ДиагональЭкрана();
+ РазмерЭкрана = ?(ЗначениеЗаполнено(РазмерЭкрана), РазмерЭкрана, 4);
+ Сообщение.ClientInfo.ScreenSize =
+ Формат(РазмерЭкрана,"ЧЦ=3; ЧДЦ=1; ЧРД=.; ЧГ=");
+
+КонецФункции
+
+
+Функция СообщениеДляПередачиДанныхПроблемах(Сообщение) Экспорт
+
+ // todo
+
+ //// Записываем в файл заголовок объекта.
+ //ОбменФормированиеDMXСервер.ЗаписатьЗаголовокОбъекта(
+ // ЗаписьXML, "ProblemReportFromUser", ВерсияСервиса);
+
+ //// Записываем описание произошедшей проблемы.
+ //ОбменФормированиеDMXСервер.ЗаписатьЭлементОбъектаДанных(ЗаписьXML, "Description",
+ // ОбщегоНазначенияВызовСервера.УдалитьНедопустимыеСимволыXML(Текст));
+
+ //// Дополняем описание проблемы записями за последнюю неделю.
+ //ЗаписьXML.ЗаписатьНачалоЭлемента("JournalRecords");
+
+ //ГраницаВыборки = ТекущаяДата() - 7 * 24 * 60 * 60;
+
+ //ПротоколВыборка = РегистрыСведений.ПротоколСобытий.Выбрать(ГраницаВыборки);
+ //Пока ПротоколВыборка.Следующий() Цикл
+
+ // ПротоколНаборЗаписей = РегистрыСведений.ПротоколСобытий.СоздатьНаборЗаписей();
+ // ПротоколНаборЗаписей.Отбор.Период.Установить(ПротоколВыборка.Период);
+ // ПротоколНаборЗаписей.Отбор.МоментВремени.Установить(ПротоколВыборка.МоментВремени);
+ // ПротоколНаборЗаписей.Прочитать();
+
+ // ОбменФормированиеDMXСервер.ЗаписатьОбъектВXML(
+ // ЗаписьXML, ВерсияСервиса, ПротоколНаборЗаписей);
+
+ //КонецЦикла;
+
+ //// Закрываем контейнер JournalRecords
+ //ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ //// Закрываем контейнер ProblemReportFromUser
+ //ЗаписьXML.ЗаписатьКонецЭлемента();
+
+ //// Закрываем файл с данными
+ //ЗакончитьЗаписьВXML(ЗаписьXML);
+
+КонецФункции
+
+
+///////////////////////////////////////////////////////////////////////////////
+// ЭКСПОРТ ИЗМЕНЕННЫХ ДАННЫХ
+
+#Область ЭкспортИзмененныхДанных
+
+Функция СообщениеДляВыгрузкиИзмененныхДанных(Сообщение) Экспорт
+
+ Если Сообщение = Неопределено Тогда
+ Сообщение = Новый Структура();
+ КонецЕсли;
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Попытка
+ // Выбираются все измененные данные
+ ВыборкаИзменений = ПланыОбмена.ВыбратьИзменения(
+ ЦентральныйУзелОбмена,
+ ЦентральныйУзелОбмена.НомерОтправленного);
+
+ Сообщение.Вставить("Objects", Новый Массив());
+
+ ЕстьДанныеДляВыгрузки = Ложь;
+ Пока ВыборкаИзменений.Следующий() Цикл
+
+ Если Не ЕстьДанныеДляВыгрузки Тогда
+ ОбменЭкспорт.ИнформацияОКлиенте(Сообщение);
+ ЕстьДанныеДляВыгрузки = Истина;
+ КонецЕсли;
+
+ ДобавитьОбъект(Сообщение, ВыборкаИзменений.Получить());
+ КонецЦикла;
+
+ Если ЕстьДанныеДляВыгрузки Тогда
+ ОбменФормированиеСообщенийВызовСервера.ВыполнитьЗаписьЭлементаОчередиСообщения(
+ Неопределено, Сообщение);
+
+ ОбменВызовСервера.УдалитьРегистрациюИзмененийОтправленныхДанных();
+ КонецЕсли;
+
+ Возврат Истина;
+
+ Исключение
+ ОбменФормированиеСообщенийВызовСервера.ОбработатьОшибкуПриФормированиеВыгрузкиВсехИзмененныхДанных(
+ ИнформацияОбОшибке());
+ Возврат Ложь;
+ КонецПопытки;
+
+КонецФункции
+
+Процедура ДобавитьОбъект(Сообщение, ЭлементДанных)
+
+ Если Не Сообщение.Свойство("Objects") Тогда
+ Сообщение.Вставить("Objects", Новый Массив());
+ КонецЕсли;
+
+ РезультатОбъект = Неопределено;
+
+ Если ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.ЗаявкаНаОбслуживание")
+ ИЛИ ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.ЗаявкаНаОбслуживание") Тогда
+ РезультатОбъект = ВыгрузитьЗаявкуНаОбслуживание(ЭлементДанных.Ссылка);
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.ЗаключениеДоговораАренды")
+ ИЛИ ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.ЗаключениеДоговораАренды") Тогда
+ РезультатОбъект = ВыгрузитьЗаключениеДоговораАренды(ЭлементДанных.Ссылка);
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.ДополнительноеСоглашение")
+ ИЛИ ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.ДополнительноеСоглашение") Тогда
+ РезультатОбъект = ВыгрузитьДополнительноеСоглашение(ЭлементДанных.Ссылка);
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.РасторжениеДоговораАренды")
+ ИЛИ ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.РасторжениеДоговораАренды") Тогда
+ РезультатОбъект = ВыгрузитьРасторжениеДоговораАренды(ЭлементДанных.Ссылка);
+
+ ИначеЕсли ТипЗнч(ЭлементДанных) = Тип("ДокументСсылка.СчетНаАренду")
+ ИЛИ ТипЗнч(ЭлементДанных) = Тип("ДокументОбъект.СчетНаАренду") Тогда
+ РезультатОбъект = ВыгрузитьСчетНаАренду(ЭлементДанных.Ссылка);
+
+ Иначе
+ ВызватьИсключение СтрШаблон(
+ НСтр("ru = 'Отсутствует обработчик для типа (%1)'"), ТипЗнч(ЭлементДанных));
+ КонецЕсли;
+
+ Сообщение.Objects.Добавить(РезультатОбъект);
+
+КонецПроцедуры
+
+// Документы
+
+Функция ВыгрузитьЗаявкуНаОбслуживание(ЭлементДанных)
+
+ СтруктураДанных = Новый Структура(
+ "Тип,
+ |UUID,
+ |Дата,
+ |Номер,
+ |Организация,
+ |Контрагент,
+ |ДоговорКонтрагента,
+ |ОбъектАренды,
+ |ЭлементОбъекта,
+ |ОписаниеЗаявки,
+ |СтатусЗаявки,
+ |Комментарий,
+ |ДатаВыполненияРабот,
+ |РучнаяКорректировка,
+ |Ответственный");
+
+ СтруктураДанных.Тип = ОбменКлиентСервер.Сущность_ЗаявкаНаОбслуживание();
+ СтруктураДанных.UUID = XMLСтрока(ЭлементДанных);
+ СтруктураДанных.Дата = ЭлементДанных.Дата;
+ СтруктураДанных.Номер = ЭлементДанных.Номер;
+
+ СтруктураДанных.Организация = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Организация(),
+ XMLСтрока(ЭлементДанных.Организация),
+ ЭлементДанных.Организация.Код,
+ ЭлементДанных.Организация.Наименование);
+
+ СтруктураДанных.Контрагент = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Контрагент(),
+ XMLСтрока(ЭлементДанных.Контрагент),
+ ЭлементДанных.Контрагент.Код,
+ ЭлементДанных.Контрагент.Наименование);
+
+ СтруктураДанных.ДоговорКонтрагента = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ДоговорКонтрагента(),
+ XMLСтрока(ЭлементДанных.ДоговорКонтрагента),
+ ЭлементДанных.ДоговорКонтрагента.Код,
+ ЭлементДанных.ДоговорКонтрагента.Наименование);
+
+ СтруктураДанных.ОбъектАренды = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ОбъектАренды(),
+ XMLСтрока(ЭлементДанных.ОбъектАренды),
+ ЭлементДанных.ОбъектАренды.Код,
+ ЭлементДанных.ОбъектАренды.Наименование);
+
+ СтруктураДанных.ЭлементОбъекта = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ЭлементОбъектовАренды(),
+ XMLСтрока(ЭлементДанных.ЭлементОбъекта),
+ ЭлементДанных.ЭлементОбъекта.Код,
+ ЭлементДанных.ЭлементОбъекта.Наименование);
+
+ СтруктураДанных.ОписаниеЗаявки = ЭлементДанных.ОписаниеЗаявки;
+ СтруктураДанных.СтатусЗаявки = XMLСтрока(ЭлементДанных.СтатусЗаявки);
+ СтруктураДанных.Комментарий = ЭлементДанных.Комментарий;
+ СтруктураДанных.ДатаВыполненияРабот = ЭлементДанных.ДатаВыполненияРабот;
+ СтруктураДанных.РучнаяКорректировка = ЭлементДанных.РучнаяКорректировка;
+
+ // todo: синхронизация пользователей? Пока просто строка
+ СтруктураДанных.Ответственный = ЭлементДанных.Ответственный;
+
+ Возврат СтруктураДанных;
+
+КонецФункции
+
+// Функционал не используется для арендатора,
+// для подключения необходимо разрешить регистрацию в плане обмена "ОбменССервером"
+
+Функция ВыгрузитьЗаключениеДоговораАренды(ЭлементДанных)
+
+ СтруктураДанных = Новый Структура(
+ "Тип,
+ |UUID,
+ |Дата,
+ |Номер,
+ |Организация,
+ |Контрагент,
+ |ДоговорКонтрагента,
+ |ДатаЗаключенияДоговора,
+ |ДатаОкончанияДоговора,
+ |Комментарий,
+ |Ответственный");
+
+ СтруктураДанных.Тип = ОбменКлиентСервер.Сущность_ЗаключениеДоговораАренды();
+ СтруктураДанных.UUID = XMLСтрока(ЭлементДанных);
+ СтруктураДанных.Дата = XMLСтрока(ЭлементДанных.Дата);
+ СтруктураДанных.Номер = XMLСтрока(ЭлементДанных.Номер);
+
+ СтруктураДанных.Организация = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Организация(),
+ XMLСтрока(ЭлементДанных.Организация),
+ ЭлементДанных.Организация.Код,
+ ЭлементДанных.Организация.Наименование);
+
+ СтруктураДанных.Контрагент = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Контрагент(),
+ XMLСтрока(ЭлементДанных.Контрагент),
+ ЭлементДанных.Контрагент.Код,
+ ЭлементДанных.Контрагент.Наименование);
+
+ СтруктураДанных.ДоговорКонтрагента = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ДоговорКонтрагента(),
+ XMLСтрока(ЭлементДанных.ДоговорКонтрагента),
+ ЭлементДанных.ДоговорКонтрагента.Код,
+ ЭлементДанных.ДоговорКонтрагента.Наименование);
+
+ СтруктураДанных.ДатаЗаключенияДоговора = ЭлементДанных.ДатаЗаключенияДоговора;
+ СтруктураДанных.ДатаОкончанияДоговора = ЭлементДанных.ДатаОкончанияДоговора;
+
+ СтруктураДанных.Комментарий = ЭлементДанных.Комментарий;
+
+ // todo: синхронизация пользователей? Пока просто строка
+ СтруктураДанных.Ответственный = Строка(ЭлементДанных.Ответственный);
+
+ Возврат СтруктураДанных;
+
+КонецФункции
+
+Функция ВыгрузитьДополнительноеСоглашение(ЭлементДанных)
+
+ СтруктураДанных = Новый Структура(
+ "Тип,
+ |UUID,
+ |Дата,
+ |Номер,
+ |ДокументОснование,
+ |Организация,
+ |Контрагент,
+ |ДоговорКонтрагента,
+ |ДатаЗаключенияДоговора,
+ |ДатаОкончанияДоговора,
+ |Комментарий,
+ |Ответственный");
+
+ СтруктураДанных.Тип = ОбменКлиентСервер.Сущность_ДополнительноеСоглашение();
+ СтруктураДанных.UUID = XMLСтрока(ЭлементДанных);
+ СтруктураДанных.Дата = XMLСтрока(ЭлементДанных.Дата);
+ СтруктураДанных.Номер = XMLСтрока(ЭлементДанных.Номер);
+
+ СтруктураДанных.ДокументОснование = Новый Структура("Тип, UUID, Дата, Номер",
+ ОбменКлиентСервер.Сущность_ЗаключениеДоговораАренды(),
+ XMLСтрока(ЭлементДанных.ДокументОснование),
+ ЭлементДанных.ДокументОснование.Дата,
+ ЭлементДанных.ДокументОснование.Номер);
+
+ СтруктураДанных.Организация = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Организация(),
+ XMLСтрока(ЭлементДанных.Организация),
+ ЭлементДанных.Организация.Код,
+ ЭлементДанных.Организация.Наименование);
+
+ СтруктураДанных.Контрагент = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Контрагент(),
+ XMLСтрока(ЭлементДанных.Контрагент),
+ ЭлементДанных.Контрагент.Код,
+ ЭлементДанных.Контрагент.Наименование);
+
+ СтруктураДанных.ДоговорКонтрагента = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ДоговорКонтрагента(),
+ XMLСтрока(ЭлементДанных.ДоговорКонтрагента),
+ ЭлементДанных.ДоговорКонтрагента.Код,
+ ЭлементДанных.ДоговорКонтрагента.Наименование);
+
+ СтруктураДанных.ДатаЗаключенияДоговора = ЭлементДанных.ДатаЗаключенияДоговора;
+ СтруктураДанных.ДатаОкончанияДоговора = ЭлементДанных.ДатаОкончанияДоговора;
+
+ СтруктураДанных.Комментарий = ЭлементДанных.Комментарий;
+
+ // todo: синхронизация пользователей? Пока просто строка
+ СтруктураДанных.Ответственный = Строка(ЭлементДанных.Ответственный);
+
+ Возврат СтруктураДанных;
+
+КонецФункции
+
+Функция ВыгрузитьРасторжениеДоговораАренды(ЭлементДанных)
+
+ СтруктураДанных = Новый Структура(
+ "Тип,
+ |UUID,
+ |Дата,
+ |Номер,
+ |ДокументОснование,
+ |Организация,
+ |Контрагент,
+ |ДоговорКонтрагента,
+ |СуммаЗалога,
+ |ДатаОкончанияДоговора,
+ |Комментарий,
+ |Ответственный");
+
+ СтруктураДанных.Тип = ОбменКлиентСервер.Сущность_РасторжениеДоговораАренды();
+ СтруктураДанных.UUID = XMLСтрока(ЭлементДанных);
+ СтруктураДанных.Дата = XMLСтрока(ЭлементДанных.Дата);
+ СтруктураДанных.Номер = XMLСтрока(ЭлементДанных.Номер);
+
+ СтруктураДанных.ДокументОснование = Новый Структура("Тип, UUID, Дата, Номер",
+ ОбменКлиентСервер.Сущность_ЗаключениеДоговораАренды(),
+ XMLСтрока(ЭлементДанных.ДокументОснование),
+ ЭлементДанных.ДокументОснование.Дата,
+ ЭлементДанных.ДокументОснование.Номер);
+
+ СтруктураДанных.Организация = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Организация(),
+ XMLСтрока(ЭлементДанных.Организация),
+ ЭлементДанных.Организация.Код,
+ ЭлементДанных.Организация.Наименование);
+
+ СтруктураДанных.Контрагент = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_Контрагент(),
+ XMLСтрока(ЭлементДанных.Контрагент),
+ ЭлементДанных.Контрагент.Код,
+ ЭлементДанных.Контрагент.Наименование);
+
+ СтруктураДанных.ДоговорКонтрагента = Новый Структура("Тип, UUID, Код, Наименование",
+ ОбменКлиентСервер.Сущность_ДоговорКонтрагента(),
+ XMLСтрока(ЭлементДанных.ДоговорКонтрагента),
+ ЭлементДанных.ДоговорКонтрагента.Код,
+ ЭлементДанных.ДоговорКонтрагента.Наименование);
+
+ СтруктураДанных.СуммаЗалога = ЭлементДанных.СуммаЗалога;
+ СтруктураДанных.ДатаОкончанияДоговора = ЭлементДанных.ДатаОкончанияДоговора;
+
+ СтруктураДанных.Комментарий = ЭлементДанных.Комментарий;
+
+ // todo: синхронизация пользователей? Пока просто строка
+ СтруктураДанных.Ответственный = Строка(ЭлементДанных.Ответственный);
+
+ Возврат СтруктураДанных;
+
+КонецФункции
+
+Функция ВыгрузитьСчетНаАренду(ЭлементДанных)
+
+ СтруктураДанных = Новый Структура(
+ "Тип,
+ |UUID,
+ |Дата,
+ |Номер");
+
+ СтруктураДанных.Тип = ОбменКлиентСервер.Сущность_СчетНаАренду();
+ СтруктураДанных.UUID = XMLСтрока(ЭлементДанных);
+ СтруктураДанных.Дата = XMLСтрока(ЭлементДанных.Дата);
+ СтруктураДанных.Номер = XMLСтрока(ЭлементДанных.Номер);
+
+ Возврат СтруктураДанных;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..0265120
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбновлениеИнформационнойБазыВызовСервера
+
+
+ ru
+ Обновление информационной базы вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..29f1cbb
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,326 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Определяет необходимость запуска обработчиков обновления.
+//
+// Возвращаемое значение:
+// Булево - Признак того, что необходимо выполнить обновление ИБ.
+//
+Функция НеобходимоВыполнитьОбновление() Экспорт
+
+ ВерсияИБ = Метаданные.Версия;
+
+ Возврат НеобходимоЗапуститьОбработчик(ВерсияИБ);
+
+КонецФункции
+
+// Выполняет обновление ИБ.
+//
+// Параметры:
+// СтраницыЧтоНового - Массив - Массив имен страниц для показа в форме "Что нового";
+// ЕстьОшибкиПриОбновлении - Булево - Признак того, что обновление не выполнено.
+// В этом случае будет показана форма со списком ошибок.
+//
+Процедура ВыполнитьОбновлениеИБ(СтраницыЧтоНового, ЕстьОшибкиПриОбновлении) Экспорт
+
+ Попытка
+ ВыполнитьОбновление(СтраницыЧтоНового);
+ Исключение
+
+ Инфо = ИнформацияОбОшибке();
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'При обновлении данных приложения на новую версию произошла ошибка.
+ |Для дальнейшей корректной работы необходима переустановка приложения и повторное подключение к серверу.
+ |'; en = 'An error occurred while updating program data.
+ | Perform reinstallation programm and reconnect to the server. '");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(Инфо));
+
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(ТекстОшибки);
+
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(МоментВремени, Истина);
+
+ ЕстьОшибкиПриОбновлении = Истина;
+
+ КонецПопытки;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+////////////////////////////////////////////////////////////////////////////////
+// СЛУЖЕБНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ
+
+// Выполняет запуск необходимых обработчиков обновления, исходя из того,
+// на какую версию ранее уже производилось обновление.
+//
+Процедура ВыполнитьОбновление(СтраницыЧтоНового)
+
+ Если Метаданные.Версия = Константы.ВерсияАренды.Получить() Тогда
+ Возврат;
+ КонецЕсли;
+
+ ВерсияПриложения = "1.0.0.2";
+ Если НеобходимоЗапуститьОбработчик(ВерсияПриложения) Тогда
+ ПерейтиНаВерсию_1_0_0_2();
+ КонецЕсли;
+
+ Константы.ВерсияАренды.Установить(Метаданные.Версия);
+
+КонецПроцедуры
+
+// Проверяет необходимость запуска обработки обновления для указанной версии.
+//
+// Параметры:
+// ВерсияСравнения - Строка - Номер версии для которой нужно выполнить проверку.
+//
+// Возвращаемое значение:
+// Истина - Если нужно запустить обработку обновления, Ложь в противном случае.
+//
+Функция НеобходимоЗапуститьОбработчик(ВерсияСравнения)
+
+ ВерсияДокументооборота = Константы.ВерсияАренды.Получить();
+ РазрядыВерсииДокументооборота = СтрРазделить(ВерсияДокументооборота, ".");
+ РазрядыВерсииСравнения = СтрРазделить(ВерсияСравнения, ".");
+
+ Если ВерсияДокументооборота = ВерсияСравнения Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Для Счетчик = 1 По 4 Цикл
+
+ ЛевоеЗначение = Число(РазрядыВерсииДокументооборота[Счетчик - 1]);
+ ПравоеЗначение = Число(РазрядыВерсииСравнения[Счетчик - 1]);
+
+ Если ЛевоеЗначение = ПравоеЗначение Тогда
+ Продолжить;
+
+ ИначеЕсли ЛевоеЗначение < ПравоеЗначение Тогда
+ Возврат Истина;
+
+ Иначе
+ Возврат Ложь;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Возврат Ложь;
+
+КонецФункции
+
+// Записывает информацию о успешном обновлении на новую версию.
+//
+// Параметры:
+// Версия - Строка - новая версия программы.
+//
+Процедура ЗаписатьИнформациюОУспешномОбновленииНаНовуюВерсию(Версия)
+
+ ТекстИнформации = СтрШаблон(
+ НСтр("ru = 'Выполнен переход на версию %1'; en = 'Successfully updated to the version %1'"),
+ Версия);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(ТекстИнформации);
+ СборСтатистикиКлиентСервер.СобратьДанныеСтатистикиПриОбновлении();
+
+КонецПроцедуры
+
+#Область ОбработчикиОбновления
+
+Процедура ПерейтиНаВерсию_1_0_0_2()
+
+ НачатьТранзакцию();
+
+ Попытка
+ Константы.ПоддерживаемыеВерсииФорматаОбмена.Установить("001");
+ ЗаписатьИнформациюОУспешномОбновленииНаНовуюВерсию("1.0.0.2");
+ ЗафиксироватьТранзакцию();
+ Исключение
+ ОтменитьТранзакцию();
+ ВызватьИсключение;
+ КонецПопытки;
+
+КонецПроцедуры
+
+Процедура ПерезаполнитьДатыАктуальностиПисем()
+
+ Запрос = Новый Запрос;
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ВходящееПисьмо.Ссылка КАК ПисьмоСсылка,
+ | ВходящееПисьмо.Дата
+ |ИЗ
+ | Документ.ВходящееПисьмо КАК ВходящееПисьмо
+ |
+ |ОБЪЕДИНИТЬ ВСЕ
+ |
+ |ВЫБРАТЬ
+ | ИсходящееПисьмо.Ссылка,
+ | ИсходящееПисьмо.Дата
+ |ИЗ
+ | Документ.ИсходящееПисьмо КАК ИсходящееПисьмо";
+
+ Выборка = Запрос.Выполнить().Выбрать();
+
+ Пока Выборка.Следующий() Цикл
+
+ РегистрыСведений.ДатыЗагрузкиОбъектов.ОбновитьДатуПоследнегоИзмененияОбъекта(Выборка.ПисьмоСсылка, Выборка.Дата);
+
+ КонецЦикла;
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(НСтр("ru = 'При переходе на версию 2.1.8.2 перезаполнены даты актуальности писем'; en = 'Due to 2.1.8.2 update dates of actuality were rewrited for incoming and outgoing letters'"));
+
+КонецПроцедуры
+
+Процедура ОчиститьСправочникАдресатов()
+
+ Узел = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Выборка = Справочники.АдресатыПочтовыхСообщений.Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Ссылка = Выборка.Ссылка;
+
+ Адресат = Выборка.ПолучитьОбъект();
+ Адресат.Удалить();
+
+ ПланыОбмена.УдалитьРегистрациюИзменений(Узел, Ссылка);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ВыполнитьЗаменуСсылокАдресатовНаСтрокиВСправочнике(ИмяМетаданных)
+
+ Запрос = Новый Запрос();
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ОбрабатываемыйСправочник.Ссылка,
+ | АдресатыПочтовыхСообщений.Адрес,
+ | АдресатыПочтовыхСообщений.Наименование
+ |ИЗ
+ | Справочник.%1 КАК ОбрабатываемыйСправочник
+ | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.АдресатыПочтовыхСообщений КАК АдресатыПочтовыхСообщений
+ | ПО ОбрабатываемыйСправочник.Адресат = АдресатыПочтовыхСообщений.Ссылка";
+
+ Запрос.Текст = СтрШаблон(Запрос.Текст, ИмяМетаданных);
+
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ ЗаписатьАдресатаВРегистр(Выборка.Адрес, Выборка.Наименование);
+
+ ЭлементОбъект = Выборка.Ссылка.ПолучитьОбъект();
+ ЭлементОбъект.Адресат = Неопределено;
+ ЭлементОбъект.Записать();
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ВыполнитьЗаменуСсылокАдресатовНаСтрокиВДокументах(ИмяМетаданных)
+
+ // Получаем письма которые на момент обновления изменены и не выгружены на сервер.
+ Запрос = Новый Запрос();
+ Запрос.Текст = СтрШаблон(
+ "ВЫБРАТЬ
+ | ИзмененныеПисьма.Ссылка
+ |ИЗ
+ | Документ.%1.Изменения КАК ИзмененныеПисьма", ИмяМетаданных);
+
+ ИзмененныеОбъекты = Запрос.Выполнить().Выгрузить();
+ Узел = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Выборка = Документы[ИмяМетаданных].Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ // Инициируем списки адресатов
+ Кому = Новый Массив();
+ Копии = Новый Массив();
+ Скрытые = Новый Массив();
+
+ // Получаем всех адресатов по выбранному объекту
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("Ссылка", Выборка.Ссылка);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | АдресатыВПисьмах.Роль,
+ | АдресатыВПисьмах.Адресат,
+ | АдресатыПочтовыхСообщений.Наименование КАК Представление,
+ | АдресатыПочтовыхСообщений.Адрес
+ |ИЗ
+ | РегистрСведений.АдресатыВПисьмах КАК АдресатыВПисьмах
+ | ЛЕВОЕ СОЕДИНЕНИЕ Справочник.АдресатыПочтовыхСообщений КАК АдресатыПочтовыхСообщений
+ | ПО АдресатыВПисьмах.Адресат = АдресатыПочтовыхСообщений.Ссылка
+ |ГДЕ
+ | АдресатыВПисьмах.Письмо = &Ссылка";
+
+ // Перебираем адресатов
+ Адресаты = Запрос.Выполнить().Выбрать();
+ Пока Адресаты.Следующий() Цикл
+
+ // Относим адресата в нужный список
+ Если Адресаты.Роль = Перечисления.РолиАдресатовВПисьме.Получатель Тогда
+ Кому.Добавить(Адресаты.Представление);
+
+ ИначеЕсли Адресаты.Роль = Перечисления.РолиАдресатовВПисьме.ПолучательКопии Тогда
+ Копии.Добавить(Адресаты.Представление);
+
+ ИначеЕсли Адресаты.Роль = Перечисления.РолиАдресатовВПисьме.ПолучательСкрытойКопии Тогда
+ Скрытые.Добавить(Адресаты.Представление);
+
+ КонецЕсли;
+
+ // Записываем уникального адресата в регистр
+ ЗаписатьАдресатаВРегистр(Адресаты.Адрес, Адресаты.Представление);
+
+ КонецЦикла;
+
+ // Проверяем что письмо на момент обработки уже ждет выгрузку на сервер.
+ ОбъектНеИзменен = ИзмененныеОбъекты.Найти(Выборка.Ссылка, "Ссылка") = Неопределено;
+
+ // Изменяем письмо
+ ПисьмоОбъект = Выборка.Ссылка.ПолучитьОбъект();
+ ПисьмоОбъект.ПолучателиПисьма = СтрСоединить(Кому, ";");
+ ПисьмоОбъект.ПолучателиКопий = СтрСоединить(Копии, ";");
+ ПисьмоОбъект.ПолучателиСкрытыхКопий = СтрСоединить(Скрытые, ";");
+
+ // Для входящих писем дополнительно преобразуем адресата
+ Если СтрСравнить(ИмяМетаданных, "ВходящееПисьмо") = 0 Тогда
+ ПисьмоОбъект.Отправитель = Строка(ПисьмоОбъект.ОтправительАдресат);
+ ПисьмоОбъект.ОтправительАдресат = Неопределено;
+ КонецЕсли;
+
+ // Сохраняем изменения
+ ПисьмоОбъект.Записать();
+
+ // Если объект на момент изменения не ждет выгрузку - удаляем его регистрацию.
+ Если ОбъектНеИзменен Тогда
+ ПланыОбмена.УдалитьРегистрациюИзменений(Узел, Выборка.Ссылка);
+ КонецЕсли;
+
+ // Удаляем записи по письму.
+ Набор = РегистрыСведений.АдресатыВПисьмах.СоздатьНаборЗаписей();
+ Набор.Отбор.Письмо.Установить(Выборка.Ссылка);
+ Набор.Записать(Истина);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+Процедура ЗаписатьАдресатаВРегистр(Адрес, Представление)
+
+ Запись = РегистрыСведений.АдресатыПисем.СоздатьМенеджерЗаписи();
+ Запись.Адресат = Адрес;
+ Запись.Представление = Представление;
+ Запись.Записать(Истина);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#КонецОбласти
diff --git "a/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..ad559bd
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбновлениеИнформационнойБазыКлиент
+
+
+ ru
+ Обновление информационной базы клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..2a4d77c
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,57 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выполняет обновление информационной базы после обновления конфигурации, если была поднята версия.
+//
+// Параметры:
+// СтраницыЧтоНового - Массив - Список имен страниц для отображения в форме "что нового";
+// ЕстьОшибкиПриОбновлении - Булево - Признак наличия ошибок при выполнении обновления.
+//
+Процедура ВыполнитьОбновлениеИнформационнойБазы(СтраницыЧтоНового, ЕстьОшибкиПриОбновлении) Экспорт
+
+ // Открываем форму с пояснением о том, что идет процесс обновления.
+ ОткрытьФорму("ОбщаяФорма.ОбновлениеИБ",,,,,,, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ // Выполняем обновление данных.
+ ОбновлениеИнформационнойБазыВызовСервера.ВыполнитьОбновлениеИБ(
+ СтраницыЧтоНового, ЕстьОшибкиПриОбновлении);
+
+ // Оповещаем все заинтересованные объекты, что обновление завершено.
+ Оповестить("ОбновлениеЗавершено");
+
+КонецПроцедуры
+
+// Обработчик завершения показа формы "Что нового".
+//
+// Параметры:
+// Результат - Произвольный - Результат закрытия формы;
+// ДополнительныеПараметры - Структура, Неопределено - Дополнительные параметры.
+//
+Процедура ОбработатьПоказФормыЧтоНового(Результат, ДополнительныеПараметры) Экспорт
+
+ ОбработчикЗавершения = Новый ОписаниеОповещения("ОбработатьЗавершениеПоказаФормыЧтоНового",
+ ОбновлениеИнформационнойБазыКлиент);
+
+ ТекстЗаголовка = НСтр("ru = 'Обновление данных'; en = 'Updating'");
+ ТекстПредупреждения = НСтр("ru = 'Данные успешно обновлены. Можно продолжить работу.'; en = 'Data are successfully updated.'");
+
+ // Покажем сообщение о том, что все обновлено.
+ ПоказатьПредупреждение(ОбработчикЗавершения, ТекстПредупреждения, , ТекстЗаголовка);
+
+КонецПроцедуры
+
+// Обработчик закрытия предупреждения о выполнении обновления ИБ.
+//
+// Параметры:
+// Результат - Произвольный - Результат закрытия окна предупреждения.
+//
+Процедура ОбработатьЗавершениеПоказаФормыЧтоНового(Результат) Экспорт
+
+ Оповестить("ВыполненЗапускСистемы");
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..7522b71
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбщегоНазначенияВызовСервера
+
+
+ ru
+ Общего назначения вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..160b419
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,744 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Обновляет повторно используемые значения после синхронизации.
+//
+Процедура ОбновитьПовторноИспользуемыеЗначенияСервер() Экспорт
+
+ ОбновитьПовторноИспользуемыеЗначения();
+
+КонецПроцедуры
+
+// Устанавливает параметры сеанса отвечающие за уведомления.
+//
+Процедура УстановитьПараметрыСеанса() Экспорт
+
+ ПараметрыСеанса.ВерсияСервиса = "";
+
+КонецПроцедуры
+
+// Устанавливает настройки по умолчанию на устройстве.
+//
+// Параметры:
+// ИмяКаталогаВременныхФайлов - Строка - Путь к каталогу временных файлов.
+//
+// Возвращаемое значение:
+// Структура - Параметры запуска базы.
+// * ЭтоЧистаяБаза - Булево - Признак того, что в базе нет данных;
+// * ТекущийРаздел - Строка - Текущий используемый раздел приложения.
+//
+Функция УстановитьПервоначальныеНастройки(ИмяКаталогаВременныхФайлов) Экспорт
+
+ ПараметрыСеанса.ИспользоватьЛокальныеУведомления = Константы.ИспользоватьЛокальныеУведомления.Получить();
+ ПараметрыСеанса.ПутьКаталогаФайлов = ИмяКаталогаВременныхФайлов;
+ УстановитьПараметрыСеанса();
+
+ ОбменВызовСервера.УстановитьТекущуюСессияСинхронизации();
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Запуск приложения'; en = 'Program started'"));
+
+ ТекстИнформации =
+ СтрШаблон(
+ "Current language: %1
+ |System language: %2
+ |Locale code: %3",
+ ТекущийЯзык(), ТекущийЯзыкСистемы(), ТекущийКодЛокализации());
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(ТекстИнформации);
+
+ ТекущийРаздел = ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ТекущийРаздел");
+
+ ВозвращаемоеЗначение = Новый Структура();
+ ВозвращаемоеЗначение.Вставить("ЭтоЧистаяБаза", Ложь);
+ ВозвращаемоеЗначение.Вставить("ТекущийРаздел", ТекущийРаздел);
+
+ Если ЗначениеЗаполнено(Константы.ДатаПоследнегоОбновления.Получить()) Тогда
+
+ ПараметрыСеанса.ЭтоЧистаяБаза = Ложь;
+
+ Возврат ВозвращаемоеЗначение;
+
+ КонецЕсли;
+
+ УстановитьКодУстройства();
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Диагональ = 10;
+
+ // Вычисление параметров данного устройства
+
+ #Если МобильноеПриложениеСервер Тогда
+
+ Диагональ = ЭкранКлиентСервер.ПараметрыЭкрана()[0].Диагональ;
+
+ Константы.ДиагональЭкрана.Установить(Диагональ);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(СтрШаблон(
+ НСтр("ru = 'Диагональ экрана определена как %1 дюймов(а)';
+ |en = 'The diagonal of the screen is determined as %1 inches'"),
+ Формат(Диагональ, "ЧЦ=10; ЧДЦ=1")));
+
+ #КонецЕсли
+
+ СистемнаяИнформация = Новый СистемнаяИнформация;
+ ВерсияОС = СистемнаяИнформация.ВерсияОС;
+ ИмяОС = "Android";
+
+ Если СтрНайти(НРег(ВерсияОС), "ios") > 0 Тогда
+ ИмяОС = "iOS";
+
+ ИначеЕсли СтрНайти(НРег(ВерсияОС), "android") > 0 Тогда
+ ИмяОС = "Android";
+
+ ИначеЕсли СтрНайти(НРег(ВерсияОС), "windows") > 0 Тогда
+ ИмяОС = "Windows";
+
+ КонецЕсли;
+
+ Константы.ИмяОперационнойСистемы.Установить(ИмяОС);
+ Константы.ПомечатьПрочтеннымиПриОткрытии.Установить(Истина);
+
+ Если Не ЗначениеЗаполнено(Константы.ДатаПоследнегоОбновления.Получить()) Тогда
+ Константы.ВключатьВложенияПриПересылке.Установить(Истина);
+ КонецЕсли;
+
+ УстановитьЗначениеКонстантыПоУмолчанию("СрокУстареванияДанных", 7);
+ УстановитьЗначениеКонстантыПоУмолчанию("ПериодПервичнойЗагрузкиДанных", 7);
+
+ УстановитьЗначениеКонстантыПоУмолчанию("АдресЦентральнойБазы", "https://");
+ УстановитьЗначениеКонстантыПоУмолчанию("ПользовательЦентральнойБазы", "");
+ УстановитьЗначениеКонстантыПоУмолчанию("ПарольПользователя", "");
+
+
+ Константы.МаксимальныйРазмерФайла.Установить(500); // Загружаем только заголовки
+ Константы.ВерсияАренды.Установить(Метаданные.Версия);
+
+ Если ЭтоУстройствоСБольшимЭкраном() Тогда
+ // todo
+ //Константы.ПоказыватьПредпросмотрВСпискеЗадач.Установить(Истина);
+ //Константы.ПоказыватьПредпросмотрВСпискеПисем.Установить(Истина);
+ КонецЕсли;
+
+ Константы.ИспользоватьФоновуюСинхронизацию.Установить(Истина);
+ Константы.ИспользоватьТолькоWiFi.Установить(Истина);
+
+ Константы.ВыгружатьПротоколСобытийНаСервер.Установить(Истина);
+ Константы.ИспользоватьЛокальныеУведомления.Установить(Истина);
+ Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Установить(УникальныйИдентификаторПустой());
+ Константы.СессияСинхронизации.Установить(0);
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Установить(0);
+
+ Константы.ПоддерживаемыеВерсииФорматаОбмена.Установить("001");
+ Константы.ИспользуемаяВерсияФорматаОбмена.Установить("001");
+
+ Константы.ИспользоватьПароль.Установить(Ложь);
+ Константы.ХешПароля.Установить(0);
+
+ ПараметрыСеанса.ЭтоЧистаяБаза = Истина;
+ ВозвращаемоеЗначение.ЭтоЧистаяБаза = Истина;
+
+ Возврат ВозвращаемоеЗначение;
+
+КонецФункции
+
+Функция ИнициированаОчисткаБазы() Экспорт
+
+ Возврат Константы.ИнициированаОчисткаБазы.Получить();
+
+КонецФункции
+
+// Возвращает признак того что база готова для начала работы.
+//
+// Возвращаемое значение:
+// Булево - Признак того, что в базе нет данных.
+//
+Функция ЭтоЧистаяБаза() Экспорт
+
+ Возврат ПараметрыСеанса.ЭтоЧистаяБаза;
+
+КонецФункции
+
+// Удаляет все исходящие сообщения на сервере.
+//
+Процедура ОчиститьОчередьСообщенийДляСервера() Экспорт
+
+ РегистрыСведений.ОчередьСообщенийНаСервер.ОчиститьОчередьСообщенияДляСервера();
+
+КонецПроцедуры
+
+// Очищает очередь отправленных и полученных сообщений.
+//
+Процедура ОчиститьОчередьСообщенияИПолученныеДанныеНаСервере() Экспорт
+
+ РегистрыСведений.ОчередьСообщенийНаСервер.ОчиститьОчередьСообщенияДляСервера();
+ РегистрыСведений.ПолученныеДанныеОбмена.ОчиститьРегистр();
+
+КонецПроцедуры
+
+
+// Устанавливает признак использования демо-режима.
+//
+// Параметры:
+// Флаг - Булево - Значение использования демо-режима.
+//
+Процедура УстановитьДемоРежим(Флаг) Экспорт
+
+ Константы.ЭтоДемоРежим.Установить(Флаг);
+
+ ОбновитьПовторноИспользуемыеЗначения();
+
+КонецПроцедуры
+
+
+// Устанавливает указанное значение у указанной константы.
+//
+// Параметры:
+// ИмяКонстанты - Строка - Имя константы;
+// ЗначениеКонстанты - Произвольный - Устанавливаемое значение константы..
+//
+Процедура УстановитьЗначениеКонстанты(ИмяКонстанты, ЗначениеКонстанты) Экспорт
+
+ Константы[ИмяКонстанты].Установить(ЗначениеКонстанты);
+
+КонецПроцедуры
+
+// Возвращает значение указанной константы.
+//
+// Параметры:
+// ИмяКонстанты - Строка - Имя константы.
+//
+// Возвращаемое значение:
+// Произвольный - Значение константы.
+//
+Функция ПолучитьЗначениеКонстанты(ИмяКонстанты) Экспорт
+
+ Возврат Константы[ИмяКонстанты].Получить();
+
+КонецФункции
+
+// Получает значение реквизита у ссылки на объект.
+//
+// Параметры:
+// Ссылка - Ссылка - Ссылка на объект;
+// ИмяРеквизита - Строка - Имя получаемого реквизита.
+//
+// Возвращаемое значение:
+// Произвольный - Значение реквизита объекта.
+//
+Функция ЗначениеРеквизита(Ссылка, ИмяРеквизита) Экспорт
+
+ Возврат Ссылка[ИмяРеквизита];
+
+КонецФункции
+
+// Возвращает структуру, содержащую значения реквизитов прочитанные из информационной базы
+// по ссылке на объект.
+//
+// Если доступа к одному из реквизитов нет, возникнет исключение прав доступа.
+// Если необходимо зачитать реквизит независимо от прав текущего пользователя,
+// то следует использовать предварительный переход в привилегированный режим.
+//
+// Функция не предназначена для получения значений реквизитов пустых ссылок.
+//
+// Параметры:
+// Ссылка - ЛюбаяСсылка - объект, значения реквизитов которого необходимо получить.
+//
+// Реквизиты - Строка - имена реквизитов, перечисленные через запятую, в формате
+// требований к свойствам структуры.
+// Например, "Код, Наименование, Родитель".
+// - Структура, ФиксированнаяСтруктура - в качестве ключа передается
+// псевдоним поля для возвращаемой структуры с результатом, а в качестве
+// значения (опционально) фактическое имя поля в таблице.
+// Если значение не определено, то имя поля берется из ключа.
+// - Массив, ФиксированныйМассив - имена реквизитов в формате требований
+// к свойствам структуры.
+//
+// Возвращаемое значение:
+// Структура - содержит имена (ключи) и значения затребованных реквизитов.
+// Если строка затребованных реквизитов пуста, то возвращается пустая структура.
+// Если в качестве объекта передана пустая ссылка, то все реквизиты вернутся со значением Неопределено.
+//
+Функция ЗначенияРеквизитовОбъекта(Ссылка, Реквизиты) Экспорт
+
+ Если ТипЗнч(Реквизиты) = Тип("Строка") Тогда
+
+ Если ПустаяСтрока(Реквизиты) Тогда
+ Возврат Новый Структура;
+ КонецЕсли;
+
+ Реквизиты = СтрРазделить(Реквизиты, ",");
+
+ КонецЕсли;
+
+ СтруктураРеквизитов = Новый Структура;
+ Если ТипЗнч(Реквизиты) = Тип("Структура")
+ Или ТипЗнч(Реквизиты) = Тип("ФиксированнаяСтруктура") Тогда
+
+ СтруктураРеквизитов = Реквизиты;
+
+ ИначеЕсли ТипЗнч(Реквизиты) = Тип("Массив")
+ Или ТипЗнч(Реквизиты) = Тип("ФиксированныйМассив") Тогда
+
+ Для Каждого Реквизит Из Реквизиты Цикл
+ СтруктураРеквизитов.Вставить(СтрЗаменить(Реквизит, ".", ""), Реквизит);
+ КонецЦикла;
+
+ Иначе
+ ВызватьИсключение СтрШаблон(
+ НСтр("ru = 'Неверный тип второго параметра Реквизиты: %1'; en = 'Wrong parameter type: %1'"),
+ Строка(ТипЗнч(Реквизиты)));
+
+ КонецЕсли;
+
+ ТекстПолей = "";
+ Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
+
+ ИмяПоля = ?(ЗначениеЗаполнено(КлючИЗначение.Значение),
+ СокрЛП(КлючИЗначение.Значение), СокрЛП(КлючИЗначение.Ключ));
+
+ Псевдоним = СокрЛП(КлючИЗначение.Ключ);
+ ТекстПолей = ТекстПолей + ?(ПустаяСтрока(ТекстПолей), "", ",") + "
+ | " + ИмяПоля + " КАК " + Псевдоним;
+
+ КонецЦикла;
+
+ Запрос = Новый Запрос;
+ Запрос.УстановитьПараметр("Ссылка", Ссылка);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ |" + ТекстПолей + "
+ |ИЗ
+ | " + Ссылка.Метаданные().ПолноеИмя() + " КАК ПсевдонимЗаданнойТаблицы
+ |ГДЕ
+ | ПсевдонимЗаданнойТаблицы.Ссылка = &Ссылка
+ |";
+
+ Выборка = Запрос.Выполнить().Выбрать();
+ Выборка.Следующий();
+
+ Результат = Новый Структура;
+ Для Каждого КлючИЗначение Из СтруктураРеквизитов Цикл
+ Результат.Вставить(КлючИЗначение.Ключ);
+ КонецЦикла;
+
+ ЗаполнитьЗначенияСвойств(Результат, Выборка);
+
+ Возврат Результат;
+
+КонецФункции
+
+// Получает имя значения перечисления как объекта метаданных.
+//
+// Параметры:
+// Значение - ЗначениеПеречисления - для которого необходимо получить имя перечисления.
+//
+// Возвращаемое значение:
+// Строка - имя значения перечисления как объекта метаданных.
+//
+Функция ИмяЗначенияПеречисления(Значение) Экспорт
+
+ ОбъектМетаданных = Значение.Метаданные();
+ ИндексЗначения = Перечисления[ОбъектМетаданных.Имя].Индекс(Значение);
+
+ Возврат ОбъектМетаданных.ЗначенияПеречисления[ИндексЗначения].Имя;
+
+КонецФункции
+
+
+// Удаляет из строки символы, недопустимые к использованию в XML.
+//
+// Параметры:
+// Текст - Строка - Анализируемый текст.
+//
+// Возвращаемое значение:
+// Строка - Текст, из которого удалены недопустимые для XML символы.
+//
+Функция УдалитьНедопустимыеСимволыXML(Знач Текст) Экспорт
+
+ #Если Не ВебКлиент Тогда
+
+ ПозицияНачала = 1;
+
+ Пока Истина Цикл
+
+ Если ПозицияНачала > СтрДлина(Текст) Тогда
+ Прервать;
+ КонецЕсли;
+
+ Позиция = НайтиНедопустимыеСимволыXML(Текст, ПозицияНачала);
+
+ Если Позиция = 0 Тогда
+ Прервать;
+ КонецЕсли;
+
+ // Если возвращаемая позиция, больше чем должна быть, то корректируем ее.
+ Если Позиция > 1 Тогда
+ НедопустимыйСимвол = Сред(Текст, Позиция - 1, 1);
+ Если НайтиНедопустимыеСимволыXML(НедопустимыйСимвол) > 0 Тогда
+ Текст = СтрЗаменить(Текст, НедопустимыйСимвол, "");
+ КонецЕсли;
+ КонецЕсли;
+
+ НедопустимыйСимвол = Сред(Текст, Позиция, 1);
+ Если НайтиНедопустимыеСимволыXML(НедопустимыйСимвол) > 0 Тогда
+ Текст = СтрЗаменить(Текст, НедопустимыйСимвол, "");
+ КонецЕсли;
+
+ ПозицияНачала = Макс(1, Позиция - 1);
+
+ КонецЦикла;
+
+ #КонецЕсли
+
+ Возврат Текст;
+
+КонецФункции
+
+// Получает имя временного файла для открытия ссылки на файл.
+//
+// Параметры:
+// Ссылка - СправочникСсылка.Файлы - Ссылка на открываемый файл.
+//
+// Возвращаемое значение:
+// Строка - Имя временного файла.
+//
+Функция ПолучитьИмяВременногоФайлаДляВложения(Ссылка) Экспорт
+
+ ИмяВременнойПапки = ПараметрыСеанса.ПутьКаталогаФайлов;
+ Если НайтиФайлы(ИмяВременнойПапки).Количество() = 0 Тогда
+ СоздатьКаталог(ИмяВременнойПапки);
+ КонецЕсли;
+
+ Если ТипЗнч(Ссылка) = Тип("СправочникСсылка.Файлы") Тогда
+
+ ДанныеФайла = Ссылка.Данные.Получить();
+
+ Если ДанныеФайла = Неопределено Тогда
+ Если ЗначениеЗаполнено(Ссылка.ФайлОснование) Тогда
+ Возврат ПолучитьИмяВременногоФайлаДляВложения(Ссылка.ФайлОснование);
+ Иначе
+ Возврат "";
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ЗначениеЗаполнено(Ссылка.Тип) Тогда
+ ИмяФайла = ПолучитьИмяВременногоФайла(Ссылка.Тип);
+ Иначе
+ ИмяФайла = ПолучитьИмяВременногоФайла(" ");
+ КонецЕсли;
+
+ ИначеЕсли ТипЗнч(Ссылка) = Тип("СправочникСсылка.ПредметыПроцессов") Тогда
+
+ ДанныеФайла = Ссылка.Детали.Получить();
+
+ Если ДанныеФайла = Неопределено Тогда
+ Возврат "";
+ КонецЕсли;
+
+ ИмяФайла = ПолучитьИмяВременногоФайла(Ссылка.ТипФайлаСДеталями);
+
+ Иначе
+ Возврат "";
+
+ КонецЕсли;
+
+ МассивПодстрок = СтрРазделить(ИмяФайла, ".");
+ Расширение = МассивПодстрок[МассивПодстрок.Количество()-1];
+ ИмяФайла = Строка(Ссылка);
+
+ УдалитьЗапрещенныеСимволы(ИмяФайла);
+ НовоеИмяФайла = ИмяВременнойПапки + "/" + ИмяФайла;
+ НовоеИмяФайла = СтрЗаменить(НовоеИмяФайла, "." + Расширение, "");
+
+ Если НайтиФайлы(НовоеИмяФайла + "." + Расширение).Количество() > 0 Тогда
+ Счетчик = 1;
+ Пока НайтиФайлы(НовоеИмяФайла + " (" + Строка(Счетчик) + ")." + Расширение).Количество() > 0 Цикл
+ Счетчик = Счетчик + 1;
+ КонецЦикла;
+ НовоеИмяФайла = НовоеИмяФайла + " (" + Строка(Счетчик) + ")." + Расширение;
+ Иначе
+ НовоеИмяФайла = НовоеИмяФайла + "." + Расширение;
+ КонецЕсли;
+
+ ДанныеФайла.Записать(НовоеИмяФайла);
+
+ Возврат НовоеИмяФайла;
+
+КонецФункции
+
+// Получает список моментов времени ошибок, у которых установлен флаг
+// "НеобходимоОтобразитьПослеСинхронизации".
+//
+// Параметры:
+// ЕстьКритическиеОшибки - Булево - Признак наличия критических ошибок.
+//
+// Возвращаемое значение:
+// Массив - Массив не показанных ошибок.
+//
+Функция ПолучитьОтметкиВремениНепоказанныеОшибок(ЕстьКритическиеОшибки) Экспорт
+
+ МоментыВремениСобытий = Новый Массив;
+ СтруктураОтбора = Новый Структура;
+
+ СтруктураОтбора.Вставить("НеобходимоОтобразитьПослеСинхронизации", Истина);
+
+ Выборка = РегистрыСведений.ПротоколСобытий.Выбрать(,,СтруктураОтбора);
+ Пока Выборка.Следующий() Цикл
+
+ МоментыВремениСобытий.Добавить(Выборка.МоментВремени);
+ Если Выборка.ТипСобытия = Перечисления.ТипыСобытийПротокола.Ошибка Тогда
+ ЕстьКритическиеОшибки = Истина;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Возврат МоментыВремениСобытий;
+
+КонецФункции
+
+// Получает признаки необходимости данных для отправки.
+//
+// Параметры:
+// ДатаПоследнегоОбновления - Дата - Дата последнего удачного подключения к серверу;
+// ЕстьДанныеДляОтправки - Булево - Признак наличия данных для отправки.
+//
+Процедура ПолучитьДатуПоследнегоОбновленияИНаличиеДанныхДляОтправки(ДатаПоследнегоОбновления, ЕстьДанныеДляОтправки) Экспорт
+
+ ДатаПоследнегоОбновления = Константы.ДатаПоследнегоОбновления.Получить();
+ ЕстьДанныеДляОтправки = Константы.ЕстьНеотправленныеДанные.Получить();
+
+КонецПроцедуры
+
+// Формирует табличный документ 1С из файла на диске устройства.
+//
+// Параметры:
+// ИмяФайла - Строка - Имя открываемого файла в формате MXL.
+//
+// Возвращаемое значение:
+// ТабличныйДокумент - Прочитанный табличный документ.
+//
+Функция ПолучитьТабличныйДокументИзФайлаНаСервере(ИмяФайла) Экспорт
+
+ ТабличныйДокумент = Новый ТабличныйДокумент();
+ ТабличныйДокумент.Прочитать(ИмяФайла);
+ ТабличныйДокумент.ТолькоПросмотр = Истина;
+ ТабличныйДокумент.АвтоМасштаб = Истина;
+ ТабличныйДокумент.ОтображатьСетку = Ложь;
+ ТабличныйДокумент.ОтображатьЗаголовки = Ложь;
+
+ Возврат ТабличныйДокумент;
+
+КонецФункции
+
+
+// Получает все файлы вложения по указанному объекту.
+//
+// Параметры:
+// Владелец - СправочникСсылка, ДокументСсылка - Объект-владелец файлов.
+//
+// Возвращаемое значение:
+// Массив - Массив найденных вложений.
+//
+Функция ПолучитьВложения(Владелец) Экспорт
+
+ Вложения = Новый Массив;
+
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("ВладелецФайла", Владелец);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | Файлы.Ссылка,
+ | Файлы.ТолькоЗаголовок,
+ | Файлы.Представление,
+ | Файлы.Размер,
+ | Файлы.Тип,
+ | Файлы.ФайлОснование
+ |ИЗ
+ | Справочник.Файлы КАК Файлы
+ |ГДЕ
+ | Файлы.ВладелецФайла = &ВладелецФайла";
+
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Вложение = Новый Структура();
+ Вложение.Вставить("Ссылка",Выборка.Ссылка);
+ Вложение.Вставить("ТолькоЗаголовок",Выборка.ТолькоЗаголовок);
+ Вложение.Вставить("Представление",Выборка.Представление);
+ Вложение.Вставить("Размер",Выборка.Размер);
+ Вложение.Вставить("Тип",Выборка.Тип);
+ Вложение.Вставить("ФайлОснование",Выборка.ФайлОснование);
+ Вложение.Вставить("ИндексКартинки",
+ ОбщегоНазначенияКлиентСервер.ПолучитьИндексПиктограммыФайла(Выборка.Тип));
+
+ Вложения.Добавить(Вложение);
+
+ КонецЦикла;
+
+ Возврат Вложения;
+
+КонецФункции
+
+// Удаляет все файлы вложения по указанному объекту.
+//
+// Параметры:
+// Владелец - СправочникСсылка, ДокументСсылка - Объект-владелец файлов.
+//
+Процедура УдалитьФайлыВложений(Владелец) Экспорт
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ СтруктураОтбора = Новый Структура;
+ СтруктураОтбора.Вставить("ВладелецФайла", Владелец);
+
+ ВыборкаФайлы = Справочники.Файлы.Выбрать(,, СтруктураОтбора);
+ Пока ВыборкаФайлы.Следующий() Цикл
+
+ УдалениеОбъект = Новый УдалениеОбъекта(ВыборкаФайлы.Ссылка);
+ УдалениеОбъект.Записать();
+
+ // Удаляем регистрацию, т.к. в противном случае файл будет удален на сервере
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена, УдалениеОбъект);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+
+// Помечает, что настройки размеров передаваемых файлов нужно выгрузить на сервер.
+//
+Процедура ОтразитьФактИзмененияНастройкиМаксимальногоРазмераФайла() Экспорт
+
+ РегистрыСведений.ИзмененныеНастройкиСинхронизации.ДобавитьЗапись(
+ Перечисления.ВидыНастроекОбмена.МаксимальныйРазмерФайла);
+
+КонецПроцедуры
+
+// Помечает, что настройки шаблонов нужно выгрузить на сервер.
+//
+Процедура ОтразитьФактИзмененияНастроекПодписи() Экспорт
+
+ РегистрыСведений.ИзмененныеНастройкиСинхронизации.ДобавитьЗапись(
+ Перечисления.ВидыНастроекОбмена.ШаблоныТекстовПисем);
+
+КонецПроцедуры
+
+// Копирует полученный файл данных обмена для последующего анализа и отладки.
+//
+// Параметры:
+// ИмяФайлаСообщенияОбмена - Строка - Имя копируемого исходного файла;
+// Направление - Строка - Параметр указывающий входящий это файл, или исходящий.
+//
+Процедура СкопироватьФайлДанных(ИмяФайлаСообщенияОбмена, Направление) Экспорт
+
+ #Если НЕ МобильноеПриложениеСервер Тогда
+
+ Каталог = "C:\1C_SOURCE\" + Формат(ТекущаяДата(), "ДФ=yyyy-MM-dd")+"\";
+
+ Файл = Новый Файл(Каталог);
+ Если Не Файл.Существует() Тогда
+ СоздатьКаталог(Каталог);
+ КонецЕсли;
+
+ ИмяФайлаНазначения = Каталог + Формат(ТекущаяДата(), "ДФ=yyyy-MM-dd-HH-mm-ss")
+ + Направление +"client-"+ ТекущаяУниверсальнаяДатаВМиллисекундах()+ ".xml";
+
+ Попытка
+ КопироватьФайл(ИмяФайлаСообщенияОбмена, ИмяФайлаНазначения);
+ Исключение
+
+ Инфо = ОписаниеОшибки();
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(
+ СтрШаблон(
+ НСтр("ru = 'Не удалось скопировать файл данных (%1)
+ |по причине: %2';
+ |en = 'Can''t copy data file (%1)
+ |by reason: %2'"),
+ ИмяФайлаСообщенияОбмена, ПодробноеПредставлениеОшибки(Инфо)));
+
+ КонецПопытки;
+
+ #КонецЕсли
+
+КонецПроцедуры
+
+
+// Формирует список разделов в окне настроек.
+//
+// Параметры:
+// СписокРазделов - ТаблицаЗначений - Таблица разделов в форме настроек.
+//
+Процедура ЗаполнитьСписокРазделовНастроек(СписокРазделов) Экспорт
+
+ СписокРазделов.Очистить();
+
+ СтрокаРаздел = СписокРазделов.Добавить();
+ СтрокаРаздел.Раздел = "Подключение";
+ СтрокаРаздел.Описание = НСтр("ru = 'Подключение'; en = 'Connection'");
+
+ СтрокаРаздел = СписокРазделов.Добавить();
+ СтрокаРаздел.Раздел = "Сервис";
+ СтрокаРаздел.Описание = НСтр("ru = 'Сервис'; en = 'Service'");
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Устанавливает указанное значение если текущее значение константы пустое или не заполненное.
+//
+// Параметры:
+// ИмяКонстанты - Строка - Имя устанавливаемой константы;
+// ЗначениеПоУмолчанию - Произвольный - Устанавливаемое значение.
+//
+Процедура УстановитьЗначениеКонстантыПоУмолчанию(ИмяКонстанты, ЗначениеПоУмолчанию)
+
+ ТекущееЗначение = Константы[ИмяКонстанты].Получить();
+
+ Если Не ЗначениеЗаполнено(ТекущееЗначение) Тогда
+ Константы[ИмяКонстанты].Установить(ЗначениеПоУмолчанию);
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Устанавливает уникальный код устройства для однозначной идентификации устройства в центральной базе.
+//
+Процедура УстановитьКодУстройства()
+
+ Код = Константы.КодУстройства.Получить();
+
+ Если Код = Неопределено Или ПустаяСтрока(Код) Тогда
+
+ Код = Строка(Новый УникальныйИдентификатор());
+
+ Константы.КодУстройства.Установить(Код);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Удаляет из указанного имени файла запрещенные символы.
+//
+// Параметры:
+// ИмяФайла - Строка - Имя файла проверяемое на наличие запрещенных символов.
+//
+Процедура УдалитьЗапрещенныеСимволы(ИмяФайла)
+
+ ИмяФайла = СтрЗаменить(ИмяФайла, """", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "/", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "\", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "[", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "]", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, ":", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, ";", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "=", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "?", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "*", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, "<", "_");
+ ИмяФайла = СтрЗаменить(ИмяФайла, ">", "_");
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..2ebbfdb
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбщегоНазначенияГлобальныйВызовСервера
+
+
+ ru
+ Общего назначения глобальный вызов сервера
+
+
+
+ true
+ true
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..64809f0
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\223\320\273\320\276\320\261\320\260\320\273\321\214\320\275\321\213\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,26 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Возвращает пустой уникальный идентификатор.
+//
+// Возвращаемое значение:
+// Строка - Пустой уникальный идентификатор.
+//
+Функция УникальныйИдентификаторПустой() Экспорт
+
+ Возврат Новый УникальныйИдентификатор("00000000-0000-0000-0000-000000000000");
+
+КонецФункции
+
+// Возвращает признак большой диагонали экрана у устройства.
+//
+// Возвращаемое значение:
+// Истина - Если экран устройства имеет диагональ больше 7 дюймов.
+//
+Функция ЭтоУстройствоСБольшимЭкраном() Экспорт
+
+ Возврат ЭкранКлиентСервер.УстройствоИмеетЭкранБольшеСемиДюймов();
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..a603fb9
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбщегоНазначенияКлиент
+
+
+ ru
+ Общего назначения клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..b319571
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,186 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выполняет первоначальную настройку окружения системы.
+//
+// Параметры:
+// ЭтоЧистаяБаза - Булево - Признак того, что база пуста.
+// ТекущийРаздел - Строка - Текущий активный раздел.
+//
+Процедура ВыполнитьДействияПриЗапускеСистемы(ЭтоЧистаяБаза, ТекущийРаздел) Экспорт
+
+ Если ЭтоЧистаяБаза
+ Или ОбновлениеИнформационнойБазыВызовСервера.НеобходимоВыполнитьОбновление() Тогда
+
+ Если ЭтоЧистаяБаза Тогда
+ СборСтатистикиВызовСервера.УдалитьВсеСобранныеПоказатели();
+ КонецЕсли;
+
+ СтраницыЧтоНового = Новый Массив();
+ ЕстьОшибкиПриОбновлении = Ложь;
+
+ ОбновлениеИнформационнойБазыКлиент.ВыполнитьОбновлениеИнформационнойБазы(
+ СтраницыЧтоНового, ЕстьОшибкиПриОбновлении);
+
+ ОбновитьИнтерфейс();
+
+ Если ЕстьОшибкиПриОбновлении Тогда
+
+ // Наличие ошибок означает, что обновление не выполнено.
+ // Будет открыта форма, на которой будет написано, что обновление данных
+ // не выполнено из-за ошибки.
+ МоментыВремениОшибок =
+ ОбщегоНазначенияВызовСервера.ПолучитьОтметкиВремениНепоказанныеОшибок(Ложь);
+
+ ПараметрыФормы = Новый Структура();
+ ПараметрыФормы.Вставить("МоментыВремениСобытий", МоментыВремениОшибок);
+ ПараметрыФормы.Вставить("КнопкаПовторить", Ложь);
+ ПараметрыФормы.Вставить("Заголовок",
+ НСтр("ru = 'Ошибки обновления'; en = 'Update error'"));
+
+ ОткрытьФорму("РегистрСведений.ПротоколСобытий.Форма.ФормаСпискаСобытий",
+ ПараметрыФормы,,,,,, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ ИначеЕсли Не СтраницыЧтоНового.Количество() = 0 Тогда
+
+ ОбработчикЗавершения =
+ Новый ОписаниеОповещения("ОбработатьПоказФормыЧтоНового",
+ ОбновлениеИнформационнойБазыКлиент, ОбновлениеИнформационнойБазыКлиент);
+
+ Параметры = Новый Структура();
+ Параметры.Вставить("Страницы", СтраницыЧтоНового);
+
+ ОткрытьФорму("ОбщаяФорма.ЧтоНового", Параметры,,,,, ОбработчикЗавершения,
+ РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+ КонецЕсли;
+
+ Иначе
+
+ Если ЗначениеЗаполнено(ТекущийРаздел) Тогда
+
+ Попытка
+ ПерейтиПоНавигационнойСсылке(ТекущийРаздел);
+ Исключение
+ // Очистим текущий раздел, т.к. он все равно ошибочный
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты("ТекущийРаздел", "");
+ КонецПопытки;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ ЛокальныеУведомленияКлиент.ПодключитьОбработкуДоставляемыхУведомлений();
+ Оповестить("ВыполненЗапускСистемы");
+
+КонецПроцедуры
+
+// Обрабатывает результат ввода PIN-кода если он установлен
+//
+// Параметры:
+// Результат - Булево - Признак успешного ввода PIN-кода.
+// ДопПараметры - Структура, Неопределено - Доп. параметры передаваемые в процедуру.
+//
+Процедура ОбработчикЗакрытияФормыВводаPINКода(Результат, ДопПараметры) Экспорт
+
+ Если Результат = Истина Тогда
+ ВыполнитьДействияПриЗапускеСистемы(ДопПараметры.ЭтоЧистаяБаза, ДопПараметры.ТекущийРаздел);
+ Иначе
+ ЗавершитьРаботуСистемы(Ложь, Истина);
+ КонецЕсли;
+
+КонецПроцедуры
+
+#Область ГлобальныеКоманды
+
+// Выполняет открытие раздела "Списание денежных средств"
+//
+// Параметры:
+// ПараметрыВыполненияКоманды - ПараметрыВыполненияКоманды - Структура параметров общей команды.
+//
+Процедура ОткрытьРазделСписанияДенежныхСредств(ПараметрыВыполненияКоманды) Экспорт
+
+ ИмяФормы = "Документ.СписаниеДенежныхСредств.Форма.ФормаСпискаТелефон";
+ Если ЭтоУстройствоСБольшимЭкраном() Тогда
+ ИмяФормы = "Документ.СписаниеДенежныхСредств.Форма.ФормаСпискаПланшет";
+ Иначе
+ ИмяФормы = "Документ.СписаниеДенежныхСредств.Форма.ФормаСпискаТелефон";
+ КонецЕсли;
+
+ ОбщегоНазначенияВызовСервера.УстановитьЗначениеКонстанты(
+ "ТекущийРаздел", ПараметрыВыполненияКоманды.НавигационнаяСсылка);
+
+ ОткрытьФорму(ИмяФормы,,
+ ПараметрыВыполненияКоманды.Источник,
+ ПараметрыВыполненияКоманды.Уникальность,
+ ПараметрыВыполненияКоманды.Окно,
+ ПараметрыВыполненияКоманды.НавигационнаяСсылка);
+
+КонецПроцедуры
+
+#КонецОбласти
+
+// Настраивает список выбора возможного срока окончания задачи или контроля.
+//
+// Параметры:
+// СписокВыбора - СписокЗначений - Настраиваемый список выбора.
+// ЗначениеЗаполнено - Булево - Признак, что значение в поле заполнено.
+//
+Процедура НастроитьСписокВыбораВариантовСрока(СписокВыбора, ЗначениеЗаполнено = Ложь) Экспорт
+
+ ДатаСегодня = Формат(ТекущаяДата() , "ДФ='dd MMM'");
+ ДатаЗавтра = Формат(ТекущаяДата() + 24*60*60 , "ДФ='dd MMM'");
+ ДатаПослезавтра = Формат(ТекущаяДата() + 2*24*60*60, "ДФ='dd MMM'");
+ ДатаЧерез2дня = Формат(ТекущаяДата() + 3*24*60*60, "ДФ='dd MMM'");
+ ДатаДоКонцаНедели = Формат(КонецНедели(ТекущаяДата()), "ДФ='dd MMM'");
+
+ СписокВыбора.Очистить();
+
+ СписокВыбора.Добавить("Сегодня" ,
+ СтрШаблон(
+ НСтр("ru = 'До конца дня, %1'; en = 'Until the end of day, %1'"), ДатаСегодня));
+
+ СписокВыбора.Добавить("Завтра",
+ СтрШаблон(
+ НСтр("ru = 'Завтра, %1'; en = 'Tomorrow, %1'"), ДатаЗавтра));
+
+ СписокВыбора.Добавить("Послезавтра",
+ СтрШаблон(
+ НСтр("ru = 'Послезавтра, %1'; en = 'The day after tomorrow, %1'"), ДатаПослезавтра));
+
+ СписокВыбора.Добавить("Через3дня",
+ СтрШаблон(
+ НСтр("ru = 'Через 3 дня, %1'; en = 'In 3 days, %1'"), ДатаЧерез2дня));
+
+ СписокВыбора.Добавить("ДоКонцаНедели",
+ СтрШаблон(
+ НСтр("ru = 'До конца недели, %1'; en = 'Before the end of week, %1'"), ДатаДоКонцаНедели));
+
+КонецПроцедуры
+
+// Открывает переопределенную формы выбора даты.
+//
+// Параметры:
+// ФормаВладелец - Форма - Форма вызвавшая процедуру;
+// ИмяЭлемента - Строка - Имя элемента поля формы, из которого произошел вызов;
+// СтандартнаяОбработка - Булево - Флаг стандартной обработки;
+// Дата - Дата - Начальное значение даты передаваемое в форму;
+// СписокСобытий - Булево - Признак показа дополнительного списка событий в форме.
+//
+Процедура ОткрытьФормыВыбораДаты(
+ ФормаВладелец, ИмяЭлемента, СтандартнаяОбработка, Дата, СписокСобытий = Ложь) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+
+ ПараметрыОткрытия = Новый Структура();
+ ПараметрыОткрытия.Вставить("ТекущаяДата", Дата);
+ ПараметрыОткрытия.Вставить("Элемент", ИмяЭлемента);
+ ПараметрыОткрытия.Вставить("СписокСобытий", СписокСобытий);
+
+ ОткрытьФорму("ОбщаяФорма.ВыборДаты", ПараметрыОткрытия, ФормаВладелец,,,,,
+ РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..7d77796
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбщегоНазначенияКлиентСервер
+
+
+ ru
+ Общего назначения клиент сервер
+
+
+
+ false
+ true
+ true
+ true
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..c89c679
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,321 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Добавление элемента компоновки в контейнер элементов компоновки.
+//
+// Параметры:
+// ОбластьДобавления - Отбор - например Список.Отбор или группа в отборе;
+// ИмяПоля - Строка - Имя для поля компоновки данных;
+// ВидСравнения - ВидСравненияКомпоновкиДанных - Вид сравнения;
+// ПравоеЗначение - Произвольный - Значение сравнения для элемента;
+// Представление - Строка - Представление элемента компоновки данных;
+// Использование - Булево - Использование элемента.
+//
+// Возвращаемое значение:
+// Элемент - Созданный и настроенный элемент компоновки данных.
+//
+Функция ДобавитьЭлементКомпоновки(ОбластьДобавления,
+ знач ИмяПоля,
+ знач ВидСравнения,
+ знач ПравоеЗначение = Неопределено,
+ знач Представление = Неопределено,
+ знач Использование = Неопределено) Экспорт
+
+ Элемент = ОбластьДобавления.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
+ Элемент.ЛевоеЗначение = Новый ПолеКомпоновкиДанных(ИмяПоля);
+ Элемент.ВидСравнения = ВидСравнения;
+
+ Если ПравоеЗначение <> Неопределено Тогда
+ Элемент.ПравоеЗначение = ПравоеЗначение;
+ КонецЕсли;
+
+ Если Представление <> Неопределено Тогда
+ Элемент.Представление = Представление;
+ КонецЕсли;
+
+ Если Использование <> Неопределено Тогда
+ Элемент.Использование = Использование;
+ КонецЕсли;
+
+ Возврат Элемент;
+
+КонецФункции
+
+// Формирует и выводит сообщение, которое может быть связано с элементом
+// управления формы.
+//
+// Параметры
+// ТекстСообщенияПользователю - Строка - текст сообщения.
+// КлючДанных - Любая ссылка на объект информационной базы.
+// Ссылка на объект информационной базы, к которому это сообщение относится,
+// или ключ записи.
+// Поле - Строка - наименование реквизита формы
+// ПутьКДанным - Строка - путь к данным (путь к реквизиту формы)
+// Отказ - Булево - Выходной параметр
+// Всегда устанавливается в значение Истина.
+//
+// Примеры использования:
+//
+// 1. Для вывода сообщения у поля управляемой формы, связанного с реквизитом объекта:
+// ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+// НСтр("ru = 'Сообщение об ошибке.'"), ,
+// "ПолеВРеквизитеФормыОбъект",
+// "Объект");
+//
+// Альтернативный вариант использования в форме объекта:
+// ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+// НСтр("ru = 'Сообщение об ошибке.'"), ,
+// "Объект.ПолеВРеквизитеФормыОбъект");
+//
+// 2. Для вывода сообщения рядом с полем управляемой формы, связанным с реквизитом формы:
+// ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+// НСтр("ru = 'Сообщение об ошибке.'"), ,
+// "ИмяРеквизитаФормы");
+//
+// 3. Для вывода сообщения связанного с объектом информационной базы
+// ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+// НСтр("ru = 'Сообщение об ошибке.'"), ОбъектИнформационнойБазы, "Ответственный",,Отказ);
+//
+// 4. Для вывода сообщения по ссылке на объект информационной базы
+// ОбщегоНазначенияКлиентСервер.СообщитьПользователю(
+// НСтр("ru = 'Сообщение об ошибке.'"), Ссылка, , , Отказ);
+//
+// Случаи некорректного использования:
+// 1. Передача одновременно параметров КлючДанных и ПутьКДанным
+// 2. Передача в параметре КлючДанных значения типа отличного от допустимых
+// 3. Установка ссылки без установки поля (и/или пути к данным).
+//
+Процедура СообщитьПользователю(
+ Знач ТекстСообщенияПользователю,
+ Знач КлючДанных = Неопределено,
+ Знач Поле = "",
+ Знач ПутьКДанным = "",
+ Отказ = Ложь) Экспорт
+
+ Сообщение = Новый СообщениеПользователю;
+ Сообщение.Текст = ТекстСообщенияПользователю;
+ Сообщение.Поле = Поле;
+
+ ЭтоОбъект = Ложь;
+
+ #Если Не (ТонкийКлиент Или ВебКлиент) Тогда
+
+ Если КлючДанных <> Неопределено
+ И XMLТипЗнч(КлючДанных) <> Неопределено Тогда
+
+ ТипЗначенияСтрокой = XMLТипЗнч(КлючДанных).ИмяТипа;
+ ЭтоОбъект = СтрНайти(ТипЗначенияСтрокой, "Object.") > 0;
+
+ КонецЕсли;
+
+ #КонецЕсли
+
+ Если ЭтоОбъект Тогда
+ Сообщение.УстановитьДанные(КлючДанных);
+ Иначе
+ Сообщение.КлючДанных = КлючДанных;
+ КонецЕсли;
+
+ Если Не ПустаяСтрока(ПутьКДанным) Тогда
+ Сообщение.ПутьКДанным = ПутьКДанным;
+ КонецЕсли;
+
+ Сообщение.Сообщить();
+
+ Отказ = Истина;
+
+КонецПроцедуры
+
+// Получается индекс пиктограммы файла - индекс в картинке КоллекцияПиктограммФайлов.
+//
+// Параметры:
+// РасширениеФайла - Строка - расширение файла строкой.
+//
+// Возвращаемое значение:
+// Число - Индекс картинки в общей картинке КоллекцияСтрокПиктограммФайлов.
+//
+Функция ПолучитьИндексПиктограммыФайла(Знач РасширениеФайла) Экспорт
+
+ Если ТипЗнч(РасширениеФайла) <> Тип("Строка")
+ Или ПустаяСтрока(РасширениеФайла) Тогда
+ Возврат 10;
+ КонецЕсли;
+
+ РасширениеФайла = РасширениеБезТочки(РасширениеФайла);
+
+ Расширение = "." + НРег(РасширениеФайла) + ";";
+
+ Если СтрНайти(".mxl;",Расширение) <> 0 Тогда
+ Возврат 6; // Текстовый Файл.
+
+ ИначеЕсли СтрНайти(".txt;.log;.ini;", Расширение) <> 0 Тогда
+ Возврат 10; // Текстовый Файл.
+
+ ИначеЕсли СтрНайти(".ico;.wmf;.emf;",Расширение) <> 0 Тогда
+ Возврат 14; // Картинки.
+
+ ИначеЕсли СтрНайти(".htm;.html;.url;.mht;.mhtml;",Расширение) <> 0 Тогда
+ Возврат 17; // HTML.
+
+ ИначеЕсли СтрНайти(".doc;.dot;.rtf;",Расширение) <> 0 Тогда
+ Возврат 18; // Файл Microsoft Word.
+
+ ИначеЕсли СтрНайти(".xls;",Расширение) <> 0 Тогда
+ Возврат 20; // Файл Microsoft Excel.
+
+ ИначеЕсли СтрНайти(".ppt;.pptx;",Расширение) <> 0 Тогда
+ Возврат 22; // Файл Microsoft PowerPoint
+
+ ИначеЕсли СтрНайти(".jpg;.jpeg;.jp2;.jpe;",Расширение) <> 0 Тогда
+ Возврат 42; // jpg.
+
+ ИначеЕсли СтрНайти(".bmp;.dib;",Расширение) <> 0 Тогда
+ Возврат 44; // bmp.
+
+ ИначеЕсли СтрНайти(".tif;.tiff;",Расширение) <> 0 Тогда
+ Возврат 46; // tif.
+
+ ИначеЕсли СтрНайти(".gif;",Расширение) <> 0 Тогда
+ Возврат 48; // gif.
+
+ ИначеЕсли СтрНайти(".png;",Расширение) <> 0 Тогда
+ Возврат 50; // png.
+
+ ИначеЕсли СтрНайти(".pdf;",Расширение) <> 0 Тогда
+ Возврат 52; // pdf.
+
+ ИначеЕсли СтрНайти(".odt;",Расширение) <> 0 Тогда
+ Возврат 54; // Open Office writer
+
+ ИначеЕсли СтрНайти(".odf;",Расширение) <> 0 Тогда
+ Возврат 56; // Open Office math
+
+ ИначеЕсли СтрНайти(".odp;",Расширение) <> 0 Тогда
+ Возврат 58; // Open Office Impress
+
+ ИначеЕсли СтрНайти(".odg;",Расширение) <> 0 Тогда
+ Возврат 60; // Open Office draw
+
+ ИначеЕсли СтрНайти(".ods;",Расширение) <> 0 Тогда
+ Возврат 62; // Open Office calc
+
+ ИначеЕсли СтрНайти(".docx;",Расширение) <> 0 Тогда
+ Возврат 68; // Файл Microsoft Word docx.
+
+ ИначеЕсли СтрНайти(".xlsx;",Расширение) <> 0 Тогда
+ Возврат 70; // Файл Microsoft Excel xlsx.
+
+ Иначе
+ Возврат 76;
+ КонецЕсли;
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Преобразует расширение файла в нижний регистр без точки.
+//
+// Параметры:
+// Расширение - Строка. Расширение для преобразования.
+//
+// Возвращаемое значение:
+// Строка.
+//
+Функция РасширениеБезТочки(Знач Расширение)
+
+ Расширение = НРег(СокрЛП(Расширение));
+
+ Если Сред(Расширение, 1, 1) = "." Тогда
+ Расширение = Сред(Расширение, 2);
+ КонецЕсли;
+
+ Возврат Расширение;
+
+КонецФункции
+
+// Разбирает строку URI на составные части и возвращает в виде структуры.
+// На основе RFC 3986.
+//
+// Параметры:
+// СтрокаURI - Строка - ссылка на ресурс в формате:
+// <схема>://<логин>:<пароль>@<хост>:<порт>/<путь>?<параметры>#<якорь>.
+//
+// Возвращаемое значение:
+// Структура - составные части URI согласно формату:
+// * Схема - Строка.
+// * Логин - Строка.
+// * Пароль - Строка.
+// * ИмяСервера - Строка - часть <хост>:<порт> входного параметра.
+// * Хост - Строка.
+// * Порт - Строка.
+// * ПутьНаСервере - Строка - часть <путь>?<параметры>#<якорь> входного параметра.
+//
+Функция СтруктураURI(Знач СтрокаURI) Экспорт
+
+ СтрокаURI = СокрЛП(СтрокаURI);
+
+ // схема
+ Схема = "";
+ Позиция = СтрНайти(СтрокаURI, "://");
+ Если Позиция > 0 Тогда
+ Схема = НРег(Лев(СтрокаURI, Позиция - 1));
+ СтрокаURI = Сред(СтрокаURI, Позиция + 3);
+ КонецЕсли;
+
+ // Строка соединения и путь на сервере.
+ СтрокаСоединения = СтрокаURI;
+ ПутьНаСервере = "";
+ Позиция = СтрНайти(СтрокаСоединения, "/");
+ Если Позиция > 0 Тогда
+ ПутьНаСервере = Сред(СтрокаСоединения, Позиция + 1);
+ СтрокаСоединения = Лев(СтрокаСоединения, Позиция - 1);
+ КонецЕсли;
+
+ // Информация пользователя и имя сервера.
+ СтрокаАвторизации = "";
+ ИмяСервера = СтрокаСоединения;
+ Позиция = СтрНайти(СтрокаСоединения, "@");
+ Если Позиция > 0 Тогда
+ СтрокаАвторизации = Лев(СтрокаСоединения, Позиция - 1);
+ ИмяСервера = Сред(СтрокаСоединения, Позиция + 1);
+ КонецЕсли;
+
+ // логин и пароль
+ Логин = СтрокаАвторизации;
+ Пароль = "";
+ Позиция = СтрНайти(СтрокаАвторизации, ":");
+ Если Позиция > 0 Тогда
+ Логин = Лев(СтрокаАвторизации, Позиция - 1);
+ Пароль = Сред(СтрокаАвторизации, Позиция + 1);
+ КонецЕсли;
+
+ // хост и порт
+ Хост = ИмяСервера;
+ Порт = "";
+ Позиция = СтрНайти(ИмяСервера, ":");
+ Если Позиция > 0 Тогда
+ Хост = Лев(ИмяСервера, Позиция - 1);
+ Порт = Сред(ИмяСервера, Позиция + 1);
+ Если Не СтроковыеФункцииКлиентСервер.ТолькоЦифрыВСтроке(Порт) Тогда
+ Порт = "";
+ КонецЕсли;
+ КонецЕсли;
+
+ Результат = Новый Структура;
+ Результат.Вставить("Схема", Схема);
+ Результат.Вставить("Логин", Логин);
+ Результат.Вставить("Пароль", Пароль);
+ Результат.Вставить("ИмяСервера", ИмяСервера);
+ Результат.Вставить("Хост", Хост);
+ Результат.Вставить("Порт", ?(ПустаяСтрока(Порт), Неопределено, Число(Порт)));
+ Результат.Вставить("ПутьНаСервере", ПутьНаСервере);
+
+ Возврат Результат;
+
+КонецФункции
+
+#КонецОбласти
+
+
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..0042db6
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОбщегоНазначенияСервер
+
+
+ ru
+ Общего назначения сервер
+
+
+
+ false
+ false
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..1e2c0f6
--- /dev/null
+++ "b/CommonModules/\320\236\320\261\321\211\320\265\320\263\320\276\320\235\320\260\320\267\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,107 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Формирует список команд раздела Сервис в окне настроек
+//
+// Параметры:
+// ТаблицаКоманд - ТаблицаЗначений - Таблица команд в форме.
+// * Команда - Строка - Идентификатор команды;
+// * Представление - Строка - Представление команды;
+// * Пояснение - Строка - Краткая подсказка-пояснение для пользователя.
+//
+Процедура ЗаполнитьСписокКомандВРазделеСервис(ТаблицаКоманд) Экспорт
+
+ ТаблицаКоманд.Очистить();
+
+ // todo
+ //Если Константы.ХранитьПисьмаВТечениеПериода.Получить() > 0
+ // Или Константы.ХранитьЗаписиКалендаряВТечениеПериода.Получить() > 0 Тогда
+
+ // Стр = ТаблицаКоманд.Добавить();
+ // Стр.Команда = "ОчиститьСтарые";
+ // Стр.Представление = НСтр("ru = 'Очистить от старых данных'; en = 'Clear old data'");
+ // Стр.Пояснение = НСтр("ru = 'Старые данные будут удалены в соответствии с настройками времени хранения данных на данном устройстве.';
+ // |en = 'Old data will be removed according to settings of a storage time of data on this device.'");
+
+ //КонецЕсли;
+
+ Стр = ТаблицаКоманд.Добавить();
+ Стр.Команда = "УдалитьВсе";
+ Стр.Представление = НСтр("ru = 'Удалить все данные'; en = 'Remove all data'");
+ Стр.Пояснение = НСтр("ru = 'Будет выполнено удаление всех загруженных данных. Клиент будет отключен от сервера. ';
+ |en = 'All data will be removed. The client will be disconnected from the server.'");
+
+ Стр = ТаблицаКоманд.Добавить();
+ Стр.Команда = "ОткрытьПротокол";
+ Стр.Представление = НСтр("ru = 'Открыть протокол'; en = 'Open the event log'");
+ Стр.Пояснение = НСтр("ru = 'Будет открыт протокол событий работы мобильного клиента.';
+ |en = 'Events protocol of the mobile client will be open.'");
+
+КонецПроцедуры
+
+// Формирует список команд о синхронизации в разделе почта
+//
+// Параметры:
+// ТаблицаКоманд - ТаблицаЗначений - Таблица команд в форме.
+// * Команда - Строка - Идентификатор команды;
+// * Представление - Строка - Представление команды;
+// * Пояснение - Строка - Краткая подсказка-пояснение для пользователя.
+//
+Процедура ЗаполнитьСписокКомандВРазделеПочта(ТаблицаКоманд) Экспорт
+
+ ТаблицаКоманд.Очистить();
+
+ Стр = ТаблицаКоманд.Добавить();
+ Стр.Команда = "СинхронизацияПапок";
+ Стр.Представление = НСтр("ru = 'Синхронизация папок писем...'; en = 'Setting up folders'");
+ Стр.Пояснение = НСтр("ru = 'Настройка состава синхронизируемых папок писем.';
+ |en = 'Control of structure of synchronizable folders.'");
+
+КонецПроцедуры
+
+#КонецОбласти
+
+
+///////////////////////////////////////////////////////////////////////////////
+// JSON <> Объект
+
+Функция ОбъектИзJSON(СтрокаJSON, ИменаСвойствСоЗначениемДата = Неопределено) Экспорт
+
+ Если Не ЗначениеЗаполнено(СтрокаJSON) Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если ИменаСвойствСоЗначениемДата = Неопределено Тогда
+ ИменаСвойствСоЗначениемДата = Новый Массив();
+ КонецЕсли;
+
+ ЧтениеJSON = Новый ЧтениеJSON();
+ ЧтениеJSON.УстановитьСтроку(СтрокаJSON);
+
+ Результат = ПрочитатьJSON(
+ ЧтениеJSON,
+ ,
+ ИменаСвойствСоЗначениемДата
+ );
+
+ ЧтениеJSON.Закрыть();
+
+ Возврат Результат;
+
+КонецФункции
+
+Функция ОбъектВJSON(Объект, ПереносСтрок = Истина) Экспорт
+
+ ЗаписьJSON = Новый ЗаписьJSON();
+ ЗаписьJSON.ПроверятьСтруктуру = Ложь;
+ ПараметрыЗаписиJSON = Новый ПараметрыЗаписиJSON(
+ ?(ПереносСтрок, ПереносСтрокJSON.Авто, ПереносСтрокJSON.Нет),
+ " ");
+
+ ЗаписьJSON.УстановитьСтроку(ПараметрыЗаписиJSON);
+ ЗаписатьJSON(ЗаписьJSON, Объект);
+ РезультатJSON = ЗаписьJSON.Закрыть();
+
+ Возврат РезультатJSON;
+
+КонецФункции
diff --git "a/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..c726b6e
--- /dev/null
+++ "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОчисткаБазыДанныхВызовСервера
+
+
+ ru
+ Очистка базы данных вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..3306cb0
--- /dev/null
+++ "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,357 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Удаляет все данные на устройстве, приводя базу в исходное состояние.
+//
+Процедура УдалитьВсеДанные() Экспорт
+
+ //Перед запуском удаления всех данных необходимо отменить
+ //задание очистки от устаревших данных, если оно активно
+ ОчисткаБазыДанныхВызовСервера.ПрерватьОчисткуОтСтарыхДанныхВФоне();
+
+ Константы.ИнициированаОчисткаБазы.Установить(Истина);
+
+ Для Каждого Эл Из Метаданные.Справочники Цикл
+
+ Выборка = Справочники[Эл.Имя].Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Если Выборка.Предопределенный Тогда
+ Продолжить;
+ КонецЕсли;
+
+ УдалитьОбъект(Выборка.ПолучитьОбъект());
+
+ КонецЦикла;
+
+ КонецЦикла;
+
+ Для Каждого Эл Из Метаданные.Документы Цикл
+
+ Выборка = Документы[Эл.Имя].Выбрать();
+ Пока Выборка.Следующий() Цикл
+ УдалитьОбъект(Выборка.ПолучитьОбъект());
+ КонецЦикла;
+
+ КонецЦикла;
+
+ Для Каждого Эл Из Метаданные.РегистрыСведений Цикл
+ НаборЗаписей = РегистрыСведений[Эл.Имя].СоздатьНаборЗаписей();
+ НаборЗаписей.Записать();
+ КонецЦикла;
+
+ // todo: delete
+ //ПапкаОбъект = Справочники.ПапкиПисем.ВсеВходящие.ПолучитьОбъект();
+ //ПапкаОбъект.Наименование = НСтр("ru = 'Все входящие'; en = 'All incoming'");
+ //ПапкаОбъект.КоличествоПисем = 0;
+ //ПапкаОбъект.КоличествоНепрочитанныхПисем = 0;
+ //ПапкаОбъект.Записать();
+
+ //ПапкаОбъект = Справочники.ПапкиПисем.ВсеНепрочитанные.ПолучитьОбъект();
+ //ПапкаОбъект.Наименование = НСтр("ru = 'Все непрочитанные'; en = 'All unread'");
+ //ПапкаОбъект.КоличествоПисем = 0;
+ //ПапкаОбъект.КоличествоНепрочитанныхПисем = 0;
+ //ПапкаОбъект.Записать();
+
+ //ВыборкаГруппыЗадач = Справочники.ГруппыЗадач.Выбрать();
+ //Пока ВыборкаГруппыЗадач.Следующий() Цикл
+
+ // Если ВыборкаГруппыЗадач.ПометкаУдаления Тогда
+ // Продолжить;
+ // КонецЕсли;
+
+ // ГруппаЗадачОбъект = ВыборкаГруппыЗадач.ПолучитьОбъект();
+ // ГруппаЗадачОбъект.КоличествоВсего = 0;
+ // ГруппаЗадачОбъект.Записать();
+
+ //КонецЦикла;
+
+ //ВыборкаГруппыИсполнений = Справочники.ГруппыИсполнений.Выбрать();
+ //Пока ВыборкаГруппыИсполнений.Следующий() Цикл
+
+ // Если ВыборкаГруппыИсполнений.ПометкаУдаления Тогда
+ // Продолжить;
+ // КонецЕсли;
+
+ // ГруппаИсполненийОбъект = ВыборкаГруппыИсполнений.ПолучитьОбъект();
+ // ГруппаИсполненийОбъект.КоличествоВсего = 0;
+ // ГруппаИсполненийОбъект.Записать();
+
+ //КонецЦикла;
+
+ Для Каждого Эл Из Метаданные.ПланыОбмена Цикл
+
+ ЭтотУзел = ПланыОбмена[Эл.Имя].ЭтотУзел();
+
+ Выборка = ПланыОбмена[Эл.Имя].Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Если Выборка.Ссылка = ЭтотУзел Тогда
+ Продолжить;
+ КонецЕсли;
+
+ УдалитьОбъект(Выборка.ПолучитьОбъект());
+
+ КонецЦикла;
+
+ КонецЦикла;
+
+ Если Константы.ЭтоДемоРежим.Получить() Тогда
+
+ Константы.АдресЦентральнойБазы.Установить("https://");
+ Константы.ПользовательЦентральнойБазы.Установить("");
+ Константы.ПарольПользователя.Установить("");
+ Константы.СрокУстареванияДанных.Установить(7);
+ Константы.ПериодПервичнойЗагрузкиДанных.Установить(7);
+ Константы.МаксимальныйРазмерФайла.Установить(500);
+ Константы.ЭтоДемоРежим.Установить(Ложь);
+
+ КонецЕсли;
+
+ Константы.ДатаПоследнегоОбновления.Установить(Дата(1, 1, 1));
+ Константы.ЕстьНеотправленныеДанные.Установить(Ложь);
+ Константы.КодУстройства.Установить(Строка(Новый УникальныйИдентификатор()));
+ Константы.СессияСинхронизации.Установить(0);
+ Константы.ПоследняяОтправленнаяНаСерверЗаписьПротокола.Установить(0);
+
+ Константы.ТекущийРаздел.Установить("");
+ // Константы.ОсновнаяУчетнаяЗапись.Установить(Справочники.УчетныеЗаписи.ПустаяСсылка());
+ //Константы.ТекущаяПапкаПисем.Установить(Справочники.ПапкиПисем.ВсеВходящие);
+
+ // Константы.ПодписьДляНовыхПисем.Установить(Справочники.ШаблоныТекстовПисем.ПустаяСсылка());
+ // Константы.ПодписьПриОтветеИПересылке.Установить(Справочники.ШаблоныТекстовПисем.ПустаяСсылка());
+ Константы.ИспользоватьЛокальныеУведомления.Установить(Истина);
+ Константы.ИспользуемаяВерсияФорматаОбмена.Установить("");
+
+ ОбменВызовСервера.СброситьСостояниеЗагрузкиЧастейСообщений();
+ ОбновитьПовторноИспользуемыеЗначения();
+
+ Константы.ИнициированаОчисткаБазы.Установить(Ложь);
+
+КонецПроцедуры
+
+// Выполняет очистку базы от данных находящихся за границами устаревания.
+//
+Процедура ВыполнитьОчисткуОтСтарыхДанных() Экспорт
+
+ // todo
+ Возврат;
+
+ Попытка
+ УдалитьФайлы(ПараметрыСеанса.ПутьКаталогаФайлов);
+ Исключение
+
+ Инфо = ИнформацияОбОшибке();
+
+ ТекстПредупреждения =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ НСтр("ru = 'При удалении временных файлов произошла ошибка.'
+ |; en = 'Cannot delete temporary files.'"),
+ ПодробноеПредставлениеОшибки(Инфо));
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьПредупреждение(ТекстПредупреждения);
+
+ КонецПопытки;
+
+ Константы.ИдентификаторПоследнегоЗагруженногоСообщения.Установить(УникальныйИдентификаторПустой());
+ Константы.НомерПоследнейЗагруженнойЧастиСообщения.Установить(0);
+
+ ЦентральныйУзелОбмена = ОбменВызовСервераПовтИсп.ПолучитьЦентральныйУзелОбмена();
+
+ Если Константы.ХранитьПисьмаВТечениеПериода.Получить() > 0 Тогда
+
+ ДатаОкончанияХранения = ТекущаяДата() - Константы.ХранитьПисьмаВТечениеПериода.Получить();
+
+ Выборка = РегистрыСведений.ДатыЗагрузкиОбъектов.Выбрать(, ДатаОкончанияХранения);
+ Пока Выборка.Следующий() Цикл
+
+ Если ТипЗнч(Выборка.Объект) = Тип("ДокументСсылка.ВходящееПисьмо")
+ Или ТипЗнч(Выборка.Объект) = Тип("ДокументСсылка.ИсходящееПисьмо") Тогда
+
+ // Выполним проверку - не является ли письмо предметом задачи.
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("Предмет", Выборка.Объект);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ЗадачиПредметы.Ссылка
+ |ИЗ
+ | Справочник.Задачи.Предметы КАК ЗадачиПредметы
+ |ГДЕ
+ | ЗадачиПредметы.Предмет = &Предмет";
+
+ Если Запрос.Выполнить().Пустой() Тогда
+
+ // Письмо не является предметом - удаляем с устройства.
+ УдалитьОбъектПоИстечениюСрокаХранения(ЦентральныйУзелОбмена, Выборка.Объект);
+
+ Иначе
+
+ // Письмо является предметом - удалить нельзя, т.к. если задача активна, то
+ // у пользователя будет битая ссылка в представлении задачи.
+
+ // Очищаем папку письма - оно пропадет в списке, но будет видно в задаче.
+ ПисьмоОбъект = Выборка.Объект.ПолучитьОбъект();
+ ПисьмоОбъект.Папка = Неопределено;
+ ПисьмоОбъект.Записать();
+
+ // Изменения на сервер передавать не нужно.
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена, Выборка.Объект);
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ КонецЕсли;
+
+ Если Константы.ХранитьЗаписиКалендаряВТечениеПериода.Получить() > 0 Тогда
+
+ ДатаОкончанияХранения = ТекущаяДата() - Константы.ХранитьЗаписиКалендаряВТечениеПериода.Получить();
+
+ Выборка = РегистрыСведений.ДатыЗагрузкиОбъектов.Выбрать(, ДатаОкончанияХранения);
+
+ Пока Выборка.Следующий() Цикл
+
+ Если ТипЗнч(Выборка.Объект) = Тип("СправочникСсылка.ЗаписиРабочегоКалендаря") Тогда
+
+ УдалитьОбъектПоИстечениюСрокаХранения(ЦентральныйУзелОбмена, Выборка.Объект);
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Запускает очистку базы от устаревших данных в фоновом режиме
+//
+Функция ЗапуститьОчисткуОтСтарыхДанныхВФоне() Экспорт
+
+ ИмяФоновогоЗадания = "ВыполнитьОчисткуОтСтарыхДанных";
+
+ // Проверим наличие активного задания синхронизации.
+ ОтборЗаданий = Новый Структура();
+ ОтборЗаданий.Вставить("Наименование", ИмяФоновогоЗадания);
+ ОтборЗаданий.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);
+
+ Задания = ФоновыеЗадания.ПолучитьФоновыеЗадания(ОтборЗаданий);
+ Если Не Задания.Количество() = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Задание = ФоновыеЗадания.Выполнить("ОчисткаБазыДанныхВызовСервера.ВыполнитьОчисткуОтСтарыхДанных", , , ИмяФоновогоЗадания);
+
+ Возврат Истина
+
+КонецФункции
+
+// Прерывает очистку базы от устаревших данных в фоновом режиме
+Процедура ПрерватьОчисткуОтСтарыхДанныхВФоне() Экспорт
+
+ ИмяФоновогоЗадания = "ВыполнитьОчисткуОтСтарыхДанных";
+
+ // Проверим наличие активного задания синхронизации.
+ ОтборЗаданий = Новый Структура();
+ ОтборЗаданий.Вставить("Наименование", ИмяФоновогоЗадания);
+ ОтборЗаданий.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);
+
+ Задания = ФоновыеЗадания.ПолучитьФоновыеЗадания(ОтборЗаданий);
+ Для Каждого Задание Из Задания Цикл
+ Задание.Отменить();
+ КонецЦикла;
+
+КонецПроцедуры
+
+// Очищает регистр загруженных частей сообщений.
+//
+Процедура ОчиститьПринятыеДанные() Экспорт
+
+ НаборЗаписей = РегистрыСведений.ПолученныеДанныеОбмена.СоздатьНаборЗаписей();
+ НаборЗаписей.Записать();
+
+КонецПроцедуры
+
+// Дожидается окончания процесса отключения от сервера
+//
+// Параметры:
+// ИмяЗадания - Строка - Имя фонового задания.
+//
+Процедура ДождатьсяОкончанияПроцессаОтключенияОтСервера(ИмяЗадания) Экспорт
+
+ Отбор = Новый Структура("Наименование", ИмяЗадания);
+
+ // Находим задание.
+ // Т.к. оно к этому моменту может и не запуститься, ждем начала его работы.
+
+ ЗаданиеЗавершено = Ложь;
+ Пока Не ЗаданиеЗавершено Цикл
+
+ Задания = ФоновыеЗадания.ПолучитьФоновыеЗадания(Отбор);
+
+ Если Не Задания.Количество() = 0
+ И Не Задания[0].Состояние = СостояниеФоновогоЗадания.Активно Тогда
+
+ ЗаданиеЗавершено = Истина;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Удаляет непосредственное удаление объекта из базы данных.
+//
+// Параметры:
+// Объект - Ссылка - Ссылка на удаляемый объект.
+//
+Процедура УдалитьОбъект(Объект)
+
+ Попытка
+ Объект.ДополнительныеСвойства.Вставить("ОчисткаБазы");
+ Объект.Удалить();
+ Исключение
+ // Ситуация ошибочная, и такого быть не должно, но ничего не делаем.
+ Инфо = ИнформацияОбОшибке();
+ КонецПопытки;
+
+КонецПроцедуры
+
+// Удалить объект по истечению срока хранения
+//
+// Параметры:
+// ЦентральныйУзелОбмена - ПланОбменаСсылка.Мобильный - Ссылка на узел обмена с сервером;
+// Объект - Ссылка - Ссылка на удаляемый объект.
+//
+Процедура УдалитьОбъектПоИстечениюСрокаХранения(ЦентральныйУзелОбмена, Объект)
+
+ Идентификатор = Объект.УникальныйИдентификатор();
+ ТипОбъекта = ТипЗнч(Объект);
+
+ Попытка
+
+ УдалениеДанных = Новый УдалениеОбъекта(Объект);
+ УдалениеДанных.Записать();
+
+ ПланыОбмена.УдалитьРегистрациюИзменений(ЦентральныйУзелОбмена, УдалениеДанных);
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьЗаписьРасширенногоПротокола(Объект,
+ НСтр("ru = 'Объект подвержен процедуре очистки от старых данных'
+ |; en = 'The object is subject to procedure of cleaning of old data'"));
+
+ Исключение
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформациюПоОбъекту(
+ НСтр("ru = 'Не удалось удалить объект'; en = 'Can''t delete the object'"),
+ ТипОбъекта, Идентификатор);
+
+ КонецПопытки;
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..2ed8dc4
--- /dev/null
+++ "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ ОчисткаБазыДанныхКлиент
+
+
+ ru
+ Очистка базы данных клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..2f4e816
--- /dev/null
+++ "b/CommonModules/\320\236\321\207\320\270\321\201\321\202\320\272\320\260\320\221\320\260\320\267\321\213\320\224\320\260\320\275\320\275\321\213\321\205\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,200 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Начинает процедуру очистки базы данных от всей информации.
+//
+// Параметры:
+// ЭтаФорма - Форма - Форма, в которой начался процесс.
+//
+Процедура НачатьОчисткуБазыДанных(ЭтаФорма) Экспорт
+
+ ДопПараметры = Новый Структура();
+ ДопПараметры.Вставить("ЭтаФорма", ЭтаФорма);
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеПервыйВопросОбУдаленииДанных",
+ ОчисткаБазыДанныхКлиент, ДопПараметры);
+
+ ЗаголовокВопроса =
+ НСтр("ru = 'Удаление всех данных';
+ |en = 'Erase all content and settings'");
+
+ ТекстВопроса =
+ НСтр("ru = 'Все данные этого приложения будут полностью удалены.
+ |Продолжить удаление?';
+ |en = 'All content and settings will be erased
+ |Continue?'");
+
+ ВариантыВыбора = РежимДиалогаВопрос.ДаНет;
+ ВариантПоУмолчанию = КодВозвратаДиалога.Нет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора,,
+ ВариантПоУмолчанию, ЗаголовокВопроса);
+
+КонецПроцедуры
+
+// Обработчик решения пользователя на первое предупреждение, что все данные будут удалены.
+//
+// Параметры:
+// ОтветПользователя - КодВозвратаДиалога - Ответ пользователя на первый вопрос об удалении.
+// ДопПараметры - Структура, Неопределено - Доп. параметры передаваемые в процедуру.
+//
+Процедура ОбработатьРешениеПервыйВопросОбУдаленииДанных(ОтветПользователя, ДопПараметры) Экспорт
+
+ Если ОтветПользователя = КодВозвратаДиалога.Таймаут
+ Или ОтветПользователя = КодВозвратаДиалога.Нет Тогда
+ Возврат;
+ КонецЕсли;
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеВторойВопросОбУдаленииДанных",
+ ОчисткаБазыДанныхКлиент, ДопПараметры);
+
+ ЗаголовокВопроса =
+ НСтр("ru = 'Удаление всех данных';
+ |en = 'Erase all content and settings'");
+ ТекстВопроса =
+ НСтр("ru = 'Внимание! Все данные этого приложения будут безвозвратно удалены.
+ |Продолжить удаление?';
+ |en = 'All contents and settings will be irrevocably erased
+ |continue?'");
+
+ ВариантыВыбора = РежимДиалогаВопрос.ДаНет;
+ ВариантПоУмолчанию = КодВозвратаДиалога.Нет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора,,
+ ВариантПоУмолчанию, ЗаголовокВопроса);
+
+КонецПроцедуры
+
+// Обработчик решения пользователя на второе предупреждение, что все данные будут удалены.
+//
+// Параметры:
+// ОтветПользователя - КодВозвратаДиалога - Ответ пользователя на второй вопрос об удалении.
+// ДопПараметры - Структура, Неопределено - Доп. параметры передаваемые в процедуру.
+//
+Процедура ОбработатьРешениеВторойВопросОбУдаленииДанных(ОтветПользователя, ДопПараметры) Экспорт
+
+ Если ОтветПользователя = КодВозвратаДиалога.Таймаут
+ Или ОтветПользователя = КодВозвратаДиалога.Нет Тогда
+ Возврат;
+ КонецЕсли;
+
+ ОчисткаБазыДанныхВызовСервера.ОчиститьПринятыеДанные();
+
+ РежимСинхронизации = "ОтключитьУстройство";
+ ПараметрыЗапуска = Новый Структура();
+ ПараметрыЗапуска.Вставить("РежимСинхронизации", РежимСинхронизации);
+
+ Оповестить("НачатьСинхронизацию", ПараметрыЗапуска);
+
+ ОчисткаБазыДанныхВызовСервера.ДождатьсяОкончанияПроцессаОтключенияОтСервера(
+ РежимСинхронизации);
+
+ ОчисткаБазыДанныхВызовСервера.УдалитьВсеДанные();
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Полная очистка'; en = 'Full cleaning'"));
+
+ ОбработчикПредупрежденияПользователя =
+ Новый ОписаниеОповещения("ОбработатьПредупреждениеОбОкончанииПолногоУдаления",
+ ОчисткаБазыДанныхКлиент, ДопПараметры);
+
+ ЗаголовокПредупреждения =
+ НСтр("ru = 'Удаление всех данных';
+ |en = 'Erase all content and settings'");
+ ТекстПредупреждения =
+ НСтр("ru = 'Все данные успешно удалены.';
+ |en = 'All data are successfully cleared'");
+
+ ПоказатьПредупреждение(ОбработчикПредупрежденияПользователя,
+ ТекстПредупреждения,, ЗаголовокПредупреждения);
+
+КонецПроцедуры
+
+// Завершающие действия после удаления всех данных в базе.
+//
+// Параметры:
+// ДопПараметры - Структура, Неопределено - Доп. параметры передаваемые в процедуру.
+//
+Процедура ОбработатьПредупреждениеОбОкончанииПолногоУдаления(ДопПараметры) Экспорт
+
+ ЭтаФорма = ДопПараметры.ЭтаФорма;
+
+ Оповестить("ВыполненоПолноеУдаление");
+
+ ЭтаФорма.ПодключитьОбработчикОжидания("ЗакрытьФорму", 0.5, Истина);
+ ОбменКлиент.ПоказатьФормуНастройкиПодключения();
+
+КонецПроцедуры
+
+
+Процедура ПродолжитьОчисткуБазыДанных() Экспорт
+
+ ОбработчикВыбораПользователя =
+ Новый ОписаниеОповещения("ОбработатьРешениеВопросОПродолженииУдаленияДанных",
+ ОчисткаБазыДанныхКлиент);
+
+ ЗаголовокВопроса =
+ НСтр("ru = 'Удаление всех данных';
+ |en = 'Erase all content and settings'");
+
+ ТекстВопроса =
+ НСтр("ru = 'Процесс удаления данных был прерван.
+ |До завершения процесса работа в программе невозможна.
+ |Продолжить удаление?';
+ |en = 'Data deletion process has been interrupted.
+ |The app is unable to use until the process is finished.
+ |Continue?'");
+
+ ВариантыВыбора = РежимДиалогаВопрос.ДаНет;
+ ВариантПоУмолчанию = КодВозвратаДиалога.Нет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора,,
+ ВариантПоУмолчанию, ЗаголовокВопроса);
+
+КонецПроцедуры
+
+// Обработчик решения пользователя на второе предупреждение, что все данные будут удалены.
+//
+// Параметры:
+// ОтветПользователя - КодВозвратаДиалога - Ответ пользователя на второй вопрос об удалении.
+// ДопПараметры - Структура, Неопределено - Доп. параметры передаваемые в процедуру.
+//
+Процедура ОбработатьРешениеВопросОПродолженииУдаленияДанных(ОтветПользователя, ДопПараметры = Неопределено) Экспорт
+
+ Если ОтветПользователя = КодВозвратаДиалога.Таймаут
+ Или ОтветПользователя = КодВозвратаДиалога.Нет Тогда
+ ЗавершитьРаботуСистемы(Ложь);
+ Возврат;
+ КонецЕсли;
+
+ ОчисткаБазыДанныхВызовСервера.ОчиститьПринятыеДанные();
+
+ РежимСинхронизации = "ОтключитьУстройство";
+ ПараметрыЗапуска = Новый Структура();
+ ПараметрыЗапуска.Вставить("РежимСинхронизации", РежимСинхронизации);
+
+ Оповестить("НачатьСинхронизацию", ПараметрыЗапуска);
+
+ ОчисткаБазыДанныхВызовСервера.ДождатьсяОкончанияПроцессаОтключенияОтСервера(
+ РежимСинхронизации);
+
+ ОчисткаБазыДанныхВызовСервера.УдалитьВсеДанные();
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьИнформацию(
+ НСтр("ru = 'Полная очистка'; en = 'Full cleaning'"));
+
+ ЗаголовокПредупреждения =
+ НСтр("ru = 'Удаление всех данных';
+ |en = 'Erase all content and settings'");
+ ТекстПредупреждения =
+ НСтр("ru = 'Все данные успешно удалены.';
+ |en = 'All data are successfully cleared'");
+
+ ОбменКлиент.ПоказатьФормуНастройкиПодключения();
+
+ ПоказатьПредупреждение( , ТекстПредупреждения, , ЗаголовокПредупреждения);
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
new file mode 100644
index 0000000..7e525a6
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСHTMLВызовСервераПовтИсп
+
+
+ ru
+ Работа СHTMLВызов сервера повт исп
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DuringSession
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
new file mode 100644
index 0000000..7d912d4
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260\320\237\320\276\320\262\321\202\320\230\321\201\320\277/Ext/Module.bsl"
@@ -0,0 +1,698 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Возвращает соответствие для замены спецсимволов.
+//
+// Возвращаемое значение:
+// Соответствие - Соответствие кодов и имен спецсимволов.
+//
+Функция ПолучитьСпецСимволыВВидеПарыКодПредставление() Экспорт
+
+ Результат = Новый Соответствие;
+
+ Результат.Вставить(193 , "Aacute");
+ Результат.Вставить(225 , "aacute");
+ Результат.Вставить(226 , "acirc");
+ Результат.Вставить(194 , "Acirc");
+ Результат.Вставить(180 , "acute");
+ Результат.Вставить(230 , "aelig");
+ Результат.Вставить(198 , "AElig");
+ Результат.Вставить(192 , "Agrave");
+ Результат.Вставить(224 , "agrave");
+ Результат.Вставить(8501, "alefsym");
+ Результат.Вставить(913 , "Alpha");
+ Результат.Вставить(945 , "alpha");
+ Результат.Вставить(8743, "and");
+ Результат.Вставить(8736, "ang");
+ Результат.Вставить(229 , "aring");
+ Результат.Вставить(197 , "Aring");
+ Результат.Вставить(8776, "asymp");
+ Результат.Вставить(195 , "Atilde");
+ Результат.Вставить(227 , "atilde");
+ Результат.Вставить(196 , "Auml");
+ Результат.Вставить(228 , "auml");
+
+ Результат.Вставить(8222, "bdquo");
+ Результат.Вставить(914 , "Beta");
+ Результат.Вставить(946 , "beta");
+ Результат.Вставить(166 , "brvbar");
+ Результат.Вставить(8226, "bull");
+
+ Результат.Вставить(8745, "cap");
+ Результат.Вставить(199 , "Ccedil");
+ Результат.Вставить(231 , "ccedil");
+ Результат.Вставить(184 , "cedil");
+ Результат.Вставить(162 , "cent");
+ Результат.Вставить(967 , "chi");
+ Результат.Вставить(935 , "Chi");
+ Результат.Вставить(710 , "circ");
+ Результат.Вставить(9827, "clubs");
+ Результат.Вставить(8773, "cong");
+ Результат.Вставить(169 , "copy");
+ Результат.Вставить(8629, "crarr");
+ Результат.Вставить(8746, "cup");
+ Результат.Вставить(164 , "curren");
+
+ Результат.Вставить(8224, "dagger");
+ Результат.Вставить(8225, "Dagger");
+ Результат.Вставить(8659, "dArr");
+ Результат.Вставить(8595, "darr");
+ Результат.Вставить(176 , "deg");
+ Результат.Вставить(916 , "Delta");
+ Результат.Вставить(948 , "delta");
+ Результат.Вставить(9830, "diams");
+ Результат.Вставить(247 , "divide");
+
+ Результат.Вставить(233 , "eacute");
+ Результат.Вставить(201 , "Eacute");
+ Результат.Вставить(202 , "Ecirc");
+ Результат.Вставить(234 , "ecirc");
+ Результат.Вставить(232 , "egrave");
+ Результат.Вставить(200 , "Egrave");
+ Результат.Вставить(8709, "empty");
+ Результат.Вставить(8195, "emsp");
+ Результат.Вставить(8194, "ensp");
+ Результат.Вставить(949 , "epsilon");
+ Результат.Вставить(917 , "Epsilon");
+ Результат.Вставить(8801, "equiv");
+ Результат.Вставить(919 , "Eta");
+ Результат.Вставить(951 , "eta");
+ Результат.Вставить(240 , "eth");
+ Результат.Вставить(208 , "ETH");
+ Результат.Вставить(235 , "euml");
+ Результат.Вставить(203 , "Euml");
+ Результат.Вставить(8364, "euro");
+ Результат.Вставить(8707, "exist");
+
+ Результат.Вставить(402 , "fnof");
+ Результат.Вставить(8704, "forall");
+ Результат.Вставить(189 , "frac12");
+ Результат.Вставить(188 , "frac14");
+ Результат.Вставить(190 , "frac34");
+ Результат.Вставить(8260, "frasl");
+
+ Результат.Вставить(915 , "Gamma");
+ Результат.Вставить(947 , "gamma");
+ Результат.Вставить(8805, "ge");
+ Результат.Вставить(62 , "gt");
+
+ Результат.Вставить(8660, "hArr");
+ Результат.Вставить(8596, "harr");
+ Результат.Вставить(9829, "hearts");
+ Результат.Вставить(8230, "hellip");
+
+ Результат.Вставить(237 , "iacute");
+ Результат.Вставить(205 , "Iacute");
+ Результат.Вставить(238 , "icirc");
+ Результат.Вставить(206 , "Icirc");
+ Результат.Вставить(161 , "iexcl");
+ Результат.Вставить(204 , "Igrave");
+ Результат.Вставить(236 , "igrave");
+ Результат.Вставить(8465, "image");
+ Результат.Вставить(8734, "infin");
+ Результат.Вставить(8747, "int");
+ Результат.Вставить(921 , "Iota");
+ Результат.Вставить(953 , "iota");
+ Результат.Вставить(191 , "iquest");
+ Результат.Вставить(8712, "isin");
+ Результат.Вставить(207 , "Iuml");
+ Результат.Вставить(239 , "iuml");
+
+ Результат.Вставить(922 , "Kappa");
+ Результат.Вставить(954 , "kappa");
+
+ Результат.Вставить(955 , "lambda");
+ Результат.Вставить(923 , "Lambda");
+ Результат.Вставить(9001, "lang");
+ Результат.Вставить(171 , "laquo");
+ Результат.Вставить(8592, "larr");
+ Результат.Вставить(8656, "lArr");
+ Результат.Вставить(8968, "lceil");
+ Результат.Вставить(8220, "ldquo");
+ Результат.Вставить(8804, "le");
+ Результат.Вставить(8970, "lfloor");
+ Результат.Вставить(8727, "lowast");
+ Результат.Вставить(9674, "loz");
+ Результат.Вставить(8206, "lrm");
+ Результат.Вставить(8249, "lsaquo");
+ Результат.Вставить(8216, "lsquo");
+ Результат.Вставить(60 , "lt");
+
+ Результат.Вставить(175 , "macr");
+ Результат.Вставить(8212, "mdash");
+ Результат.Вставить(181 , "micro");
+ Результат.Вставить(183 , "middot");
+ Результат.Вставить(8722, "minus");
+ Результат.Вставить(924 , "Mu");
+ Результат.Вставить(956 , "mu");
+
+ Результат.Вставить(8711, "nabla");
+ Результат.Вставить(160 , "nbsp");
+ Результат.Вставить(8211, "ndash");
+ Результат.Вставить(8800, "ne");
+ Результат.Вставить(8715, "ni");
+ Результат.Вставить(172 , "not");
+ Результат.Вставить(8713, "notin");
+ Результат.Вставить(8836, "nsub");
+ Результат.Вставить(241 , "ntilde");
+ Результат.Вставить(209 , "Ntilde");
+ Результат.Вставить(925 , "Nu");
+ Результат.Вставить(957 , "nu");
+
+ Результат.Вставить(243 , "oacute");
+ Результат.Вставить(211 , "Oacute");
+ Результат.Вставить(212 , "Ocirc");
+ Результат.Вставить(244 , "ocirc");
+ Результат.Вставить(338 , "OElig");
+ Результат.Вставить(339 , "oelig");
+ Результат.Вставить(242 , "ograve");
+ Результат.Вставить(210 , "Ograve");
+ Результат.Вставить(8254, "oline");
+ Результат.Вставить(969 , "omega");
+ Результат.Вставить(937 , "Omega");
+ Результат.Вставить(927 , "Omicron");
+ Результат.Вставить(959 , "omicron");
+ Результат.Вставить(8853, "oplus");
+ Результат.Вставить(8744, "or");
+ Результат.Вставить(170 , "ordf");
+ Результат.Вставить(186 , "ordm");
+ Результат.Вставить(216 , "Oslash");
+ Результат.Вставить(248 , "oslash");
+ Результат.Вставить(213 , "Otilde");
+ Результат.Вставить(245 , "otilde");
+ Результат.Вставить(8855, "otimes");
+ Результат.Вставить(214 , "Ouml");
+ Результат.Вставить(246 , "ouml");
+
+ Результат.Вставить(182 , "para");
+ Результат.Вставить(8706, "part");
+ Результат.Вставить(8240, "permil");
+ Результат.Вставить(8869, "perp");
+ Результат.Вставить(966 , "phi");
+ Результат.Вставить(934 , "Phi");
+ Результат.Вставить(928 , "Pi");
+ Результат.Вставить(960 , "pi");
+ Результат.Вставить(982 , "piv");
+ Результат.Вставить(177 , "plusmn");
+ Результат.Вставить(163 , "pound");
+ Результат.Вставить(8243, "Prime");
+ Результат.Вставить(8242, "prime");
+ Результат.Вставить(8719, "prod");
+ Результат.Вставить(8733, "prop");
+ Результат.Вставить(968 , "psi");
+ Результат.Вставить(936 , "Psi");
+
+ Результат.Вставить(34 , "quot");
+
+ Результат.Вставить(8730, "radic");
+ Результат.Вставить(9002, "rang");
+ Результат.Вставить(187 , "raquo");
+ Результат.Вставить(8658, "rArr");
+ Результат.Вставить(8594, "rarr");
+ Результат.Вставить(8969, "rceil");
+ Результат.Вставить(8221, "rdquo");
+ Результат.Вставить(8476, "real");
+ Результат.Вставить(174 , "reg");
+ Результат.Вставить(8971, "rfloor");
+ Результат.Вставить(929 , "Rho");
+ Результат.Вставить(961 , "rho");
+ Результат.Вставить(8207, "rlm");
+ Результат.Вставить(8250, "rsaquo");
+ Результат.Вставить(8217, "rsquo");
+
+ Результат.Вставить(8218, "sbquo");
+ Результат.Вставить(352 , "Scaron");
+ Результат.Вставить(353 , "scaron");
+ Результат.Вставить(8901, "sdot");
+ Результат.Вставить(167 , "sect");
+ Результат.Вставить(173 , "shy");
+ Результат.Вставить(931 , "Sigma");
+ Результат.Вставить(963 , "sigma");
+ Результат.Вставить(962 , "sigmaf");
+ Результат.Вставить(8764, "sim");
+ Результат.Вставить(9824, "spades");
+ Результат.Вставить(8834, "sub");
+ Результат.Вставить(8838, "sube");
+ Результат.Вставить(8721, "sum");
+ Результат.Вставить(8835, "sup");
+ Результат.Вставить(185 , "sup1");
+ Результат.Вставить(178 , "sup2");
+ Результат.Вставить(179 , "sup3");
+ Результат.Вставить(8839, "supe");
+ Результат.Вставить(223 , "szlig");
+
+ Результат.Вставить(932 , "Tau");
+ Результат.Вставить(964 , "tau");
+ Результат.Вставить(8756, "there4");
+ Результат.Вставить(920 , "Theta");
+ Результат.Вставить(952 , "theta");
+ Результат.Вставить(977 , "thetasym");
+ Результат.Вставить(8201, "thinsp");
+ Результат.Вставить(222 , "THORN");
+ Результат.Вставить(254 , "thorn");
+ Результат.Вставить(732 , "tilde");
+ Результат.Вставить(215 , "times");
+ Результат.Вставить(8482, "trade");
+
+ Результат.Вставить(250 , "uacute");
+ Результат.Вставить(218 , "Uacute");
+ Результат.Вставить(8657, "uArr");
+ Результат.Вставить(8593, "uarr");
+ Результат.Вставить(251 , "ucirc");
+ Результат.Вставить(219 , "Ucirc");
+ Результат.Вставить(217 , "Ugrave");
+ Результат.Вставить(249 , "ugrave");
+ Результат.Вставить(168 , "uml");
+ Результат.Вставить(978 , "upsih");
+ Результат.Вставить(965 , "upsilon");
+ Результат.Вставить(933 , "Upsilon");
+ Результат.Вставить(252 , "uuml");
+ Результат.Вставить(220 , "Uuml");
+
+ Результат.Вставить(8472, "weierp");
+
+ Результат.Вставить(958 , "xi");
+ Результат.Вставить(926 , "Xi");
+
+ Результат.Вставить(253 , "yacute");
+ Результат.Вставить(221 , "Yacute");
+ Результат.Вставить(165 , "yen");
+ Результат.Вставить(255 , "yuml");
+ Результат.Вставить(376 , "Yuml");
+
+ Результат.Вставить(918 , "Zeta");
+ Результат.Вставить(950 , "zeta");
+ Результат.Вставить(8205, "zwj");
+ Результат.Вставить(8204, "zwnj");
+
+ Возврат Результат;
+
+КонецФункции
+
+// Возвращает соответствие для обратной замены спецсимволов.
+//
+// Возвращаемое значение:
+// Соответствие - Соответствие имен спецсимволов и их кодов.
+//
+Функция ПолучитьОбратноеСоответствиеСпецСимволов() Экспорт
+
+ Результат = Новый Соответствие;
+
+ Результат.Вставить("Aacute" , 193);
+ Результат.Вставить("aacute" , 225);
+ Результат.Вставить("acirc" , 226);
+ Результат.Вставить("Acirc" , 194);
+ Результат.Вставить("acute" , 180);
+ Результат.Вставить("aelig" , 230);
+ Результат.Вставить("AElig" , 198);
+ Результат.Вставить("Agrave" , 192);
+ Результат.Вставить("agrave" , 224);
+ Результат.Вставить("alefsym", 8501);
+ Результат.Вставить("Alpha" , 913);
+ Результат.Вставить("alpha" , 945);
+ Результат.Вставить("and" , 8743);
+ Результат.Вставить("ang" , 8736);
+ Результат.Вставить("aring" , 229);
+ Результат.Вставить("Aring" , 197);
+ Результат.Вставить("asymp" , 8776);
+ Результат.Вставить("Atilde" , 195);
+ Результат.Вставить("atilde" , 227);
+ Результат.Вставить("Auml" , 196);
+ Результат.Вставить("auml" , 228);
+
+ Результат.Вставить("bdquo" , 8222);
+ Результат.Вставить("Beta" , 914);
+ Результат.Вставить("beta" , 946);
+ Результат.Вставить("brvbar", 166);
+ Результат.Вставить("bull" , 8226);
+
+ Результат.Вставить("cap" , 8745);
+ Результат.Вставить("Ccedil", 199);
+ Результат.Вставить("ccedil", 231);
+ Результат.Вставить("cedil" , 184);
+ Результат.Вставить("cent" , 162);
+ Результат.Вставить("chi" , 967);
+ Результат.Вставить("Chi" , 935);
+ Результат.Вставить("circ" , 710);
+ Результат.Вставить("clubs" , 9827);
+ Результат.Вставить("cong" , 8773);
+ Результат.Вставить("copy" , 169);
+ Результат.Вставить("crarr" , 8629);
+ Результат.Вставить("cup" , 8746);
+ Результат.Вставить("curren", 164);
+
+ Результат.Вставить("dagger", 8224);
+ Результат.Вставить("Dagger", 8225);
+ Результат.Вставить("dArr" , 8659);
+ Результат.Вставить("darr" , 8595);
+ Результат.Вставить("deg" , 176);
+ Результат.Вставить("Delta" , 916);
+ Результат.Вставить("delta" , 948);
+ Результат.Вставить("diams" , 9830);
+ Результат.Вставить("divide", 247);
+
+ Результат.Вставить("eacute" , 233);
+ Результат.Вставить("Eacute" , 201);
+ Результат.Вставить("Ecirc" , 202);
+ Результат.Вставить("ecirc" , 234);
+ Результат.Вставить("egrave" , 232);
+ Результат.Вставить("Egrave" , 200);
+ Результат.Вставить("empty" , 8709);
+ Результат.Вставить("emsp" , 8195);
+ Результат.Вставить("ensp" , 8194);
+ Результат.Вставить("epsilon", 949);
+ Результат.Вставить("Epsilon", 917);
+ Результат.Вставить("equiv" , 8801);
+ Результат.Вставить("Eta" , 919);
+ Результат.Вставить("eta" , 951);
+ Результат.Вставить("eth" , 240);
+ Результат.Вставить("ETH" , 208);
+ Результат.Вставить("euml" , 235);
+ Результат.Вставить("Euml" , 203);
+ Результат.Вставить("euro" , 8364);
+ Результат.Вставить("exist" , 8707);
+
+ Результат.Вставить("fnof" , 402);
+ Результат.Вставить("forall", 8704);
+ Результат.Вставить("frac12", 189);
+ Результат.Вставить("frac14", 188);
+ Результат.Вставить("frac34", 190);
+ Результат.Вставить("frasl" , 8260);
+
+ Результат.Вставить("Gamma", 915);
+ Результат.Вставить("gamma", 947);
+ Результат.Вставить("ge" , 8805);
+ Результат.Вставить("gt" , 62);
+
+ Результат.Вставить("hArr" , 8660);
+ Результат.Вставить("harr" , 8596);
+ Результат.Вставить("hearts", 9829);
+ Результат.Вставить("hellip", 8230);
+
+ Результат.Вставить("iacute", 237);
+ Результат.Вставить("Iacute", 205);
+ Результат.Вставить("icirc" , 238);
+ Результат.Вставить("Icirc" , 206);
+ Результат.Вставить("iexcl" , 161);
+ Результат.Вставить("Igrave", 204);
+ Результат.Вставить("igrave", 236);
+ Результат.Вставить("image" , 8465);
+ Результат.Вставить("infin" , 8734);
+ Результат.Вставить("int" , 8747);
+ Результат.Вставить("Iota" , 921);
+ Результат.Вставить("iota" , 953);
+ Результат.Вставить("iquest", 191);
+ Результат.Вставить("isin" , 8712);
+ Результат.Вставить("Iuml" , 207);
+ Результат.Вставить("iuml" , 239);
+ Результат.Вставить("Kappa" , 922);
+ Результат.Вставить("kappa" , 954);
+
+ Результат.Вставить("lambda", 955);
+ Результат.Вставить("Lambda", 923);
+ Результат.Вставить("lang" , 9001);
+ Результат.Вставить("laquo" , 171);
+ Результат.Вставить("larr" , 8592);
+ Результат.Вставить("lArr" , 8656);
+ Результат.Вставить("lceil" , 8968);
+ Результат.Вставить("ldquo" , 8220);
+ Результат.Вставить("le" , 8804);
+ Результат.Вставить("lfloor", 8970);
+ Результат.Вставить("lowast", 8727);
+ Результат.Вставить("loz" , 9674);
+ Результат.Вставить("lrm" , 8206);
+ Результат.Вставить("lsaquo", 8249);
+ Результат.Вставить("lsquo" , 8216);
+ Результат.Вставить("lt" , 60);
+
+ Результат.Вставить("macr" , 175);
+ Результат.Вставить("mdash" , 8212);
+ Результат.Вставить("micro" , 181);
+ Результат.Вставить("middot", 183);
+ Результат.Вставить("minus" , 8722);
+ Результат.Вставить("Mu" , 924);
+ Результат.Вставить("mu" , 956);
+
+ Результат.Вставить("nabla" , 8711);
+ Результат.Вставить("nbsp" , 160);
+ Результат.Вставить("ndash" , 8211);
+ Результат.Вставить("ne" , 8800);
+ Результат.Вставить("ni" , 8715);
+ Результат.Вставить("not" , 172);
+ Результат.Вставить("notin" , 8713);
+ Результат.Вставить("nsub" , 8836);
+ Результат.Вставить("ntilde", 241);
+ Результат.Вставить("Ntilde", 209);
+ Результат.Вставить("Nu" , 925);
+ Результат.Вставить("nu" , 957);
+
+ Результат.Вставить("oacute" , 243);
+ Результат.Вставить("Oacute" , 211);
+ Результат.Вставить("Ocirc" , 212);
+ Результат.Вставить("ocirc" , 244);
+ Результат.Вставить("OElig" , 338);
+ Результат.Вставить("oelig" , 339);
+ Результат.Вставить("ograve" , 242);
+ Результат.Вставить("Ograve" , 210);
+ Результат.Вставить("oline" , 8254);
+ Результат.Вставить("omega" , 969);
+ Результат.Вставить("Omega" , 937);
+ Результат.Вставить("Omicron", 927);
+ Результат.Вставить("omicron", 959);
+ Результат.Вставить("oplus" , 8853);
+ Результат.Вставить("or" , 8744);
+ Результат.Вставить("ordf" , 170);
+ Результат.Вставить("ordm" , 186);
+ Результат.Вставить("Oslash" , 216);
+ Результат.Вставить("oslash" , 248);
+ Результат.Вставить("Otilde" , 213);
+ Результат.Вставить("otilde" , 245);
+ Результат.Вставить("otimes" , 8855);
+ Результат.Вставить("Ouml" , 214);
+ Результат.Вставить("ouml" , 246);
+
+ Результат.Вставить("para" , 182);
+ Результат.Вставить("part" , 8706);
+ Результат.Вставить("permil", 8240);
+ Результат.Вставить("perp" , 8869);
+ Результат.Вставить("phi" , 966);
+ Результат.Вставить("Phi" , 934);
+ Результат.Вставить("Pi" , 928);
+ Результат.Вставить("pi" , 960);
+ Результат.Вставить("piv" , 982);
+ Результат.Вставить("plusmn", 177);
+ Результат.Вставить("pound" , 163);
+ Результат.Вставить("Prime" , 8243);
+ Результат.Вставить("prime" , 8242);
+ Результат.Вставить("prod" , 8719);
+ Результат.Вставить("prop" , 8733);
+ Результат.Вставить("psi" , 968);
+ Результат.Вставить("Psi" , 936);
+
+ Результат.Вставить("quot" , 34);
+
+ Результат.Вставить("radic" , 8730);
+ Результат.Вставить("rang" , 9002);
+ Результат.Вставить("raquo" , 187);
+ Результат.Вставить("rArr" , 8658);
+ Результат.Вставить("rarr" , 8594);
+ Результат.Вставить("rceil" , 8969);
+ Результат.Вставить("rdquo" , 8221);
+ Результат.Вставить("real" , 8476);
+ Результат.Вставить("reg" , 174);
+ Результат.Вставить("rfloor", 8971);
+ Результат.Вставить("Rho" , 929);
+ Результат.Вставить("rho" , 961);
+ Результат.Вставить("rlm" , 8207);
+ Результат.Вставить("rsaquo", 8250);
+ Результат.Вставить("rsquo" , 8217);
+
+ Результат.Вставить("sbquo" , 8218);
+ Результат.Вставить("Scaron", 352);
+ Результат.Вставить("scaron", 353);
+ Результат.Вставить("sdot" , 8901);
+ Результат.Вставить("sect" , 167);
+ Результат.Вставить("shy" , 173);
+ Результат.Вставить("Sigma" , 931);
+ Результат.Вставить("sigma" , 963);
+ Результат.Вставить("sigmaf", 962);
+ Результат.Вставить("sim" , 8764);
+ Результат.Вставить("spades", 9824);
+ Результат.Вставить("sub" , 8834);
+ Результат.Вставить("sube" , 8838);
+ Результат.Вставить("sum" , 8721);
+ Результат.Вставить("sup" , 8835);
+ Результат.Вставить("sup1" , 185);
+ Результат.Вставить("sup2" , 178);
+ Результат.Вставить("sup3" , 179);
+ Результат.Вставить("supe" , 8839);
+ Результат.Вставить("szlig" , 223);
+
+ Результат.Вставить("Tau" , 932);
+ Результат.Вставить("tau" , 964);
+ Результат.Вставить("there4" , 8756);
+ Результат.Вставить("Theta" , 920);
+ Результат.Вставить("theta" , 952);
+ Результат.Вставить("thetasym", 977);
+ Результат.Вставить("thinsp" , 8201);
+ Результат.Вставить("THORN" , 222);
+ Результат.Вставить("thorn" , 254);
+ Результат.Вставить("tilde" , 732);
+ Результат.Вставить("times" , 215);
+ Результат.Вставить("trade" , 8482);
+
+ Результат.Вставить("uacute" , 250);
+ Результат.Вставить("Uacute" , 218);
+ Результат.Вставить("uArr" , 8657);
+ Результат.Вставить("uarr" , 8593);
+ Результат.Вставить("ucirc" , 251);
+ Результат.Вставить("Ucirc" , 219);
+ Результат.Вставить("Ugrave" , 217);
+ Результат.Вставить("ugrave" , 249);
+ Результат.Вставить("uml" , 168);
+ Результат.Вставить("upsih" , 978);
+ Результат.Вставить("upsilon", 965);
+ Результат.Вставить("Upsilon", 933);
+ Результат.Вставить("uuml" , 252);
+ Результат.Вставить("Uuml" , 220);
+
+ Результат.Вставить("weierp", 8472);
+
+ Результат.Вставить("xi", 958);
+ Результат.Вставить("Xi", 926);
+
+ Результат.Вставить("yacute", 253);
+ Результат.Вставить("Yacute", 221);
+ Результат.Вставить("yen" , 165);
+ Результат.Вставить("yuml" , 255);
+ Результат.Вставить("Yuml" , 376);
+
+ Результат.Вставить("Zeta", 918);
+ Результат.Вставить("zeta", 950);
+ Результат.Вставить("zwj" , 8205);
+ Результат.Вставить("zwnj", 8204);
+
+ Возврат Результат;
+
+КонецФункции
+
+// Возвращает список допустимых в URI спецсимволов.
+//
+// Возвращаемое значение:
+// СписокЗначений - Список допустимых спецсимволов.
+//
+Функция ДопустимыеВURIСпецСимволы() Экспорт
+
+ СписокДопустимыхСпецСимволов = Новый СписокЗначений;
+
+ СписокДопустимыхСпецСимволов.Добавить("amp");
+ СписокДопустимыхСпецСимволов.Добавить("quot");
+ СписокДопустимыхСпецСимволов.Добавить("gt");
+ СписокДопустимыхСпецСимволов.Добавить("lt");
+
+ Возврат СписокДопустимыхСпецСимволов;
+
+КонецФункции
+
+// Возвращает список значимых в URI спецсимволов.
+//
+// Возвращаемое значение:
+// СписокЗначений - Список допустимых спецсимволов.
+//
+Функция ЗначимыеВURIСпецСимволы() Экспорт
+
+ СписокДопустимыхСпецСимволов = Новый СписокЗначений;
+
+ СписокДопустимыхСпецСимволов.Добавить("quot");
+
+ Возврат СписокДопустимыхСпецСимволов;
+
+КонецФункции
+
+// Возвращает список ограничителей, используемых в URI.
+//
+// Возвращаемое значение:
+// СписокЗначений - Список ограничителей URI.
+//
+Функция СписокОграничителейURI() Экспорт
+
+ СписокОграничителейURI = Новый СписокЗначений;
+
+ // Основные разделители
+ СписокОграничителейURI.Добавить(":");
+ СписокОграничителейURI.Добавить("?");
+ СписокОграничителейURI.Добавить("#");
+ СписокОграничителейURI.Добавить("[");
+ СписокОграничителейURI.Добавить("]");
+ СписокОграничителейURI.Добавить("@");
+
+ // Побочные разделители
+ СписокОграничителейURI.Добавить("!");
+ СписокОграничителейURI.Добавить("$");
+ СписокОграничителейURI.Добавить("&");
+ СписокОграничителейURI.Добавить("'");
+ СписокОграничителейURI.Добавить("(");
+ СписокОграничителейURI.Добавить(")");
+ СписокОграничителейURI.Добавить("*");
+ СписокОграничителейURI.Добавить("+");
+ СписокОграничителейURI.Добавить(",");
+ СписокОграничителейURI.Добавить(";");
+ СписокОграничителейURI.Добавить("=");
+
+ // Незарезервированные символы
+ СписокОграничителейURI.Добавить("-");
+ СписокОграничителейURI.Добавить(".");
+ СписокОграничителейURI.Добавить("_");
+ СписокОграничителейURI.Добавить("~");
+
+ // Кодирующий символ
+ СписокОграничителейURI.Добавить("%");
+
+ // Дополнительный символ
+ СписокОграничителейURI.Добавить("|");
+ СписокОграничителейURI.Добавить("^");
+
+ Возврат СписокОграничителейURI;
+
+КонецФункции
+
+// Список ограничений HTML, которые могут стоять перед ссылкой
+// > - закрытие какого-либо тега перед ссылкой.
+//
+// Возвращаемое значение:
+// СписокЗначений - Список допустимых имен.
+//
+Функция СписокДопустимыхВСсылкеТегов() Экспорт
+
+ СписокДопустимыхВСсылкеТегов = Новый СписокЗначений;
+
+ СписокДопустимыхВСсылкеТегов.Добавить("FONT");
+ СписокДопустимыхВСсылкеТегов.Добавить("SPAN");
+ СписокДопустимыхВСсылкеТегов.Добавить("STRONG");
+ СписокДопустимыхВСсылкеТегов.Добавить("EM");
+ СписокДопустимыхВСсылкеТегов.Добавить("B");
+ СписокДопустимыхВСсылкеТегов.Добавить("I");
+ СписокДопустимыхВСсылкеТегов.Добавить("U");
+
+ Возврат СписокДопустимыхВСсылкеТегов;
+
+КонецФункции
+
+// Возвращает все списки со специальными символами за один вызов сервера.
+//
+// Возвращаемое значение:
+// Структура - Структура, содержащая списки специальных символов.
+//
+Функция ПолучитьСпискиСимволов() Экспорт
+
+ Списки = Новый Структура();
+ Списки.Вставить("ДопустимыеВURIСпецСимволы", ДопустимыеВURIСпецСимволы());
+ Списки.Вставить("ЗначимыеВURIСпецСимволы", ЗначимыеВURIСпецСимволы());
+ Списки.Вставить("ОбратноеСоответствиеСпецСимволов", ПолучитьОбратноеСоответствиеСпецСимволов());
+ Списки.Вставить("СписокДопустимыхВСсылкеТегов", СписокДопустимыхВСсылкеТегов());
+
+ Возврат Списки;
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..438c579
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСHTMLКлиент
+
+
+ ru
+ Работа СHTMLКлиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..1c76225
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,45 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Обработчик открытия гиперссылки в тексте письма.
+//
+// Параметры:
+// Гиперссылка - Строка - Анализируемая гиперссылка;
+// СтандартнаяОбработка - Булево - Признак стандартной обработки;
+// Объект - СправочникСсылка.Файлы - Ссылка на открываемый файл.
+//
+Процедура ОткрытьСсылку(Гиперссылка, СтандартнаяОбработка, Объект = Неопределено) Экспорт
+
+ Если Не ЗначениеЗаполнено(Гиперссылка) Тогда
+ Возврат;
+ КонецЕсли;
+
+ СтандартнаяОбработка = Ложь;
+
+ СхемаСсылки = РаботаСHTMLКлиентСервер.ОпределитьСхемуСсылки(Гиперссылка);
+
+ Если СхемаСсылки = "v8doc:"
+ И СтрНайти(Гиперссылка, "mailattachment") > 0 Тогда
+
+ ЧастиСсылки = СтрРазделить(Гиперссылка, "/");
+ НомерВложения = Число(ЧастиСсылки[ЧастиСсылки.Количество()-1]);
+ ИмяФайла = ОбщегоНазначенияВызовСервера.ПолучитьИмяВременногоФайлаДляВложения(Объект);
+
+ РаботаСФайламиИПредметамиКлиент.ЗапуститьПриложениеПоИмениФайла(ИмяФайла);
+
+ ИначеЕсли СхемаСсылки = "http://"
+ Или СхемаСсылки = "https://"
+ Или СхемаСсылки = "ftp://" Тогда
+
+ ЗапуститьПриложение(Гиперссылка);
+
+ ИначеЕсли СхемаСсылки = "mailto:" Тогда
+ // РаботаСПочтойКлиент.СоздатьПисьмоНаОснованииСсылкиMailto(Гиперссылка);
+
+ Иначе
+ СтандартнаяОбработка = Истина;
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..0da1fcc
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСHTMLКлиентСервер
+
+
+ ru
+ Работа СHTMLКлиент сервер
+
+
+
+ false
+ true
+ true
+ true
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..a9051bc
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241HTML\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,1350 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Определяет схему ссылки.
+//
+// Параметры:
+// Href - Строка - Проверяемая ссылка.
+//
+// Возвращаемое значение:
+// Строка - Схема ссылки.
+//
+Функция ОпределитьСхемуСсылки(Href) Экспорт
+
+ Если СтрокаНачинаетсяСПодстроки(Href, "v8doc:") Тогда
+ Возврат "v8doc:";
+
+ ИначеЕсли СтрокаНачинаетсяСПодстроки(Href, "http://") Тогда
+ Возврат "http://";
+
+ ИначеЕсли СтрокаНачинаетсяСПодстроки(Href, "https://") Тогда
+ Возврат "https://";
+
+ ИначеЕсли СтрокаНачинаетсяСПодстроки(Href, "ftp://") Тогда
+ Возврат "ftp://";
+
+ ИначеЕсли СтрокаНачинаетсяСПодстроки(Href, "mailto:") Тогда
+ Возврат "mailto:";
+
+ Иначе
+ Возврат "";
+
+ КонецЕсли;
+
+КонецФункции
+
+// Заменяет в строке все спецсимволы на соответствующие им имена,
+// Возвращает измененную строку.
+//
+// Параметры:
+// Строка - Строка - Анализируемая строка;
+// СпецСимволыСоотв - Соответствие - Список спец символов, которые нужно заменить.
+//
+// Возвращаемое значение:
+// Строка - Преобразованная исходная строка.
+//
+Функция ЗаменитьСпецСимволыHTML(Строка, СпецСимволыСоотв = Неопределено) Экспорт
+
+ СоответствиеСпецСимволов = РаботаСHTMLВызовСервераПовтИсп.ПолучитьСпецСимволыВВидеПарыКодПредставление();
+
+ ЗаменитьСпецСимволHTML(Строка, 38, "amp");
+
+ НоваяСтрока = Строка;
+ Для Каждого Пара Из СоответствиеСпецСимволов Цикл
+ НоваяСтрока = СтрЗаменить(Строка, Пара.Ключ, "&" + Пара.Значение + ";");
+ КонецЦикла;
+
+ Строка = НоваяСтрока;
+
+ Возврат Строка;
+
+КонецФункции
+
+// Заменяет в строке все имена спецсимволов на соответствующие им спецсимволы,
+// Возвращает измененную строку.
+//
+// Параметры:
+// Строка - Строка - Анализируемая строка;
+// СпецСимволыСоотв - Соответствие - Список спец символов, которые нужно заменить.
+//
+// Возвращаемое значение:
+// Строка - Преобразованная исходная строка.
+//
+Функция ЗаменитьСпецСимволыHTMLОбратно(Строка, СпецСимволыСоотв = Неопределено) Экспорт
+
+ ОбратноеСоответствиеСпецСимволов =
+ РаботаСHTMLВызовСервераПовтИсп.ПолучитьСпецСимволыВВидеПарыКодПредставление();
+
+ ЗаменитьСпецСимволHTMLОбратно(Строка, 38, "amp");
+
+ Для Каждого СпецСимвол Из ОбратноеСоответствиеСпецСимволов Цикл
+ Строка = СтрЗаменить(Строка, "&" + СпецСимвол.Значение + ";", Символ(СпецСимвол.Ключ));
+ КонецЦикла;
+
+ Возврат Строка;
+
+КонецФункции
+
+// Заменяет символы табуляции и пробелов на символ неразрывного пробела
+//
+// Параметры:
+// Строка - Строка - Изменяемая строка HTML текста.
+//
+Процедура ЗаменитьТабуляцииИПробелы(Строка) Экспорт
+
+ Строка = СтрЗаменить(Строка, Символы.ВТаб, " ");
+ Строка = СтрЗаменить(Строка, Символы.Таб, " ");
+ Строка = СтрЗаменить(Строка, " ", Символы.НПП + " ");
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+ Строка = СтрЗаменить(Строка, Символы.НПП + " " + Символы.НПП, Символы.НПП + Символы.НПП + Символы.НПП);
+
+КонецПроцедуры
+
+// Добавляет теги ко всем ссылкам, находящимся в строке.
+// Обрабатываются следующие схемы обращения к ресурсу:
+// http://, https://, ftp://, mailto:, file://, file:, e1c://, e1cib/
+// Кроме того обрабатываются с использованием схемы http:// ссылки начинающиеся с www. без схемы.
+//
+// Параметры:
+// ТекстHTML - Строка - Преобразуемый HTML текст.
+//
+Процедура ДобавитьТегиКСсылкам(ТекстHTML) Экспорт
+
+ // Ссылки со схемой
+ ДобавитьТегиКСсылкамСоСхемой(ТекстHTML, "http://");
+ ДобавитьТегиКСсылкамСоСхемой(ТекстHTML, "https://");
+ ДобавитьТегиКСсылкамСоСхемой(ТекстHTML, "ftp://");
+
+ // Ссылки без схемы
+ ДобавитьТегиКСсылкамСоСхемой(ТекстHTML, "www.", "http://www.");
+ ДобавитьТегиКСсылкамСоСхемой(ТекстHTML, "mailto:");
+
+ // Заполнить title у ссылок
+ ЗаполнитьСвойствоTitleУСсылок(ТекстHTML);
+
+КонецПроцедуры
+
+// Проверяет нахождение переданной позиции внутри тега (в параметрах или содержании)
+// Если тег не закрыт, то проверяет только в параметрах тега.
+//
+// Параметры:
+// ТекстHTML - Строка - Анализируемый HTML текст;
+// НазваниеЭлемента - Строка - Название искомого элемента;
+// Позиция - Число - Начальная позиция, с которой необходимо искать тег;
+// Тег - Строка - HTML тег.
+//
+// Возвращаемое значение:
+// Булево - Истина, если искомая позиция находится по тексту внутри указанного тега.
+//
+Функция ПозицияНаходитсяВТеге(ТекстHTML, НазваниеЭлемента, Позиция, Тег = Неопределено) Экспорт
+
+ НачалоОткрывающегоТега = "<" + НРег(НазваниеЭлемента);
+ ДлинаОткрывающегоТега = СтрДлина(НачалоОткрывающегоТега);
+ ПозицияНаходитсяВТеге = Ложь;
+
+ НачалоТекстаHTML = Лев(НРег(ТекстHTML), Позиция - 1);
+ НайденнаяПозицияНачалаОткрывающегоТега = 0;
+ ПозицияОкончанияОткрывающегоТега = 0;
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(НачалоТекстаHTML, НачалоОткрывающегоТега);
+ Пока ПозицияНачалаОткрывающегоТега <> 0 Цикл
+
+ НачалоТекстаHTML = Сред(НачалоТекстаHTML, ПозицияНачалаОткрывающегоТега + 1);
+ НайденнаяПозицияНачалаОткрывающегоТега =
+ НайденнаяПозицияНачалаОткрывающегоТега
+ + ПозицияОкончанияОткрывающегоТега
+ + ПозицияНачалаОткрывающегоТега;
+
+ ПозицияОкончанияОткрывающегоТега = СтрНайти(НачалоТекстаHTML, ">");
+ Если ПозицияОкончанияОткрывающегоТега <> 0 Тогда
+ НачалоТекстаHTML = Сред(НачалоТекстаHTML, ПозицияОкончанияОткрывающегоТега + 1);
+ КонецЕсли;
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(НачалоТекстаHTML, НачалоОткрывающегоТега);
+
+ КонецЦикла;
+
+ Если НайденнаяПозицияНачалаОткрывающегоТега <> 0 Тогда
+
+ // Если есть незакрытый открывающий тег до искомой позиции, ищем тег в исходном тексте HTML.
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, НазваниеЭлемента, НайденнаяПозицияНачалаОткрывающегоТега);
+
+ Если ЗаполненаСтруктураТега(Тег) Тогда
+
+ Если Позиция > Тег.ПозицияНачалаТега И Позиция < Тег.ПозицияОкончанияТега Тогда
+ ПозицияНаходитсяВТеге = Истина;
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Возврат ПозицияНаходитсяВТеге;
+
+КонецФункции
+
+// Возвращает пустое HTML представление.
+//
+// Возвращаемое значение:
+// Строка - Пустой HTML документ.
+//
+Функция ПолучитьПустоеHTMLПредставление() Экспорт
+
+ Возврат "";
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Проверяет, содержит ли ссылка схему
+//
+Функция СтрокаНачинаетсяСПодстроки(Строка, Подстрока)
+
+ Возврат (Найти(НРег(СокрЛ(Строка)), НРег(Подстрока)) = 1);
+
+КонецФункции
+
+Процедура ЗаменитьСпецСимволHTML(Строка, КодСимвола, ИмяСимвола)
+
+ Строка = СтрЗаменить(Строка, Символ(КодСимвола), "&" + ИмяСимвола + ";");
+
+КонецПроцедуры
+
+Процедура ЗаменитьСпецСимволHTMLОбратно(Строка, КодСимвола, ИмяСимвола)
+
+ Строка = СтрЗаменить(Строка, "&" + ИмяСимвола + ";", Символ(КодСимвола));
+
+КонецПроцедуры
+
+// Добавляет тег в конкретную позицию. Меняет значение Строка и Смещение.
+//
+Процедура ДобавитьТегСсылки(
+ Строка,
+ НачальнаяПозиция,
+ КонечнаяПозиция,
+ Схема,
+ НовоеЗначениеСхемы,
+ Смещение,
+ ОбрезатьГраничныеСимволыСсылки = Ложь,
+ СимволПередСсылкой = "",
+ СимволКонцаСсылки = "")
+
+ НачалоСтроки = Лев(Строка, Смещение + НачальнаяПозиция - 1);
+
+ ЕстьИмяСсылка = Ложь;
+ Если СтрЗаканчиваетсяНа(НачалоСтроки, "Ссылка: ") Тогда
+ НачалоСтроки = Лев(НачалоСтроки, СтрДлина(НачалоСтроки)-8);
+ ЕстьИмяСсылка = Истина;
+ КонецЕсли;
+
+ // Обрезание граничных символов
+ Если ОбрезатьГраничныеСимволыСсылки Тогда
+ Ссылка = Сред(Строка,
+ Смещение + НачальнаяПозиция + СтрДлина(СимволПередСсылкой),
+ КонечнаяПозиция - НачальнаяПозиция - СтрДлина(СимволПередСсылкой) - СтрДлина(СимволКонцаСсылки));
+ Иначе
+ Ссылка = Сред(Строка, Смещение + НачальнаяПозиция, КонечнаяПозиция - НачальнаяПозиция);
+ КонецЕсли;
+
+ Если ЕстьИмяСсылка Тогда
+ ПредставлениеСсылки = НСтр("ru = 'Ссылка'; en = 'Tap here'");
+ Иначе
+ ПредставлениеСсылки = Ссылка;
+ КонецЕсли;
+ КонецСтроки = Прав(Строка, СтрДлина(Строка) - (Смещение + КонечнаяПозиция - 1));
+
+ // Замены схемы в ссылке при необходимости, например "www." => "http://www."
+ Если ЗначениеЗаполнено(НовоеЗначениеСхемы) Тогда
+
+ ДлинаСхемы = СтрДлина(Схема);
+ СхемаВСсылке = Лев(Ссылка, ДлинаСхемы);
+
+ Если НРег(Схема) = НРег(СхемаВСсылке) Тогда
+ Ссылка = НовоеЗначениеСхемы + Сред(Ссылка, ДлинаСхемы + 1);
+ КонецЕсли;
+
+ КонецЕсли;
+
+ // Удаление тегов из ссылки
+ ПозицияНачалаОткрывающегоТега = СтрНайти(Ссылка, "<");
+ Пока ПозицияНачалаОткрывающегоТега <> 0 Цикл
+
+ СтруктураТега = ПолучитьТегВТекстеHTML(Ссылка, , ПозицияНачалаОткрывающегоТега);
+ Если ЗаполненаСтруктураТега(СтруктураТега) Тогда
+
+ Ссылка = Лев(Ссылка, СтруктураТега.ПозицияНачалаОткрывающегоТега - 1) + Сред(Ссылка, СтруктураТега.ПозицияОкончанияОткрывающегоТега + 1);
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТега - 1;
+
+ КонецЕсли;
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(Ссылка, "<",, ПозицияНачалаОткрывающегоТега);
+
+ КонецЦикла;
+
+ Если Не СтрНайти(Строка, """") Тогда
+ СсылкаСТегом = "" + ПредставлениеСсылки + "";
+
+ ИначеЕсли Не СтрНайти(Строка, "'") Тогда
+ СсылкаСТегом = "" + ПредставлениеСсылки + "";
+
+ Иначе
+ РаботаСHTMLКлиентСервер.ЗаменитьСпецСимволыHTMLОбратно(Ссылка);
+ РаботаСHTMLКлиентСервер.ЗаменитьСпецСимволыHTML(Ссылка);
+
+ СсылкаСТегом = "" + ПредставлениеСсылки + "";
+
+ КонецЕсли;
+
+ Строка = НачалоСтроки + СсылкаСТегом + КонецСтроки;
+ Смещение = СтрДлина(НачалоСтроки + СсылкаСТегом) + 1;
+
+КонецПроцедуры
+
+// Добавляет теги ко всем ссылкам, находящимся в строке и соответствующим указанной схеме.
+Процедура ДобавитьТегиКСсылкамСоСхемой(ТекстHTML,Схема, НовоеЗначениеСхемы = "")
+
+ СхемаПоиска = НРег(Схема);
+ ТекстHTMLПоиска = НРег(ТекстHTML);
+ Длина = СтрДлина(ТекстHTML);
+ НоваяСтрока = "";
+ Смещение = 0;
+ КонецТега = ">";
+ ДлинаКонцаТега = СтрДлина(КонецТега);
+ ЯвляетсяТегомЯкоря = Ложь;
+ ЗакрывающийТегЯкоря = "";
+ НазваниеЭлементаСсылки = "a";
+ ДлинаЗакрывающегоТегаЯкоря = СтрДлина(ЗакрывающийТегЯкоря);
+
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+ СписокОграничителейURI = РаботаСHTMLВызовСервераПовтИсп.СписокОграничителейURI();
+
+ Пока НачалоСсылки <> 0 Цикл
+
+ // Проверять что позиция не в параметрах какого-либо тега
+ Если ПозицияНаходитсяВПараметреТега(ТекстHTMLПоиска, НачалоСсылки, НазваниеЭлементаСсылки, ЯвляетсяТегомЯкоря) Тогда
+
+ ПозицияОкончанияОткрывающегоТега = 0;
+
+ Если ЯвляетсяТегомЯкоря Тогда
+
+ // Если тег является якорем - ищем
+ ПозицияОкончанияОткрывающегоТега = СтрНайти(ТекстHTMLПоиска, ЗакрывающийТегЯкоря,, НачалоСсылки);
+ ПозицияОкончанияОткрывающегоТега = ПозицияОкончанияОткрывающегоТега + ДлинаЗакрывающегоТегаЯкоря;
+ ДлинаСмещения = ДлинаЗакрывающегоТегаЯкоря;
+
+ КонецЕсли;
+
+ Если ПозицияОкончанияОткрывающегоТега = 0 Тогда
+
+ ПозицияОкончанияОткрывающегоТега = СтрНайти(ТекстHTMLПоиска, КонецТега,, НачалоСсылки);
+
+ Если ПозицияОкончанияОткрывающегоТега = 0 Тогда
+
+ // Если нет окончания тега - не выделяем больше ссылок
+ Прервать;
+
+ КонецЕсли;
+
+ ПозицияОкончанияОткрывающегоТега = ПозицияОкончанияОткрывающегоТега + ДлинаКонцаТега;
+ ДлинаСмещения = ДлинаКонцаТега;
+
+ КонецЕсли;
+
+ // Если есть окончание тега - выделяем ссылки после тега
+ Смещение = Смещение + (ПозицияОкончанияОткрывающегоТега - 1);
+ ТекстHTMLПоиска = Сред(ТекстHTMLПоиска, ПозицияОкончанияОткрывающегоТега);
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+
+ Продолжить;
+
+ КонецЕсли;
+
+ Если ПозицияНаходитсяВТеге(ТекстHTMLПоиска, НазваниеЭлементаСсылки, НачалоСсылки) Тогда
+
+ ПозицияЗакрывающегоТегаЯкоря = СтрНайти(ТекстHTMLПоиска, ЗакрывающийТегЯкоря,, НачалоСсылки);
+
+ Если ПозицияЗакрывающегоТегаЯкоря = 0 Тогда
+
+ // Если нет закрывающего "якорь" тега - не выделяем больше ссылок
+ Прервать;
+
+ КонецЕсли;
+
+ ПозицияЗакрывающегоТегаЯкоря = ПозицияЗакрывающегоТегаЯкоря + ДлинаЗакрывающегоТегаЯкоря;
+
+ // Если есть закрывающий "якорь" тег - выделяем ссылки после закрывающего тега
+ Смещение = Смещение + (ПозицияЗакрывающегоТегаЯкоря - 1);
+ ТекстHTMLПоиска = Сред(ТекстHTMLПоиска, ПозицияЗакрывающегоТегаЯкоря);
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+
+ Продолжить;
+
+ КонецЕсли;
+
+ Если НачалоСсылки = 1 Тогда
+ СимволПередСсылкой = "";
+
+ Иначе
+
+ СимволПередСсылкой = Сред(ТекстHTMLПоиска, НачалоСсылки - 1, 1);
+
+ Если СимволПередСсылкой = ";" Тогда
+
+ ЗакодированныеКавычки = """;
+ ДлинаКавычек = СтрДлина(ЗакодированныеКавычки);
+
+ Если НачалоСсылки - ДлинаКавычек > 0 Тогда
+ ВозможныеКавычки = Сред(ТекстHTMLПоиска, НачалоСсылки - ДлинаКавычек, ДлинаКавычек);
+
+ Если ВозможныеКавычки = ЗакодированныеКавычки Тогда
+ СимволПередСсылкой = ЗакодированныеКавычки;
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если СписокОграничителейURI.НайтиПоЗначению(СимволПередСсылкой) <> Неопределено Тогда
+ СимволПередСсылкой = "";
+
+ ИначеЕсли СимволПередСсылкой = ">" Тогда
+ СимволПередСсылкой = ""; // Тег перед ссылкой
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если ПустаяСтрока(СимволПередСсылкой) Тогда
+
+ КонецСсылки = НайтиКонецСсылки(ТекстHTMLПоиска, НачалоСсылки + СтрДлина(СхемаПоиска), СписокОграничителейURI);
+
+ // Добавляем теги к оригинальному тексту, т.к. текст поиска в нижнем регистре
+ ДобавитьТегСсылки(
+ ТекстHTML,
+ НачалоСсылки,
+ КонецСсылки,
+ Схема,
+ НовоеЗначениеСхемы,
+ Смещение);
+
+ ТекстHTMLПоиска = Сред(ТекстHTMLПоиска, КонецСсылки + 1);
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+
+ Продолжить;
+
+ ИначеЕсли СимволПередСсылкой = """" Или СимволПередСсылкой = """ Тогда
+
+ СимволКонцаСсылки = """";
+ КонецСсылки = НайтиКонецСсылки(ТекстHTMLПоиска, НачалоСсылки + СтрДлина(СхемаПоиска), СписокОграничителейURI, Истина, СимволКонцаСсылки);
+
+ // Добавляем теги к оригинальному тексту, т.к. текст поиска в нижнем регистре
+ ДобавитьТегСсылки(
+ ТекстHTML,
+ НачалоСсылки - СтрДлина(СимволПередСсылкой), // Включаем открывающие кавычки в ссылку
+ КонецСсылки,
+ Схема,
+ НовоеЗначениеСхемы,
+ Смещение,
+ Истина,
+ СимволПередСсылкой,
+ СимволКонцаСсылки);
+
+ ТекстHTMLПоиска = Сред(ТекстHTMLПоиска, КонецСсылки + 1);
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+
+ Продолжить;
+
+ КонецЕсли;
+
+ Смещение = Смещение + НачалоСсылки;
+ ТекстHTMLПоиска = Сред(ТекстHTMLПоиска, НачалоСсылки + 1);
+ НачалоСсылки = СтрНайти(ТекстHTMLПоиска, СхемаПоиска);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+// Возвращает позицию конца ссылки в строке - первый незначащий символ
+Функция НайтиКонецСсылки(ТекстHTML, НачальнаяПозиция, СписокНезначащихСимволов,
+ РазрешитьПробелВСсылке = Ложь, СимволКонцаСсылки = Неопределено)
+
+ Списки = РаботаСHTMLВызовСервераПовтИсп.ПолучитьСпискиСимволов();
+
+ НайденНезначащийСимвол = Ложь;
+ ОбрабатываемаяСтрока = Сред(ТекстHTML, НачальнаяПозиция);
+ ПоложениеПервогоНезначащегоСимвола = 0;
+
+ Пока Не НайденНезначащийСимвол Цикл
+
+ ПервыйСимвол = Лев(ОбрабатываемаяСтрока, 1);
+
+ Если ЗначениеЗаполнено(СимволКонцаСсылки) И ПервыйСимвол = СимволКонцаСсылки Тогда
+
+ НайденНезначащийСимвол = Истина;
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + 1;
+
+ Прервать;
+
+ ИначеЕсли ЗначениеЗаполнено(СимволКонцаСсылки) И ПервыйСимвол = "&" Тогда
+
+ ВозможныйСпецСимвол = ПолучитьВозможныйСпецСимвол(ОбрабатываемаяСтрока);
+ СпецСимвол = Списки.ОбратноеСоответствиеСпецСимволов.Получить(ВозможныйСпецСимвол);
+
+ Если СпецСимвол <> Неопределено И Символ(СпецСимвол) = СимволКонцаСсылки Тогда
+
+ НайденНезначащийСимвол = Истина;
+ СимволКонцаСсылки = "&" + ВозможныйСпецСимвол + ";";
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + СтрДлина(СимволКонцаСсылки);
+
+ Прервать;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если ПервыйСимвол = "&" Тогда
+
+ ВозможныйСпецСимвол = ПолучитьВозможныйСпецСимвол(ОбрабатываемаяСтрока);
+ ДлинаВозможногоСпецСимвола = СтрДлина(ВозможныйСпецСимвол);
+
+ Если Списки.ЗначимыеВURIСпецСимволы.НайтиПоЗначению(ВозможныйСпецСимвол) <> Неопределено Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, ДлинаВозможногоСпецСимвола + 3);
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + ДлинаВозможногоСпецСимвола + 2;
+
+ Продолжить;
+
+ ИначеЕсли Списки.ДопустимыеВURIСпецСимволы.НайтиПоЗначению(ВозможныйСпецСимвол) <> Неопределено Тогда
+
+ ЕстьЗначимыйСимволДоКонцаСсылки = ЕстьЗначимыйСимволДоКонцаСсылки(
+ ОбрабатываемаяСтрока,
+ СписокНезначащихСимволов,
+ РазрешитьПробелВСсылке,
+ ДлинаВозможногоСпецСимвола + 2);
+
+ Если ЕстьЗначимыйСимволДоКонцаСсылки Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, ДлинаВозможногоСпецСимвола + 3);
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + ДлинаВозможногоСпецСимвола + 2;
+
+ Продолжить;
+
+ Иначе
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ ИначеЕсли Списки.ОбратноеСоответствиеСпецСимволов.Получить(ВозможныйСпецСимвол) <> Неопределено Тогда
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если ПервыйСимвол = "<" Тогда
+
+ СтруктураТега = ПолучитьТегВТекстеHTML(ОбрабатываемаяСтрока);
+ Если ЗаполненаСтруктураТега(СтруктураТега) Тогда
+
+ Если СтруктураТега.ПозицияНачалаОткрывающегоТега = 1 Тогда
+
+ Если ТегСодержитсяВСписке(СтруктураТега, Списки.СписокДопустимыхВСсылкеТегов) Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока,
+ СтруктураТега.ПозицияОкончанияОткрывающегоТега + 1);
+
+ ПоложениеПервогоНезначащегоСимвола =
+ ПоложениеПервогоНезначащегоСимвола + СтруктураТега.ПозицияОкончанияОткрывающегоТега;
+
+ Продолжить;
+
+ Иначе
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ Иначе
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ Иначе
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если СписокНезначащихСимволов.НайтиПоЗначению(ПервыйСимвол) <> Неопределено
+ И Не ЕстьЗначимыйСимволДоКонцаСсылки(ОбрабатываемаяСтрока, СписокНезначащихСимволов, РазрешитьПробелВСсылке) Тогда
+ ПервыйСимвол = "";
+
+ КонецЕсли;
+
+ Если ПервыйСимвол = " " И РазрешитьПробелВСсылке Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, 2);
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + 1;
+
+ Продолжить;
+
+ КонецЕсли;
+
+ Если ПустаяСтрока(ПервыйСимвол) Тогда
+
+ НайденНезначащийСимвол = Истина;
+
+ Прервать;
+
+ КонецЕсли;
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, 2);
+ ПоложениеПервогоНезначащегоСимвола = ПоложениеПервогоНезначащегоСимвола + 1;
+
+ КонецЦикла;
+
+ // Если не был найден не значащий символ - все равно возвращаем - позиция конца строки.
+ Возврат НачальнаяПозиция + ПоложениеПервогоНезначащегоСимвола;
+
+КонецФункции
+
+// Проверяет наличие значащего символа до конца ссылки.
+// Концом ссылки считаются стандартные незначащие символы.
+Функция ЕстьЗначимыйСимволДоКонцаСсылки(Строка, СписокНезначащихСимволов,
+ РазрешитьПробелВСсылке = Ложь, НачальнаяПозиция = 0)
+
+ ОбратноеСоответствиеСпецСимволов = РаботаСHTMLВызовСервераПовтИсп.ПолучитьОбратноеСоответствиеСпецСимволов();
+ ДопустимыеВURIСпецСимволы = РаботаСHTMLВызовСервераПовтИсп.ДопустимыеВURIСпецСимволы();
+ ЗначимыеВURIСпецСимволы = РаботаСHTMLВызовСервераПовтИсп.ЗначимыеВURIСпецСимволы();
+ СписокДопустимыхВСсылкеТегов = РаботаСHTMLВызовСервераПовтИсп.СписокДопустимыхВСсылкеТегов();
+
+ ОбрабатываемаяСтрока = Сред(Строка, НачальнаяПозиция + 1);
+ НайденЗначащийСимвол = Ложь;
+
+ Пока Не НайденЗначащийСимвол Цикл
+
+ ПервыйСимвол = Лев(ОбрабатываемаяСтрока, 1);
+
+ Если ПервыйСимвол = " " И РазрешитьПробелВСсылке Тогда
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, 2);
+
+ ИначеЕсли ПустаяСтрока(ПервыйСимвол) Тогда
+ Прервать;
+
+ ИначеЕсли ПервыйСимвол = "&" Тогда
+
+ ВозможныйСпецСимвол = ПолучитьВозможныйСпецСимвол(ОбрабатываемаяСтрока);
+ ДлинаВозможногоСпецСимвола = СтрДлина(ВозможныйСпецСимвол);
+
+ Если ЗначимыеВURIСпецСимволы.НайтиПоЗначению(ВозможныйСпецСимвол) <> Неопределено Тогда
+ НайденЗначащийСимвол = Истина;
+
+ ИначеЕсли ДопустимыеВURIСпецСимволы.НайтиПоЗначению(ВозможныйСпецСимвол) <> Неопределено
+ Или ОбратноеСоответствиеСпецСимволов.Получить(ВозможныйСпецСимвол) <> Неопределено Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, ДлинаВозможногоСпецСимвола + 3);
+
+ Иначе
+
+ НайденЗначащийСимвол = Истина;
+
+ КонецЕсли;
+
+ ИначеЕсли ПервыйСимвол = "<" Тогда
+
+ СтруктураТега = ПолучитьТегВТекстеHTML(ОбрабатываемаяСтрока);
+ Если ЗаполненаСтруктураТега(СтруктураТега) Тогда
+
+ Если СтруктураТега.ПозицияНачалаОткрывающегоТега = 1 Тогда
+
+ Если ТегСодержитсяВСписке(СтруктураТега, СписокДопустимыхВСсылкеТегов) Тогда
+
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, СтруктураТега.ПозицияОкончанияОткрывающегоТега + 1);
+ Продолжить;
+
+ Иначе
+ Прервать;
+ КонецЕсли;
+
+ Иначе
+ Прервать;
+ КонецЕсли;
+
+ Иначе
+ Прервать;
+ КонецЕсли;
+
+ ИначеЕсли СписокНезначащихСимволов.НайтиПоЗначению(ПервыйСимвол) <> Неопределено Тогда
+ ОбрабатываемаяСтрока = Сред(ОбрабатываемаяСтрока, 2);
+
+ Иначе
+ НайденЗначащийСимвол = Истина;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Возврат НайденЗначащийСимвол;
+
+КонецФункции
+
+// Возвращает спецсимвол HTML (&СпецСимвол;), если он присутствует.
+// Возвращает Неопределено, если нет возможных спецсимволов.
+Функция ПолучитьВозможныйСпецСимвол(Строка, ПозицияСпецСимвола = 0)
+
+ ОбрабатываемаяСтрока = Сред(Строка, ПозицияСпецСимвола + 1);
+ ПервыйСимвол = Лев(ОбрабатываемаяСтрока, 1);
+
+ Если ПервыйСимвол = "&" Тогда
+
+ КонецСпецСимвола = СтрНайти(ОбрабатываемаяСтрока, ";");
+
+ Если КонецСпецСимвола <> 0 Тогда
+
+ СпецСимвол = Сред(ОбрабатываемаяСтрока, 2, КонецСпецСимвола - 2);
+
+ Возврат СпецСимвол;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Возврат Неопределено;
+
+КонецФункции
+
+// Возвращает структуру первого тега данного элемента в тексте HTML.
+// Если не указано название элемента то возвращает первый встреченный тег.
+// Поиск тега ведется с переданной начальной позиции.
+//
+// Структура тега:
+// НазваниеЭлемента - название элемента найденного тега;
+// ПараметрыОткрывающегоТега - строка, содержащая параметры открывающего тега;
+// Содержание - стока, содержащие данные, находящие между открывающим и закрывающим тегом;
+// ПозицияНачалаОткрывающегоТега - позиция символа "<" открывающего тега;
+// ПозицияОкончанияОткрывающегоТега - позиция символа ">" открывающего тега;
+// ПозицияНачалаЗакрывающегоТега - позиция символа "<" закрывающего тега;
+// ПозицияОкончанияЗакрывающегоТега - позиция символа ">" закрывающего тега;
+// ПозицияНачалаТега - позиция символа "<" открывающего тега;
+// ПозицияОкончанияТега - если есть закрывающий тег, то позиция символа ">" закрывающего тега;
+// если нет закрывающего тега, то позиция символа ">" открывающего тега.
+//
+Функция ПолучитьТегВТекстеHTML(ТекстHTML, НазваниеЭлемента = "", НачальнаяПозиция = 1)
+
+ Если Не ЗначениеЗаполнено(НазваниеЭлемента) Тогда
+
+ НачалоОткрывающегоТега = "<";
+ НазваниеТега = "";
+ ОбрабатываемыйТекстHTML = ТекстHTML;
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега);
+ Пока ПозицияНачалаОткрывающегоТега <> 0 Цикл
+
+ ОбрабатываемыйТекстHTML = Сред(ОбрабатываемыйТекстHTML, ПозицияНачалаОткрывающегоТега + 1);
+ ПервыйСимволНазванияТега = Лев(ОбрабатываемыйТекстHTML, 1);
+
+ Если ЗначениеЗаполнено(ПервыйСимволНазванияТега) Тогда
+ ОчереднойСимволНазванияТега = ПервыйСимволНазванияТега;
+
+ Пока ЗначениеЗаполнено(ОчереднойСимволНазванияТега)
+ И ОчереднойСимволНазванияТега <> ">" Цикл
+
+ НазваниеТега = НазваниеТега + ОчереднойСимволНазванияТега;
+ ОбрабатываемыйТекстHTML = Сред(ОбрабатываемыйТекстHTML, 2);
+ ОчереднойСимволНазванияТега = Лев(ОбрабатываемыйТекстHTML, 1);
+
+ КонецЦикла;
+
+ ПозицияНачалаОткрывающегоТега = 0;
+
+ Иначе
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега);
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Если ЗначениеЗаполнено(НазваниеТега) Тогда
+
+ НазваниеЭлемента = НазваниеТега;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ ПараметрыОткрывающегоТега = "";
+ Содержание = "";
+ ПозицияНачалаОткрывающегоТега = 0;
+ ПозицияОкончанияОткрывающегоТега = 0;
+ ПозицияНачалаЗакрывающегоТега = 0;
+ ПозицияОкончанияЗакрывающегоТега = 0;
+ ПозицияНачалаТега = 0;
+ ПозицияОкончанияТега = 0;
+
+ НачалоОткрывающегоТега = "<" + НРег(НазваниеЭлемента);
+ КонецОткрывающегоТега = ">";
+ ЗакрывающийТег = "";
+ ОбрабатываемыйТекстHTML = Сред(НРег(ТекстHTML), НачальнаяПозиция);
+
+ Смещение = НачальнаяПозиция - 1;
+
+ ПозицияНачалаОткрывающегоТегаСПараметрами = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега + " ");
+ ПозицияНачалаОткрывающегоТегаСПараметрамиПС = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега + Символы.ПС);
+ ПозицияНачалаОткрывающегоТегаБезПараметров = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега + КонецОткрывающегоТега);
+ ПозицияНачалаОткрывающегоТегаСЗакрытием = СтрНайти(ОбрабатываемыйТекстHTML, НачалоОткрывающегоТега + "/>");
+
+ Если ПозицияНачалаОткрывающегоТегаСПараметрами <> 0 Тогда
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+ ПозицияНачалаОткрывающегоТега = Мин(ПозицияНачалаОткрывающегоТега, ПозицияНачалаОткрывающегоТегаСПараметрами);
+ Иначе
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТегаСПараметрами;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ПозицияНачалаОткрывающегоТегаСПараметрамиПС <> 0 Тогда
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+ ПозицияНачалаОткрывающегоТега = Мин(ПозицияНачалаОткрывающегоТега, ПозицияНачалаОткрывающегоТегаСПараметрамиПС);
+ Иначе
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТегаСПараметрамиПС;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ПозицияНачалаОткрывающегоТегаБезПараметров <> 0 Тогда
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+ ПозицияНачалаОткрывающегоТега = Мин(ПозицияНачалаОткрывающегоТега, ПозицияНачалаОткрывающегоТегаБезПараметров);
+ Иначе
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТегаБезПараметров;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ПозицияНачалаОткрывающегоТегаСЗакрытием <> 0 Тогда
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+ ПозицияНачалаОткрывающегоТега = Мин(ПозицияНачалаОткрывающегоТега, ПозицияНачалаОткрывающегоТегаСЗакрытием);
+ Иначе
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТегаСЗакрытием;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+
+ ОбрабатываемыйТекстHTML = Сред(ОбрабатываемыйТекстHTML, ПозицияНачалаОткрывающегоТега + СтрДлина(НачалоОткрывающегоТега));
+ Смещение = Смещение + ПозицияНачалаОткрывающегоТега + СтрДлина(НачалоОткрывающегоТега) - 1;
+
+ ПозицияОкончанияОткрывающегоТега = СтрНайти(ОбрабатываемыйТекстHTML, КонецОткрывающегоТега);
+ Если ПозицияОкончанияОткрывающегоТега <> 0 Тогда
+
+ ПараметрыОткрывающегоТега = Сред(ТекстHTML, Смещение + 1, ПозицияОкончанияОткрывающегоТега - 1);
+ ОбрабатываемыйТекстHTML = Сред(ОбрабатываемыйТекстHTML, ПозицияОкончанияОткрывающегоТега + СтрДлина(КонецОткрывающегоТега));
+ Смещение = Смещение + ПозицияОкончанияОткрывающегоТега + СтрДлина(КонецОткрывающегоТега) - 1;
+
+ Иначе
+
+ ПозицияНачалаОткрывающегоТега = 0;
+
+ КонецЕсли;
+
+ ПозицияНачалаЗакрывающегоТега = СтрНайти(ОбрабатываемыйТекстHTML, ЗакрывающийТег);
+ Если ПозицияНачалаЗакрывающегоТега <> 0 Тогда
+ Содержание = Сред(ТекстHTML, Смещение + 1, ПозицияНачалаЗакрывающегоТега - 1);
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если ПозицияНачалаОткрывающегоТега <> 0 Тогда
+ ПозицияНачалаОткрывающегоТега = ПозицияНачалаОткрывающегоТега + (НачальнаяПозиция - 1);
+ ПозицияНачалаТега = ПозицияНачалаОткрывающегоТега;
+ КонецЕсли;
+
+ Если ПозицияОкончанияОткрывающегоТега <> 0 Тогда
+ ПозицияОкончанияОткрывающегоТега = ПозицияОкончанияОткрывающегоТега + (СтрДлина(НачалоОткрывающегоТега) - 1) + ПозицияНачалаОткрывающегоТега;
+ КонецЕсли;
+
+ Если ПозицияНачалаЗакрывающегоТега <> 0 Тогда
+ ПозицияНачалаЗакрывающегоТега = ПозицияНачалаЗакрывающегоТега + ПозицияОкончанияОткрывающегоТега;
+ ПозицияОкончанияЗакрывающегоТега = ПозицияНачалаЗакрывающегоТега + (СтрДлина(ЗакрывающийТег) - 1);
+ КонецЕсли;
+
+ Если ПозицияОкончанияЗакрывающегоТега <> 0 Тогда
+ ПозицияОкончанияТега = ПозицияОкончанияЗакрывающегоТега;
+ ИначеЕсли ПозицияОкончанияОткрывающегоТега <> 0 Тогда
+ ПозицияОкончанияТега = ПозицияОкончанияОткрывающегоТега;
+ КонецЕсли;
+
+ СтруктураТега = Новый Структура();
+ СтруктураТега.Вставить("НазваниеЭлемента", НазваниеЭлемента);
+ СтруктураТега.Вставить("ПараметрыОткрывающегоТега", ПараметрыОткрывающегоТега);
+ СтруктураТега.Вставить("Содержание", Содержание);
+ СтруктураТега.Вставить("ПозицияНачалаОткрывающегоТега", ПозицияНачалаОткрывающегоТега);
+ СтруктураТега.Вставить("ПозицияОкончанияОткрывающегоТега", ПозицияОкончанияОткрывающегоТега);
+ СтруктураТега.Вставить("ПозицияНачалаЗакрывающегоТега", ПозицияНачалаЗакрывающегоТега);
+ СтруктураТега.Вставить("ПозицияОкончанияЗакрывающегоТега", ПозицияОкончанияЗакрывающегоТега);
+ СтруктураТега.Вставить("ПозицияНачалаТега", ПозицияНачалаТега);
+ СтруктураТега.Вставить("ПозицияОкончанияТега", ПозицияОкончанияТега);
+
+ Возврат СтруктураТега;
+
+КонецФункции
+
+// Проверяет наличие название элемента тега в списке значений
+Функция ТегСодержитсяВСписке(СтруктураТега, СписокЗначений)
+
+ Если Не ЗаполненаСтруктураТега(СтруктураТега) Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ НазваниеЭлемента = НРег(СтруктураТега.НазваниеЭлемента);
+
+ Для Каждого ЭлементСписка Из СписокЗначений Цикл
+
+ ЗначениеЭлементаСписка = ЭлементСписка.Значение;
+ Если ТипЗнч(ЗначениеЭлементаСписка) = Тип("Строка") Тогда
+
+ ЗначениеЭлементаСписка = НРег(ЗначениеЭлементаСписка);
+ ЗначениеЗакрывающегоЭлементаСписка = "/" + ЗначениеЭлементаСписка;
+
+ Если НазваниеЭлемента = ЗначениеЭлементаСписка
+ Или НазваниеЭлемента = ЗначениеЗакрывающегоЭлементаСписка Тогда
+
+ Возврат Истина;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Возврат Ложь;
+
+КонецФункции
+
+// Проверяет заполненность структуры тега:
+// - наличие всех необходимых тегу свойств в структуре;
+// - заполненность позиции начала и окончания тега.
+Функция ЗаполненаСтруктураТега(СтруктураТега)
+
+ Если (Не СтруктураТега.Свойство("НазваниеЭлемента"))
+ Или (Не СтруктураТега.Свойство("ПараметрыОткрывающегоТега"))
+ Или (Не СтруктураТега.Свойство("Содержание"))
+ Или (Не СтруктураТега.Свойство("ПозицияНачалаОткрывающегоТега"))
+ Или (Не СтруктураТега.Свойство("ПозицияОкончанияОткрывающегоТега"))
+ Или (Не СтруктураТега.Свойство("ПозицияНачалаЗакрывающегоТега"))
+ Или (Не СтруктураТега.Свойство("ПозицияОкончанияЗакрывающегоТега"))
+ Или (Не СтруктураТега.Свойство("ПозицияНачалаТега"))
+ Или (Не СтруктураТега.Свойство("ПозицияОкончанияТега")) Тогда
+
+ Возврат Ложь;
+
+ КонецЕсли;
+
+ Если ЗначениеЗаполнено(СтруктураТега.ПозицияНачалаТега)
+ И ЗначениеЗаполнено(СтруктураТега.ПозицияОкончанияТега) Тогда
+
+ Возврат Истина;
+
+ КонецЕсли;
+
+ Возврат Ложь;
+
+КонецФункции
+
+// Проверяет нахождение внутри параметров открывающего тега (возможно, который не закрыт).
+//
+Функция ПозицияНаходитсяВПараметреТега(ТекстHTML, Позиция, НужныйТег = "", ЯвляетсяНужнымТегом = Ложь)
+
+ НачалоТега = "<";
+ КонецТега = ">";
+ ОткрытТег = Ложь;
+
+ ЯвляетсяНужнымТегом = Ложь;
+ НачалоТекстаHTML = Лев(НРег(ТекстHTML), Позиция - 1);
+
+ НайденнаяПозицияНачалаОткрывающегоТега = 0;
+ ПозицияНачалаОткрывающегоТега = СтрНайти(НачалоТекстаHTML, НачалоТега);
+
+ Пока ПозицияНачалаОткрывающегоТега <> 0 Цикл
+
+ НачалоТекстаHTML = Сред(НачалоТекстаHTML, ПозицияНачалаОткрывающегоТега + 1);
+ ПервыйСимволНазванияТега = Сред(НачалоТекстаHTML, 1, 1);
+ ПозицияНужногоТега = СтрНайти(НачалоТекстаHTML, НужныйТег + " ");
+
+ Если ПозицияНужногоТега = 0 Тогда
+ ПозицияНужногоТега = СтрНайти(НачалоТекстаHTML, НужныйТег + ">");
+ КонецЕсли;
+
+ Если ЗначениеЗаполнено(ПервыйСимволНазванияТега) Тогда
+
+ ПозицияОкончанияОткрывающегоТега = СтрНайти(НачалоТекстаHTML, КонецТега);
+ Если ПозицияОкончанияОткрывающегоТега <> 0 Тогда
+ НачалоТекстаHTML = Сред(НачалоТекстаHTML, ПозицияОкончанияОткрывающегоТега + 1);
+
+ Иначе
+
+ Если ПозицияНужногоТега = 1 Тогда
+ ЯвляетсяНужнымТегом = Истина;
+ КонецЕсли;
+
+ ОткрытТег = Истина;
+
+ Прервать;
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ ПозицияНачалаОткрывающегоТега = СтрНайти(НачалоТекстаHTML, НачалоТега);
+
+ КонецЦикла;
+
+ Возврат ОткрытТег;
+
+КонецФункции
+
+// Дописывать значение из href в свойство title ссылок и картинок.
+//
+Процедура ЗаполнитьСвойствоTitleУСсылок(ТекстHTML)
+
+ // Для отображения подсказки к относительным ссылкам используется упрощенный
+ // метод определения относительной ссылки и работы с тегом BASE, для самых частотных случаев.
+ // Ссылка считается относительной, если в нет не присутствует ":".
+ // К представлению относительных ссылок дописывается текст тега Base.
+ ТегBody = ПолучитьТегВТекстеHTML(ТекстHTML, "body");
+ ТегBase = ПолучитьТегВТекстеHTML(ТекстHTML, "base");
+ ТекстBase = ПолучитьЗначениеПараметраТега(ТегBase, "href");
+
+ Если ТекстBase = Неопределено
+ Или (ЗаполненаСтруктураТега(ТегBody) И ТегBase.ПозицияОкончанияТега > ТегBody.ПозицияНачалаТега) Тогда
+ ТекстBase = "";
+ КонецЕсли;
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "a");
+
+ Пока ЗаполненаСтруктураТега(Тег) <> 0 Цикл
+
+ СимволОграниченияHref = Неопределено;
+ СимволОграниченияTitle = Неопределено;
+ Смещение = 0;
+ НачалоTitle = 0;
+ КонецTitle = 0;
+ ТекстHref = ПолучитьЗначениеПараметраТега(Тег, "href", СимволОграниченияHref);
+
+ // Считаем ссылку относительной, если в ней нет символа ":"
+ Если ТекстBase <> "" И СтрНайти(ТекстHref, ":") = 0 Тогда
+
+ Если (Не СтрНачинаетсяС(ТекстHref, "\") И Не СтрНачинаетсяС(ТекстHref, "/"))
+ И (Не СтрЗаканчиваетсяНа(ТекстBase, "\") И Не СтрЗаканчиваетсяНа(ТекстBase, "/")) Тогда
+
+ // Нет "/" в тексте ссылки и Base
+ ТекстHref = "/" + ТекстHref;
+
+ ИначеЕсли (СтрНачинаетсяС(ТекстHref, "\") Или СтрНачинаетсяС(ТекстHref, "/"))
+ И (СтрЗаканчиваетсяНа(ТекстBase, "\") Или СтрЗаканчиваетсяНа(ТекстBase, "/")) Тогда
+
+ // Есть "/" в тексте ссылки и Base
+ ТекстHref = Сред(ТекстHref, 2);
+
+ КонецЕсли;
+
+ ТекстHref = ТекстBase + ТекстHref;
+
+ КонецЕсли;
+
+ Если ТекстHref = Неопределено Тогда
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "a", Тег.ПозицияОкончанияТега + 1);
+ Продолжить;
+ КонецЕсли;
+
+ ТекстTitle = ПолучитьЗначениеПараметраТега(Тег, "title", СимволОграниченияTitle, НачалоTitle, КонецTitle);
+
+ Если ТекстTitle = Неопределено Тогда
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%1", СимволОграниченияHref, ТекстHref);
+ Смещение = Смещение + СтрДлина(ТекстTitle) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%3 %2>", Тег.НазваниеЭлемента, ТекстTitle, Тег.ПараметрыОткрывающегоТега);
+
+ ИначеЕсли СтрНайти(ТекстTitle, ТекстHref) = 0 Тогда
+
+ ТекстДоTitle = Лев(Тег.ПараметрыОткрывающегоТега, НачалоTitle - 1);
+ ТекстПослеTitle = Сред(Тег.ПараметрыОткрывающегоТега, КонецTitle + 1);
+
+ Если СимволОграниченияTitle <> СимволОграниченияHref Тогда
+ Если СимволОграниченияTitle = """" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+ ИначеЕсли СимволОграниченияTitle = "'" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, "'", """");
+ КонецЕсли;
+ КонецЕсли;
+
+ Если СимволОграниченияTitle = "" Тогда
+ ТекстTitle = СтрЗаменить(ТекстTitle, """", "'");
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+ СимволОграниченияTitle = """";
+ КонецЕсли;
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%3%1", СимволОграниченияTitle, ТекстTitle, Символы.ПС + ТекстHref);
+
+ Смещение = Смещение + СтрДлина(ТекстHref) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%2%3%4>", Тег.НазваниеЭлемента, ТекстДоTitle, ТекстTitle, ТекстПослеTitle);
+
+ Иначе
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "a", Тег.ПозицияОкончанияТега + Смещение + 1);
+ Продолжить;
+
+ КонецЕсли;
+
+ ТекстHTML =
+ Лев(ТекстHTML, Тег.ПозицияНачалаОткрывающегоТега - 1)
+ + НовыйОткрывающийТег
+ + Сред(ТекстHTML, Тег.ПозицияОкончанияОткрывающегоТега + 1);
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "a", Тег.ПозицияОкончанияТега + Смещение + 1);
+
+ КонецЦикла;
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "img");
+
+ Пока ЗаполненаСтруктураТега(Тег) <> 0 Цикл
+
+ СимволОграниченияHref = Неопределено;
+ СимволОграниченияTitle = Неопределено;
+ Смещение = 0;
+ ВнешнийТегСсылки = Неопределено;
+ НачалоTitle = 0;
+ КонецTitle = 0;
+
+ Если Не ПозицияНаходитсяВТеге(ТекстHTML, "a", Тег.ПозицияНачалаТега, ВнешнийТегСсылки) Тогда
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "img", Тег.ПозицияОкончанияТега + Смещение + 1);
+ Продолжить;
+ КонецЕсли;
+
+ ТекстHref = ПолучитьЗначениеПараметраТега(ВнешнийТегСсылки, "href", СимволОграниченияHref);
+ Если ТекстHref = Неопределено Тогда
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "img", Тег.ПозицияОкончанияТега + Смещение + 1);
+ Продолжить;
+ КонецЕсли;
+
+ ТекстTitle = ПолучитьЗначениеПараметраТега(Тег, "title", СимволОграниченияTitle, НачалоTitle, КонецTitle);
+ Если ТекстTitle = Неопределено Тогда
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%1", СимволОграниченияHref, ТекстHref);
+
+ Смещение = Смещение + СтрДлина(ТекстTitle) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%3 %2>", Тег.НазваниеЭлемента, ТекстTitle, Тег.ПараметрыОткрывающегоТега);
+
+ ИначеЕсли СтрНайти(ТекстTitle, ТекстHref) = 0 Тогда
+
+ ТекстДоTitle = Лев(Тег.ПараметрыОткрывающегоТега, НачалоTitle - 1);
+ ТекстПослеTitle = Сред(Тег.ПараметрыОткрывающегоТега, КонецTitle + 1);
+
+ Если СимволОграниченияTitle <> СимволОграниченияHref Тогда
+
+ Если СимволОграниченияTitle = """" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+
+ ИначеЕсли СимволОграниченияTitle = "'" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, "'", """");
+
+ ИначеЕсли СимволОграниченияTitle = "" Тогда
+
+ ТекстTitle = СтрЗаменить(ТекстHref, """", "'");
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+ СимволОграниченияTitle = """";
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%3%1", СимволОграниченияTitle, ТекстTitle, Символы.ПС + ТекстHref);
+
+ Смещение = Смещение + СтрДлина(ТекстHref) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%2%3%4>", Тег.НазваниеЭлемента, ТекстДоTitle, ТекстTitle, ТекстПослеTitle);
+
+ Иначе
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "img", Тег.ПозицияОкончанияТега + Смещение + 1);
+ Продолжить;
+
+ КонецЕсли;
+
+ ТекстHTML =
+ Лев(ТекстHTML, Тег.ПозицияНачалаОткрывающегоТега - 1)
+ + НовыйОткрывающийТег
+ + Сред(ТекстHTML, Тег.ПозицияОкончанияОткрывающегоТега + 1);
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "img", Тег.ПозицияОкончанияТега + Смещение + 1);
+
+ КонецЦикла;
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "area");
+
+ Пока ЗаполненаСтруктураТега(Тег) <> 0 Цикл
+
+ СимволОграниченияHref = Неопределено;
+ СимволОграниченияTitle = Неопределено;
+ Смещение = 0;
+ НачалоTitle = 0;
+ КонецTitle = 0;
+ ТекстHref = ПолучитьЗначениеПараметраТега(Тег, "href", СимволОграниченияHref);
+
+ Если ТекстHref = Неопределено Тогда
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "area", Тег.ПозицияОкончанияТега + 1);
+ Продолжить;
+ КонецЕсли;
+
+ ТекстTitle = ПолучитьЗначениеПараметраТега(Тег, "title", СимволОграниченияTitle, НачалоTitle, КонецTitle);
+
+ Если ТекстTitle = Неопределено Тогда
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%1", СимволОграниченияHref, ТекстHref);
+
+ Смещение = Смещение + СтрДлина(ТекстTitle) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%3 %2>", Тег.НазваниеЭлемента, ТекстTitle, Тег.ПараметрыОткрывающегоТега);
+
+ ИначеЕсли СтрНайти(ТекстTitle, ТекстHref) = 0 Тогда
+
+ ТекстДоTitle = Лев(Тег.ПараметрыОткрывающегоТега, НачалоTitle - 1);
+ ТекстПослеTitle = Сред(Тег.ПараметрыОткрывающегоТега, КонецTitle + 1);
+
+ Если СимволОграниченияTitle <> СимволОграниченияHref Тогда
+
+ Если СимволОграниченияTitle = """" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+
+ ИначеЕсли СимволОграниченияTitle = "'" Тогда
+ ТекстHref = СтрЗаменить(ТекстHref, "'", """");
+
+ ИначеЕсли СимволОграниченияTitle = "" Тогда
+
+ ТекстTitle = СтрЗаменить(ТекстTitle, """", "'");
+ ТекстHref = СтрЗаменить(ТекстHref, """", "'");
+ СимволОграниченияTitle = """";
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+ ТекстTitle = СтрШаблон(
+ "title=%1%2%3%1", СимволОграниченияTitle, ТекстTitle, Символы.ПС + ТекстHref);
+
+ Смещение = Смещение + СтрДлина(ТекстHref) + 1;
+
+ НовыйОткрывающийТег = СтрШаблон(
+ "<%1%2%3%4>", Тег.НазваниеЭлемента, ТекстДоTitle, ТекстTitle, ТекстПослеTitle);
+
+ Иначе
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "area", Тег.ПозицияОкончанияТега + Смещение + 1);
+ Продолжить;
+
+ КонецЕсли;
+
+ ТекстHTML =
+ Лев(ТекстHTML, Тег.ПозицияНачалаОткрывающегоТега - 1)
+ + НовыйОткрывающийТег
+ + Сред(ТекстHTML, Тег.ПозицияОкончанияОткрывающегоТега + 1);
+
+ Тег = ПолучитьТегВТекстеHTML(ТекстHTML, "area", Тег.ПозицияОкончанияТега + Смещение + 1);
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+// Возвращает значение свойства параметра тега
+Функция ПолучитьЗначениеПараметраТега(Тег, Параметр,
+ СимволОграничения = Неопределено, НачалоПараметра = Неопределено, КонецПараметра = Неопределено)
+
+ Если Не ЗаполненаСтруктураТега(Тег) Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ ПараметрыДляПоиска = НРег(Тег.ПараметрыОткрывающегоТега);
+ ПараметрДляПоиска = НРег(Параметр);
+ ПозицияПараметра = СтрНайти(ПараметрыДляПоиска, ПараметрДляПоиска);
+
+ Если ПозицияПараметра = 0 Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ НачалоПараметра = СтрНайти(ПараметрыДляПоиска, ПараметрДляПоиска + "=""");
+ Если НачалоПараметра <> 0 Тогда
+ СимволОграничения = """";
+ Иначе
+ НачалоПараметра = СтрНайти(ПараметрыДляПоиска, ПараметрДляПоиска + "='");
+ Если НачалоПараметра <> 0 Тогда
+ СимволОграничения = "'";
+ Иначе
+ НачалоПараметра = СтрНайти(ПараметрыДляПоиска, ПараметрДляПоиска + "=");
+ Если НачалоПараметра <> 0 Тогда
+ СимволОграничения = "";
+ КонецЕсли;
+ КонецЕсли;
+ КонецЕсли;
+
+ Если НачалоПараметра = 0 Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если СимволОграничения = "" Тогда
+
+ ЗакрывающийСимволОграничения = " ";
+ КонецПараметра = СтрНайти(ПараметрыДляПоиска, ЗакрывающийСимволОграничения,,
+ НачалоПараметра + СтрДлина(ПараметрДляПоиска + "=" + СимволОграничения));
+
+ Если КонецПараметра = 0 Тогда
+
+ ЗакрывающийСимволОграничения = Символы.ПС;
+ КонецПараметра = СтрНайти(ПараметрыДляПоиска, ЗакрывающийСимволОграничения,,
+ НачалоПараметра + СтрДлина(ПараметрДляПоиска + "=" + СимволОграничения));
+
+ Если КонецПараметра = 0 Тогда
+ КонецПараметра = СтрДлина(ПараметрыДляПоиска) + 1;
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Иначе
+
+ КонецПараметра = СтрНайти(ПараметрыДляПоиска, СимволОграничения,,
+ НачалоПараметра + СтрДлина(ПараметрДляПоиска + "=" + СимволОграничения));
+
+ Если КонецПараметра = 0 Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ КонецЕсли;
+
+ Если КонецПараметра = 0 Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ ЗначениеПараметраТега = Сред(Тег.ПараметрыОткрывающегоТега, НачалоПараметра + СтрДлина(Параметр + "=" + СимволОграничения),
+ КонецПараметра - (НачалоПараметра + СтрДлина(Параметр + "=" + СимволОграничения)));
+
+ Возврат ЗначениеПараметраТега;
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..cc605e3
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСПротоколомСобытийВызовСервера
+
+
+ ru
+ Работа с протоколом событий вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..afda134
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,176 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Добавляет запись протокола с видом "предупреждение" для конкретного объекта.
+//
+// Параметры:
+// Описание - Строка - Описание произошедшего события.
+// ТипОбъекта - Строка - Тип объекта, для которого добавляется запись.
+// ИдентификаторОбъекта - УникальныйИдентификатор - идентификатор объекта, для которого
+// добавляется запись.
+//
+// Возвращаемое значение:
+// МоментВремени - Момент времени, в который добавлена запись протокола.
+//
+Функция ДобавитьИнформациюПоОбъекту(Описание, ТипОбъекта, ИдентификаторОбъекта) Экспорт
+
+ Возврат РегистрыСведений.ПротоколСобытий.ДобавитьИнформациюПоОбъекту(
+ Описание,
+ ТипОбъекта,
+ ИдентификаторОбъекта);
+
+КонецФункции
+
+// Добавляет запись протокола с видом "информация".
+//
+// Параметры:
+// Описание - Строка - Описание произошедшего события.
+//
+// Возвращаемое значение:
+// МоментВремени - Момент времени, в который добавлена запись протокола.
+//
+Функция ДобавитьИнформацию(Описание) Экспорт
+
+ Возврат РегистрыСведений.ПротоколСобытий.ДобавитьИнформацию(Описание);
+
+КонецФункции
+
+// Добавляет запись протокола с видом "ошибка".
+//
+// Параметры:
+// Описание - Строка - Описание произошедшего события.
+//
+// Возвращаемое значение:
+// МоментВремени - Момент времени, в который добавлена запись протокола.
+//
+Функция ДобавитьОшибку(Описание) Экспорт
+
+ МоментВремени = РегистрыСведений.ПротоколСобытий.ДобавитьОшибку(Описание);
+
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(МоментВремени, Истина);
+
+ Возврат МоментВремени;
+
+КонецФункции
+
+// Добавляет запись протокола с видом "предупреждение".
+//
+// Параметры:
+// Описание - Строка - Описание произошедшего события.
+//
+// Возвращаемое значение:
+// МоментВремени - Момент времени, в который добавлена запись протокола.
+//
+Функция ДобавитьПредупреждение(Описание) Экспорт
+
+ Возврат РегистрыСведений.ПротоколСобытий.ДобавитьПредупреждение(Описание);
+
+КонецФункции
+
+// Формирует текст протокола по указанным параметрам.
+//
+// Параметры:
+// Период - Число - Количество секунд назад от текущей даты .
+// ТолькоОшибки - Булево - Включить в выборку только ошибки.
+//
+// Возвращаемое значение:
+// Строка - Сформированный по указанным параметрам текст протокола.
+//
+Функция ПолучитьТекстПротокола(Период = Неопределено, ТолькоОшибки = Ложь) Экспорт
+
+ Если Период = Неопределено Тогда
+
+ // По-умолчанию за последнюю неделю
+ Период = 7*24*60*60;
+
+ КонецЕсли;
+
+ Текст = "";
+ Выборка = РегистрыСведений.ПротоколСобытий.Выбрать(ТекущаяДата() - Период,,, "МоментВремени Убыв");
+ Пока Выборка.Следующий() Цикл
+
+ Если ТолькоОшибки И Не Выборка.ТипСобытия = Перечисления.ТипыСобытийПротокола.Ошибка Тогда
+ Продолжить;
+ КонецЕсли;
+
+ НомерСессии = "";
+ Если Не Выборка.СессияСинхронизации = 0 Тогда
+ НомерСессии = "("+Выборка.СессияСинхронизации+")";
+ КонецЕсли;
+
+ Текст = Текст
+ + СтрШаблон(
+ "%1 %2
+ |%3
+ | ",
+ Выборка.Период, НомерСессии, Выборка.Описание)
+ + "__________________" + Символы.ПС;
+
+ КонецЦикла;
+
+ Возврат Текст;
+
+КонецФункции
+
+// Устанавливает признак необходимости показа сообщения в окне ошибок после
+// окончания обмена с сервером.
+//
+// Параметры:
+// МоментВремени - Число - Момент, когда произошла ошибка.
+//
+Процедура УстановитьПризнакПоказаСобытияПослеСинхронизации(МоментВремени) Экспорт
+
+ РегистрыСведений.ПротоколСобытий.УстановитьНеобходимостьОтображенияПослеСинхронизации(МоментВремени, Истина);
+
+КонецПроцедуры
+
+// Записывает информацию в протокол если включено расширенное протоколирование.
+//
+// Параметры:
+// СсылкаНаОбъект - Ссылка, Строка - Ссылка на объект или уникальный идентификатор объекта;
+// Информация - Строка - Описание события.
+//
+Процедура ДобавитьЗаписьРасширенногоПротокола(СсылкаНаОбъект, Информация) Экспорт
+
+ Если Не ОбменВызовСервераПовтИсп.ИспользоватьРасширенноеПротоколированиеОпераций() Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если Не ЗначениеЗаполнено(СсылкаНаОбъект) Тогда
+ Возврат;
+ КонецЕсли;
+
+ ТипОбъекта = ТипЗнч(СсылкаНаОбъект);
+
+ Если ТипОбъекта = Тип("Строка")
+ Или ТипОбъекта = Тип("УникальныйИдентификатор") Тогда
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформациюПоОбъекту(Информация, "", СсылкаНаОбъект);
+
+ ИначеЕсли ТипОбъекта = Тип("ДокументСсылка.ВходящееПисьмо")
+ Или ТипОбъекта = Тип("ДокументСсылка.ИсходящееПисьмо")
+ Или ТипОбъекта = Тип("СправочникСсылка.АдресатыПочтовыхСообщений")
+ Или ТипОбъекта = Тип("СправочникСсылка.ВеткиПереписки")
+ Или ТипОбъекта = Тип("СправочникСсылка.ГруппыЗадач")
+ Или ТипОбъекта = Тип("СправочникСсылка.ГруппыИсполнений")
+ Или ТипОбъекта = Тип("СправочникСсылка.Задачи")
+ Или ТипОбъекта = Тип("СправочникСсылка.ЗаписиРабочегоКалендаря")
+ Или ТипОбъекта = Тип("СправочникСсылка.Контроль")
+ Или ТипОбъекта = Тип("СправочникСсылка.ПапкиПисем")
+ Или ТипОбъекта = Тип("СправочникСсылка.Пользователи")
+ Или ТипОбъекта = Тип("СправочникСсылка.ПредметыПроцессов")
+ Или ТипОбъекта = Тип("СправочникСсылка.ПроцессыИсполнение")
+ Или ТипОбъекта = Тип("СправочникСсылка.РолиИсполнителей")
+ Или ТипОбъекта = Тип("СправочникСсылка.УчетныеЗаписи")
+ Или ТипОбъекта = Тип("СправочникСсылка.Файлы")
+ Или ТипОбъекта = Тип("СправочникСсылка.ШаблоныТекстовПисем") Тогда
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформациюПоОбъекту(Информация,
+ Строка(ТипОбъекта), СсылкаНаОбъект.УникальныйИдентификатор());
+
+ Иначе
+ РегистрыСведений.ПротоколСобытий.ДобавитьИнформациюПоОбъекту(Информация, "", "");
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..765d570
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСПротоколомСобытийСервер
+
+
+ ru
+ Работа с протоколом событий сервер
+
+
+
+ false
+ false
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..64ef3e3
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\237\321\200\320\276\321\202\320\276\320\272\320\276\320\273\320\276\320\274\320\241\320\276\320\261\321\213\321\202\320\270\320\271\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,18 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Возвращает признак наличия ошибок произошедших во время обмена с сервером.
+//
+// Параметры:
+// НомерСессии - Число - Номер текущей сессии обмена.
+//
+// Возвращаемое значение:
+// Истина - если во время синхронизации произошли ошибки.
+//
+Функция ЕстьОшибкиВСессииОбмена(НомерСессии = Неопределено) Экспорт
+
+ Возврат РегистрыСведений.ПротоколСобытий.ЕстьОшибкиВСессииОбмена(НомерСессии);
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202.xml"
new file mode 100644
index 0000000..b2047a5
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСФайламиИПредметамиКлиент
+
+
+ ru
+ Работа с файлами и предметами клиент
+
+
+
+ false
+ true
+ false
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
new file mode 100644
index 0000000..c1a007c
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\244\320\260\320\271\320\273\320\260\320\274\320\270\320\230\320\237\321\200\320\265\320\264\320\274\320\265\321\202\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202/Ext/Module.bsl"
@@ -0,0 +1,420 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Выполняет получение файла с сервера загруженного по ссылке.
+//
+// Параметры:
+// Представление - Строка - Представление файла;
+// СсылкаНаФайл - СправочникСсылка.Файлы - Ссылка на файл.
+//
+// Возвращаемое значение:
+// Булево - Признак удачного окончания операции.
+//
+Функция ЗагрузитьФайлССервера(Представление, СсылкаНаФайл) Экспорт
+
+ Результат = Ложь;
+
+ ОбменВызовСервера.ОтправитьИПолучитьДанные(ТекущаяДата(), "ЗагрузитьФайлССервера", Ложь, СсылкаНаФайл);
+
+ Если ОбменКлиент.НайтиИПоказатьОшибкиПриСинхронизации() Тогда
+ Представление = Строка(СсылкаНаФайл);
+
+ Иначе
+ Результат = Истина;
+
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+// Начинает процедуру обработки выбора вложения в форме.
+//
+// Параметры:
+// ЭтаФорма - Форма - Формы в которой произошел вызов;
+// ТекущиеДанные - СтрокаДереваЗначений - Выбранная строка дерева вложений;
+// СтандартнаяОбработка - Булево - Признак стандартной обработки.
+// ИспользоватьОбработчикФормы - Булево - Признак использования обработчика из формы.
+//
+Процедура ОбработатьВыборСтрокиВДеревеВложений(ЭтаФорма, ТекущиеДанные,
+ СтандартнаяОбработка, ИспользоватьОбработчикФормы = Ложь) ЭКспорт
+
+ СтандартнаяОбработка = Ложь;
+
+ Если ТекущиеДанные = Неопределено Тогда
+ Возврат;
+ КонецЕсли;
+
+ Если ТипЗнч(ТекущиеДанные.Ссылка) = Тип("ДокументСсылка.ВходящееПисьмо")
+ Или ТипЗнч(ТекущиеДанные.Ссылка) = Тип("ДокументСсылка.ИсходящееПисьмо") Тогда
+ ПоказатьЗначение(,ТекущиеДанные.Ссылка);
+ Возврат;
+ КонецЕсли;
+
+ Если ТекущиеДанные.ТолькоЗаголовок Тогда
+ ЗадатьВопросОЗагрузкеФайла(
+ ТекущиеДанные, ЭтаФорма, ИспользоватьОбработчикФормы);
+
+ Иначе
+ ОткрытьФайлНаКлиенте(ТекущиеДанные);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Выполняет получение мультимедиа данных от устройства.
+//
+// Параметры:
+// ТипДанных - Строка- Идентификатор данных: "Фото", "Видео" или "Аудио".
+//
+// Возвращаемое значение:
+// ДанныеМультимедиа или Строка - Полученные данные мультимедиа.
+//
+Функция ПолучитьМультимедиаДанные(ТипДанных) Экспорт
+
+ Снимок = Неопределено;
+
+ #Если МобильноеПриложениеКлиент Тогда
+
+ Если ТипДанных = "Фото"
+ И СредстваМультимедиа.ПоддерживаетсяФотоснимок() Тогда
+ Снимок = СредстваМультимедиа.СделатьФотоснимок();
+
+ ИначеЕсли ТипДанных = "Видео"
+ И СредстваМультимедиа.ПоддерживаетсяВидеозапись() Тогда
+ Снимок = СредстваМультимедиа.СделатьВидеозапись();
+
+ ИначеЕсли ТипДанных = "Аудио"
+ И СредстваМультимедиа.ПоддерживаетсяАудиозапись() Тогда
+ Снимок = СредстваМультимедиа.СделатьАудиозапись();
+
+ КонецЕсли;
+
+ #Иначе
+
+ ФильтрДиалога = НСтр("ru = 'Все файлы'; en = 'All files'") + "(*.*)|*.*";
+ ЗаголовокДиалога = НСтр("ru = 'Выберите файл'; en = 'Choose the file'");
+
+ ДиалогВыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
+ ДиалогВыбораФайла.Заголовок = ЗаголовокДиалога;
+ ДиалогВыбораФайла.ПолноеИмяФайла = "";
+ ДиалогВыбораФайла.Фильтр = ФильтрДиалога;
+ ДиалогВыбораФайла.МножественныйВыбор = Ложь;
+
+ Если ДиалогВыбораФайла.Выбрать() Тогда
+ Снимок = ДиалогВыбораФайла.ПолноеИмяФайла;
+ КонецЕсли;
+
+ #КонецЕсли
+
+ Возврат Снимок;
+
+КонецФункции
+
+// Возвращает структуру описание файла мультимедиа.
+//
+// Параметры:
+// Мультимедиа - ДанныеМультимедиа, Строка - Сведения о файле.
+//
+// Возвращаемое значение:
+// Структура - Описание параметров файла мультимедиа.
+// * Ссылка - УникальныйИдентификатор - Идентификатор нового файла;
+// * АдресВременногоФайла - Строка - Путь к файлу на диске;
+// * Тип - Строка - Тип файла (расширение);
+// * Размер - Строка - Представление размера файла;
+// * ИндексКартинки - Число - Индекс картинки в коллекции КоллекцияСтрокПиктограммФайлов;
+// * Представление - Строка - Представление файла (имя).
+//
+Функция ПолучитьПараметрыФайла(Мультимедиа) Экспорт
+
+ Если Мультимедиа = Неопределено Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Если ТипЗнч(Мультимедиа) = Тип("Строка") Тогда
+
+ Файл = Новый Файл(Мультимедиа);
+ Если Не Файл.Существует() Тогда
+ Возврат Неопределено;
+ КонецЕсли;
+
+ Расширение = Сред(Файл.Расширение, 2);
+ РазмерДанных = Файл.Размер();
+ ИмяВременногоФайла = Мультимедиа;
+
+ Иначе
+
+ Расширение = Мультимедиа.РасширениеФайла;
+ ИмяВременногоФайла = ПолучитьИмяВременногоФайла(Расширение);
+
+ ДвоичныеДанные = Мультимедиа.ПолучитьДвоичныеДанные();
+ ДвоичныеДанные.Записать(ИмяВременногоФайла);
+
+ РазмерДанных = ДвоичныеДанные.Размер();
+
+ КонецЕсли;
+
+ РазмерФайла = Формат(РазмерДанных / 1024, "ЧЦ=15; ЧГ=" ) + " кб";
+ Наименование = Формат(ТекущаяДата(), "ДФ=yyyyMMddHHmmss") + "." + Расширение;
+
+ ВозвращаемоеЗначение = Новый Структура();
+ ВозвращаемоеЗначение.Вставить("Ссылка", Новый УникальныйИдентификатор());
+ ВозвращаемоеЗначение.Вставить("Представление", Наименование);
+ ВозвращаемоеЗначение.Вставить("Тип", Расширение);
+ ВозвращаемоеЗначение.Вставить("Размер", РазмерФайла);
+ ВозвращаемоеЗначение.Вставить("АдресВременногоФайла", ИмяВременногоФайла);
+ ВозвращаемоеЗначение.Вставить("ИндексКартинки",
+ ОбщегоНазначенияКлиентСервер.ПолучитьИндексПиктограммыФайла(Расширение));
+
+ Возврат ВозвращаемоеЗначение;
+
+КонецФункции
+
+// Открывает предмет.
+//
+// Параметры:
+// ЭтаФорма - Форма - Форма, откуда произошел вызов;
+// СтандартнаяОбработка - Булево - Признак стандартной обработки в форме;
+// Предмет - СправочникСсылка.Файлы - Ссылка на файл;
+// ИспользоватьОбработчикФормы - Булево - Признак использования обработчика из формы.
+//
+Процедура ОткрытьПредмет(ЭтаФорма, СтандартнаяОбработка, Предмет, ИспользоватьОбработчикФормы = Ложь) Экспорт
+
+ СтандартнаяОбработка = Ложь;
+
+ ПараметрыОткрытия = Новый Структура("Ключ", Предмет);
+
+ Если ТипЗнч(Предмет) = Тип("ДокументСсылка.ВходящееПисьмо") Тогда
+
+ ОткрытьФорму("Документ.ВходящееПисьмо.Форма.ФормаВходящего",
+ ПараметрыОткрытия, ЭтаФорма,,,,,
+ РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
+
+ ИначеЕсли ТипЗнч(Предмет) = Тип("ДокументСсылка.ИсходящееПисьмо") Тогда
+
+ ОткрытьФорму("Документ.ИсходящееПисьмо.Форма.ФормаИсходящего",
+ ПараметрыОткрытия, ЭтаФорма,,,,,
+ РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
+
+ ИначеЕсли ТипЗнч(Предмет) = Тип("СправочникСсылка.Задачи") Тогда
+
+ ОткрытьФорму("Справочник.Задачи.Форма.ФормаЗадачиТелефон",
+ ПараметрыОткрытия, ЭтаФорма,,,,,
+ РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
+
+ ИначеЕсли ТипЗнч(Предмет) = Тип("СправочникСсылка.ПроцессыИсполнение") Тогда
+
+ ОткрытьФорму("Справочник.ПроцессыИсполнение.Форма.ФормаПроцессаТелефон",
+ ПараметрыОткрытия, ЭтаФорма,,,,,
+ РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
+
+ ИначеЕсли ТипЗнч(Предмет) = Тип("СправочникСсылка.ПредметыПроцессов") Тогда
+
+ ТекущиеДанные =
+ ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(
+ Предмет, "Ссылка");
+
+ ОткрытьФайлНаКлиенте(ТекущиеДанные);
+
+ ИначеЕсли ТипЗнч(Предмет) = Тип("СправочникСсылка.Файлы") Тогда
+
+ ТекущиеДанные =
+ ОбщегоНазначенияВызовСервера.ЗначенияРеквизитовОбъекта(
+ Предмет, "ТолькоЗаголовок, Представление, Размер, Ссылка");
+
+ Если ТекущиеДанные.ТолькоЗаголовок Тогда
+ ЗадатьВопросОЗагрузкеФайла(ТекущиеДанные, ЭтаФорма, ИспользоватьОбработчикФормы);
+
+ Иначе
+ ОткрытьФайлНаКлиенте(ТекущиеДанные);
+
+ КонецЕсли;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Показывает содержимое файла на устройстве.
+//
+// Параметры:
+// ИмяФайла - Строка - Имя запускаемого файла.
+//
+Процедура ЗапуститьПриложениеПоИмениФайла(ИмяФайла) Экспорт
+
+ Файл = Новый Файл(ИмяФайла);
+
+ Если ВРег(Файл.Расширение) = ".MXL" Тогда
+
+ ТабличныйДокумент = ОбщегоНазначенияВызовСервера.ПолучитьТабличныйДокументИзФайлаНаСервере(ИмяФайла);
+ ТабличныйДокумент.Показать(Файл.Имя);
+
+ Возврат;
+
+ ИначеЕсли ЗначениеЗаполнено(ИмяФайла) Тогда
+
+ ЗапуститьПриложение(ИмяФайла);
+
+ Возврат;
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Задает вопрос о загрузке файла.
+//
+// Параметры:
+// ТекущиеДанные - ДанныеФормыЭлементКоллекции - текущие данные строки дерева вложений.
+// ЭтаФорма - Форма - Форма в которой будет осуществлен вызов;
+// ИспользоватьОбработчикФормы - Булево - Признак использования обработчика из формы.
+//
+Процедура ЗадатьВопросОЗагрузкеФайла(ТекущиеДанные, ЭтаФорма, ИспользоватьОбработчикФормы = Ложь) Экспорт
+
+ Если НЕ ТекущиеДанные.ТолькоЗаголовок Тогда
+ Возврат;
+ КонецЕсли;
+
+ ДопПараметры = Новый Структура();
+ ДопПараметры.Вставить("ТекущиеДанные", ТекущиеДанные);
+ ДопПараметры.Вставить("ЭтаФорма", ЭтаФорма);
+
+ ОбработчикВыбораПользователя =
+ ПолучитьОбработчикРешенияОЗагрузке(ЭтаФорма, ДопПараметры, ИспользоватьОбработчикФормы);
+
+ ЗаголовокВопроса = ПолучитьТекстЗаголовкаВопросаОЗагрузкеФайла();
+ ТекстВопроса = ПолучитьТекстВопросаОЗагрузкеФайла(ТекущиеДанные);
+ ВариантыВыбора = ПолучитьКнопкиВариантовЗагрузкиФайла();
+ ВариантПоУмолчанию = КодВозвратаДиалога.Нет;
+
+ ПоказатьВопрос(ОбработчикВыбораПользователя, ТекстВопроса, ВариантыВыбора, ,
+ ВариантПоУмолчанию, ЗаголовокВопроса, );
+
+КонецПроцедуры
+
+// Начинает загрузку файла если пользователь согласился его загрузить.
+//
+// Параметры:
+// ОтветПользователя - КодВозвратаДиалога - Решение пользователя о загрузке файла;
+// ДопПараметры - Произвольный - Доп параметры вызова метода.
+//
+Процедура ОбработатьРешениеВопросЗагрузкаФайла(ОтветПользователя, ДопПараметры) Экспорт
+
+ Если ОтветПользователя = КодВозвратаДиалога.Таймаут
+ Или ОтветПользователя = КодВозвратаДиалога.Нет Тогда
+ Возврат;
+ КонецЕсли;
+
+ ЭтаФорма = ДопПараметры.ЭтаФорма;
+
+ ДопПараметры.ТекущиеДанные.Представление =
+ УстановитьПредставлениеТекущейСтрокиПриЗагрузке(
+ ДопПараметры.ТекущиеДанные.Ссылка);
+
+ ЭтаФорма.ПодключитьОбработчикОжидания("ЗагрузитьИОткрытьТекущееВложение", 0.2, Истина);
+
+КонецПроцедуры
+
+// Выполняет открытие файла на устройстве.
+//
+// Параметры:
+// ТекущиеДанные - ДанныеФормыЭлементКоллекции - текущие данные строки дерева вложений.
+//
+Процедура ОткрытьФайлНаКлиенте(ТекущиеДанные) Экспорт
+
+ Вложение = ТекущиеДанные.Ссылка;
+ ИмяФайла = ОбщегоНазначенияВызовСервера.ПолучитьИмяВременногоФайлаДляВложения(Вложение);
+
+ ЗапуститьПриложениеПоИмениФайла(ИмяФайла);
+
+КонецПроцедуры
+
+// Функция - Установить представление текущей строки при загрузке.
+//
+// Параметры:
+// Ссылка - Ссылка - Ссылка на загружаемый файл или предмет.
+//
+// Возвращаемое значение:
+// Строка - представление файла во время загрузки с сервера.
+//
+Функция УстановитьПредставлениеТекущейСтрокиПриЗагрузке(Ссылка) Экспорт
+
+ Возврат СтрШаблон("%1 %2",
+ Строка(Ссылка),
+ НСтр("ru = '(загрузка...)'; en = '(downloading...)'"));
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Получает кнопки вариантов загрузки файла.
+//
+// Возвращаемое значение:
+// СписокЗначений - список вариантов для вопроса о загрузке файла.
+//
+Функция ПолучитьКнопкиВариантовЗагрузкиФайла()
+
+ ВариантыВыбора = Новый СписокЗначений;
+
+ ВариантыВыбора.Добавить(КодВозвратаДиалога.Да ,
+ НСтр("ru = 'Загрузить'; en = 'Download'"));
+
+ ВариантыВыбора.Добавить(КодВозвратаДиалога.Нет,
+ НСтр("ru = 'Не загружать'; en = 'Cancel'"));
+
+ Возврат ВариантыВыбора;
+
+КонецФункции
+
+// Получить текст заголовка вопроса о загрузке файла.
+//
+// Возвращаемое значение:
+// Строка - Текст заголовка к вопросу о загрузке файла.
+//
+Функция ПолучитьТекстЗаголовкаВопросаОЗагрузкеФайла()
+
+ Возврат НСтр("ru = 'Загрузка файла'; en = 'Downloading file'");
+
+КонецФункции
+
+// Получить текст вопроса о загрузке файла.
+//
+// Параметры:
+// ТекущиеДанные - ДанныеФормыЭлементКоллекции - текущие данные строки дерева вложений.
+//
+// Возвращаемое значение:
+// Строка - Текст вопроса о загрузке файла.
+//
+Функция ПолучитьТекстВопросаОЗагрузкеФайла(ТекущиеДанные)
+
+ Возврат СтрШаблон(
+ НСтр("ru = 'Загрузить файл ""%1"" размером %2?';
+ |en = 'Download the file ""%1"" with a size of ""%2""?'"),
+ ТекущиеДанные.Представление,
+ ТекущиеДанные.Размер);
+
+КонецФункции
+
+// Получает обработчик решения о загрузке.
+//
+// Параметры:
+// Форма - Форма - Форма в которой будет вызван обработчик;
+// Параметры - Произвольный - Структура доп параметров для обработчика.
+// ИспользоватьОбработчикФормы - Булево - Признак использования обработчика из формы.
+//
+// Возвращаемое значение:
+// ОписаниеОповещения - Обработчик решения о загрузке файла.
+//
+Функция ПолучитьОбработчикРешенияОЗагрузке(Форма, Параметры, ИспользоватьОбработчикФормы = Ложь)
+
+ Если ИспользоватьОбработчикФормы Тогда
+ ТочкаОбработки = Форма;
+ Иначе
+ ТочкаОбработки = РаботаСФайламиИПредметамиКлиент;
+ КонецЕсли;
+
+ Возврат Новый ОписаниеОповещения("ОбработатьРешениеВопросЗагрузкаФайла", ТочкаОбработки, Параметры);
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..7205c23
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ РаботаСоСтрокамиКлиентСервер
+
+
+ ru
+ Работа со строками клиент сервер
+
+
+
+ false
+ true
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..f830fd0
--- /dev/null
+++ "b/CommonModules/\320\240\320\260\320\261\320\276\321\202\320\260\320\241\320\276\320\241\321\202\321\200\320\276\320\272\320\260\320\274\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,327 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Заменяет повторное вхождение символа на одиночное.
+//
+// Параметры:
+// Текст - Строка - Обрабатываемый текст;
+// Символ - Строка - Исключаемый символ.
+//
+// Возвращаемое значение:
+// Строка - обработанный текст.
+//
+Функция СократитьПовторноеВхождениеСимвола(Текст, Символ) Экспорт
+
+ ВременныйТекст = Текст;
+ ПозицияДвойногоСимвола = СтрНайти(ВременныйТекст, Символ + Символ);
+
+ Пока Не ПозицияДвойногоСимвола = 0 Цикл
+ ВременныйТекст = СтрЗаменить(ВременныйТекст, Символ + Символ, Символ);
+ ПозицияДвойногоСимвола = СтрНайти(ВременныйТекст, Символ + Символ);
+ КонецЦикла;
+
+ Возврат ВременныйТекст;
+
+КонецФункции
+
+// Возвращает текстовое представление числа с единицей измерения в правильном склонении и числе.
+//
+// Параметры:
+// Число - Число - любое целое число.
+// ПараметрыПредметаИсчисления - Строка - варианты написания единицы измерения в родительном падеже для одной,
+// для двух и для пяти единиц, разделитель - запятая.
+//
+// Возвращаемое значение:
+// Строка - текстовое представление количества единиц, число записывается цифрами.
+//
+// Примеры:
+// ЧислоЦифрамиПредметИсчисленияПрописью(23, НСтр("ru = 'минуту,минуты,минут'")); // Вернет "23 минуты".
+// ЧислоЦифрамиПредметИсчисленияПрописью(15, НСтр("ru = 'минуту,минуты,минут'")); // Вернет "15 минут".
+//
+Функция ЧислоЦифрамиПредметИсчисленияПрописью(Знач Число, Знач ПараметрыПредметаИсчисления) Экспорт
+
+ Результат = Формат(Число,"ЧН=0");
+
+ МассивПредставлений = Новый Массив;
+
+ Позиция = СтрНайти(ПараметрыПредметаИсчисления, ",");
+ Пока Позиция > 0 Цикл
+
+ Значение = СокрЛП(Лев(ПараметрыПредметаИсчисления, Позиция-1));
+
+ ПараметрыПредметаИсчисления = Сред(ПараметрыПредметаИсчисления, Позиция + 1);
+
+ МассивПредставлений.Добавить(Значение);
+
+ Позиция = СтрНайти(ПараметрыПредметаИсчисления, ",");
+
+ КонецЦикла;
+
+ Если СтрДлина(ПараметрыПредметаИсчисления) > 0 Тогда
+ Значение = СокрЛП(ПараметрыПредметаИсчисления);
+ МассивПредставлений.Добавить(Значение);
+ КонецЕсли;
+
+ Если Число >= 100 Тогда
+ Число = Число - Цел(Число / 100)*100;
+ КонецЕсли;
+
+ Если Число > 20 Тогда
+ Число = Число - Цел(Число/10)*10;
+ КонецЕсли;
+
+ Если Число = 1 Тогда
+ Результат = Результат + " " + МассивПредставлений[0];
+ ИначеЕсли Число > 1 И Число < 5 Тогда
+ Результат = Результат + " " + МассивПредставлений[1];
+ Иначе
+ Результат = Результат + " " + МассивПредставлений[2];
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+// Возвращает текстовое представление единицы измерения в правильном склонении и числе.
+//
+// Параметры:
+// Число - Число - любое целое число.
+// ПараметрыПредметаИсчисления - Строка - варианты написания единицы измерения в родительном падеже для одной,
+// для двух и для пяти единиц, разделитель - запятая.
+// Пример: "минуту,минуты,минут".
+//
+// Возвращаемое значение:
+// Строка - текстовое представление единицы измерения.
+//
+Функция ПредметИсчисленияПрописью(Знач Число, Знач ПараметрыПредметаИсчисления) Экспорт
+
+ Результат = "";
+
+ МассивПредставлений = Новый Массив;
+
+ Позиция = СтрНайти(ПараметрыПредметаИсчисления, ",");
+ Пока Позиция > 0 Цикл
+ Значение = СокрЛП(Лев(ПараметрыПредметаИсчисления, Позиция-1));
+ ПараметрыПредметаИсчисления = Сред(ПараметрыПредметаИсчисления, Позиция + 1);
+ МассивПредставлений.Добавить(Значение);
+ Позиция = СтрНайти(ПараметрыПредметаИсчисления, ",");
+ КонецЦикла;
+
+ Если СтрДлина(ПараметрыПредметаИсчисления) > 0 Тогда
+ Значение = СокрЛП(ПараметрыПредметаИсчисления);
+ МассивПредставлений.Добавить(Значение);
+ КонецЕсли;
+
+ Если Число >= 100 Тогда
+ Число = Число - Цел(Число / 100)*100;
+ КонецЕсли;
+
+ Если Число > 20 Тогда
+ Число = Число - Цел(Число/10)*10;
+ КонецЕсли;
+
+ Если Число = 1 Тогда
+ Результат = МассивПредставлений[0];
+ ИначеЕсли Число > 1 И Число < 5 Тогда
+ Результат = МассивПредставлений[1];
+ Иначе
+ Результат = МассивПредставлений[2];
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+
+// Проверяет строку на формат адреса электронной почты. Проверка не точная, но основные элементы на месте.
+//
+// Параметры:
+// АдресЭлектроннойПочты - Строка - Адрес электронной почты.
+//
+// Возвращаемое значение:
+// Булево - Истина, если да.
+//
+Функция ЭтоАдресЭлектроннойПочты(АдресЭлектроннойПочты) Экспорт
+
+ Поз = СтрНайти(АдресЭлектроннойПочты, "@");
+ Если Поз = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если Не СтрЧислоВхождений(АдресЭлектроннойПочты, "@") = 1 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если СтрЗаканчиваетсяНа(АдресЭлектроннойПочты, ".")
+ Или СтрНачинаетсяС(АдресЭлектроннойПочты, ".") Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если СтрНайти(АдресЭлектроннойПочты, "..") > 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если Не СтрокаСодержитТолькоДопустимыеСимволы(АдресЭлектроннойПочты) Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Пользователь = Лев(АдресЭлектроннойПочты, Поз - 1);
+ Если СтрДлина(Пользователь) = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Сервер = Сред(АдресЭлектроннойПочты, Поз + 1);
+ Если СтрДлина(Сервер) = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если СтрНайти(Сервер, ".") = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Возврат Истина;
+
+КонецФункции
+
+// Принимает строку почтового адреса в виде "name ".
+//
+// Параметры:
+// АдресЭлектроннойПочтыСтр - Строка - Адрес электронной почты.
+//
+// Возвращаемое значение:
+// Результат - (Структура)
+// * Адрес - Строка - addr@dom;
+// * ОтображаемоеИмя - Строка - name;
+// * Пользователь - Строка - addr;
+// * Домен - Строка - dom.
+//
+Функция РазложитьПредставлениеАдресаЭлектроннойПочты(Знач АдресЭлектроннойПочтыСтр) Экспорт
+
+ Результат = Новый Структура();
+ Результат.Вставить("Адрес", "");
+ Результат.Вставить("ОтображаемоеИмя", "");
+ Результат.Вставить("Пользователь", "");
+ Результат.Вставить("Домен", "");
+ Результат.Вставить("ПолноеИмя", "");
+
+ АдресЭлектроннойПочтыСтр = СокрЛП(АдресЭлектроннойПочтыСтр);
+
+ Поз = СтрНайти(АдресЭлектроннойПочтыСтр, "@");
+ Если Поз = 0 Тогда
+ Возврат Результат;
+ КонецЕсли;
+
+ СтрокаАдреса = "";
+ ПозицияПервогоСимволаАдреса = 0;
+ ПозицияПоследнегоСимволаАдреса = 0;
+
+ // Идем влево от @
+ Для Индекс = 0 По Поз - 1 Цикл
+
+ ИндексВСтроке = Поз - Индекс;
+ СтрокаАдресаПроверка = Сред(АдресЭлектроннойПочтыСтр, ИндексВСтроке, 1) + СтрокаАдреса;
+
+ Если СтрокаСодержитТолькоДопустимыеСимволы(СтрокаАдресаПроверка) Тогда
+ СтрокаАдреса = СтрокаАдресаПроверка;
+ ПозицияПервогоСимволаАдреса = ИндексВСтроке;
+ Иначе
+ Прервать;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ // Идем вправо от @
+ Для ИндексВСтроке = Поз + 1 По СтрДлина(АдресЭлектроннойПочтыСтр) Цикл
+
+ СтрокаАдресаПроверка = СтрокаАдреса + Сред(АдресЭлектроннойПочтыСтр, ИндексВСтроке, 1);
+
+ Если СтрокаСодержитТолькоДопустимыеСимволы(СтрокаАдресаПроверка) Тогда
+ СтрокаАдреса = СтрокаАдресаПроверка;
+ ПозицияПоследнегоСимволаАдреса = ИндексВСтроке;
+ Иначе
+ Прервать;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Результат.Адрес = СтрокаАдреса;
+
+ // Слева от адреса берем представление
+ Результат.ОтображаемоеИмя = Лев(АдресЭлектроннойПочтыСтр, ПозицияПервогоСимволаАдреса - 2);
+ Результат.ОтображаемоеИмя = СокрЛП(Результат.ОтображаемоеИмя);
+
+ Если Не РаботаСоСтрокамиКлиентСервер.ЭтоАдресЭлектроннойПочты(Результат.Адрес) Тогда
+ Результат.Адрес = "";
+
+ Иначе
+ Поз = СтрНайти(Результат.Адрес, "@");
+
+ Результат.Пользователь = Лев(Результат.Адрес, Поз - 1);
+ Результат.Домен = Сред(Результат.Адрес, Поз + 1);
+
+ КонецЕсли;
+
+ Если ЗначениеЗаполнено(Результат.ОтображаемоеИмя) Тогда
+ Результат.ПолноеИмя =
+ СтрШаблон(
+ "%1 <%2>", Результат.ОтображаемоеИмя, Результат.Адрес);
+ Иначе
+ Результат.ПолноеИмя = Результат.Адрес;
+ КонецЕсли;
+
+ Возврат Результат;
+
+КонецФункции
+
+// Формирует текст ошибки для записи в протокол событий.
+//
+// Параметры:
+// ОбщееОписаниеОшибки - Строка - Общая информация об ошибке;
+// ПодробнаяИнформация - Строка - Подробности произошедшего;
+// Уточнения - Строка - Дополнительные сведения об ошибке.
+//
+// Возвращаемое значение:
+// Строка - Сформированный текст ошибки.
+//
+Функция СформироватьПредставлениеОшибки(ОбщееОписаниеОшибки, ПодробнаяИнформация, Уточнения = "") Экспорт
+
+ Шаблон =
+ "ru = '%1
+ |
+ |#Текст ошибки (для администратора):#
+ |%2
+ |
+ |Дополнительные сведения:
+ |%3'; en = '%1
+ |
+ |#Error details (for administrator):#
+ |%2
+ |
+ |Additional data:
+ |%3'";
+
+ Возврат СтрШаблон(НСтр(Шаблон), ОбщееОписаниеОшибки, ПодробнаяИнформация, Уточнения);
+
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция СтрокаСодержитТолькоДопустимыеСимволы(АдресЭлектроннойПочты)
+
+ ДопустимыеСимволы = "-.0123456789@ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz";
+
+ Для НомерСимвола = 1 По СтрДлина(АдресЭлектроннойПочты) Цикл
+
+ Если СтрНайти(ДопустимыеСимволы, Сред(АдресЭлектроннойПочты, НомерСимвола, 1)) = 0 Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ КонецЦикла;
+
+ Возврат Истина;
+
+КонецФункции
+
+#КонецОбласти
diff --git "a/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml" "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
new file mode 100644
index 0000000..5165f3c
--- /dev/null
+++ "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ СборСтатистикиВызовСервера
+
+
+ ru
+ Сбор статистики вызов сервера
+
+
+
+ false
+ false
+ true
+ false
+ false
+ true
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl" "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
new file mode 100644
index 0000000..7707f6e
--- /dev/null
+++ "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\222\321\213\320\267\320\276\320\262\320\241\320\265\321\200\320\262\320\265\321\200\320\260/Ext/Module.bsl"
@@ -0,0 +1,134 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Удаляет все собранные показатели статистики
+//
+Процедура УдалитьВсеСобранныеПоказатели() Экспорт
+
+ Набор = РегистрыСведений.ПоказателиСтатистики.СоздатьНаборЗаписей();
+ Набор.Записать(Истина);
+
+КонецПроцедуры
+
+// Создает запись статистических данных.
+//
+// Параметры:
+// Показатель - Строка - Имя показателя статистики.
+// Значение - Строка, Число, Булево - Значение показателя.
+//
+Процедура ЗаписатьПоказатель(Показатель, Значение = Неопределено) Экспорт
+
+ Запись = РегистрыСведений.ПоказателиСтатистики.СоздатьМенеджерЗаписи();
+ Запись.Показатель = Показатель;
+ Запись.МоментВремени = ТекущаяУниверсальнаяДатаВМиллисекундах();
+
+ Если Не Значение = Неопределено Тогда
+ Запись.Значение = Значение;
+ КонецЕсли;
+
+ Запись.Записать();
+
+КонецПроцедуры
+
+// Начинает процедуру отправки данных статистики на сервер.
+//
+Процедура ОтправитьСтатистику() Экспорт
+
+ ИмяФоновогоЗадания = "ОтправкаСтатистики";
+
+ Отбор = Новый Структура();
+ Отбор.Вставить("Наименование", ИмяФоновогоЗадания);
+ Отбор.Вставить("Состояние", СостояниеФоновогоЗадания.Активно);
+
+ МассивЗаданий = ФоновыеЗадания.ПолучитьФоновыеЗадания(Отбор);
+ Если МассивЗаданий.Количество() = 0 Тогда
+
+ Параметры = Новый Массив();
+ Параметры.Добавить(ТекущаяУниверсальнаяДатаВМиллисекундах());
+
+ ФоновыеЗадания.Выполнить("СборСтатистикиВызовСервера.ОтправитьСтатистикуВФоне",
+ Параметры, Новый УникальныйИдентификатор, ИмяФоновогоЗадания);
+
+ КонецЕсли;
+
+КонецПроцедуры
+
+// Отправляет показатели статистики на сервер в фоне.
+//
+// Параметры:
+// МоментВремени - Число - Граница выборки передаваемых данных.
+//
+Процедура ОтправитьСтатистикуВФоне(МоментВремени) Экспорт
+
+ // Получаем данные показателей до указанной границы
+ Запрос = Новый Запрос();
+ Запрос.УстановитьПараметр("МоментВремени", МоментВремени);
+ Запрос.Текст =
+ "ВЫБРАТЬ
+ | ПоказателиСтатистики.МоментВремени,
+ | ПоказателиСтатистики.Показатель,
+ | ПоказателиСтатистики.Значение
+ |ИЗ
+ | РегистрСведений.ПоказателиСтатистики КАК ПоказателиСтатистики
+ |ГДЕ
+ | ПоказателиСтатистики.МоментВремени <= &МоментВремени
+ |
+ |УПОРЯДОЧИТЬ ПО
+ | ПоказателиСтатистики.МоментВремени
+ |АВТОУПОРЯДОЧИВАНИЕ";
+
+ // Отправляем каждую полученную пару Показатель-Значение.
+ Выборка = Запрос.Выполнить().Выбрать();
+ Пока Выборка.Следующий() Цикл
+
+ Попытка
+
+ // Выполняем подключение к серверу и передачу данных.
+ HTTPСоединение = Новый HTTPСоединение("unf-stat1c-gpt-msk.1c.ru", 80,,,, 120);
+ ПутьНаСервере =
+ "/unf-stat1c/hs/analytics/sendstats/"
+ + СборСтатистикиКлиентСервер.ПолучитьИдентификаторПриложения() + "/"
+ + СборСтатистикиКлиентСервер.ПолучитьИдентификаторЭкземпляра() + "/"
+ + Выборка.Показатель;
+
+ HTTPЗапрос = Новый HTTPЗапрос(ПутьНаСервере);
+ Если ЗначениеЗаполнено(Выборка.Значение) Тогда
+ HTTPЗапрос.УстановитьТелоИзСтроки(Выборка.Значение);
+ КонецЕсли;
+
+ Результат = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);
+
+ // Удаляем переданную запись из регистра.
+ Запись = РегистрыСведений.ПоказателиСтатистики.СоздатьМенеджерЗаписи();
+
+ Запись.Показатель = Выборка.Показатель;
+ Запись.МоментВремени = Выборка.МоментВремени;
+
+ Запись.Прочитать();
+
+ Если Запись.Выбран() Тогда
+ Запись.Удалить();
+ КонецЕсли;
+
+ Исключение
+
+ ОбщееОписаниеОшибки =
+ НСтр("ru = 'Не удалось отправить данные статистики.'; en = 'Can't send statistics data.'");
+
+ ТекстОшибки =
+ РаботаСоСтрокамиКлиентСервер.СформироватьПредставлениеОшибки(
+ ОбщееОписаниеОшибки, ПодробноеПредставлениеОшибки(ОписаниеОшибки()));
+
+ РаботаСПротоколомСобытийВызовСервера.ДобавитьОшибку(ТекстОшибки);
+
+ // В случае ошибки, прерываем передачу, чтобы не было множественных запросов с ошибками.
+ Прервать;
+
+ КонецПопытки;
+
+ КонецЦикла;
+
+КонецПроцедуры
+
+#КонецОбласти
+
diff --git "a/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..d1038c8
--- /dev/null
+++ "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ СборСтатистикиКлиентСервер
+
+
+ ru
+ Сбор статистики клиент сервер
+
+
+
+ false
+ true
+ true
+ false
+ false
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..b91dc1e
--- /dev/null
+++ "b/CommonModules/\320\241\320\261\320\276\321\200\320\241\321\202\320\260\321\202\320\270\321\201\321\202\320\270\320\272\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,63 @@
+
+#Область ПрограммныйИнтерфейс
+
+// Возвращает идентификатор приложения в базе статистики.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор приложения в базе статистики.
+//
+Функция ПолучитьИдентификаторПриложения() Экспорт
+
+ Возврат "135ac50a-c4d0-11e5-1598-0050569f4ccd";
+
+КонецФункции
+
+// Возвращает идентификатор устройства (базы) для сбора статистики.
+//
+// Возвращаемое значение:
+// Строка - Идентификатор устройства.
+//
+Функция ПолучитьИдентификаторЭкземпляра() Экспорт
+
+ Возврат Строка(ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("КодУстройства"));
+
+КонецФункции
+
+// Выполняет сбор статистики для показателей которые собираются в момент старта.
+//
+Процедура СобратьДанныеСтатистикиПриОбновлении() Экспорт
+
+ СисИнфо = Новый СистемнаяИнформация();
+
+ // записываем показатели которые должны менять только при изменении
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Окружение.ВерсияОС", СисИнфо.ВерсияОС);
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Окружение.ЯзыкСистемы", ТекущийЯзыкСистемы());
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Окружение.ДиагональЭкрана",
+ ЭкранКлиентСервер.ДиагональЭкрана());
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Приложение.ВерсияКлиента",
+ ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ВерсияДокументооборота"));
+
+ Если ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ИспользоватьПароль")
+ И Не ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("ХешПароля") = 0 Тогда
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Параметры.УстановленПароль");
+ КонецЕсли;
+
+ СборСтатистикиВызовСервера.ЗаписатьПоказатель("Параметры.Протокол", ПолучитьТипПодключения());
+
+КонецПроцедуры
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция ПолучитьТипПодключения()
+
+ СтрокаПодключения = ОбщегоНазначенияВызовСервера.ПолучитьЗначениеКонстанты("АдресЦентральнойБазы");
+ ПозицияРазделителя = СтрНайти(СтрокаПодключения, ":");
+
+ Возврат НРег(Лев(СтрокаПодключения, ПозицияРазделителя - 1));
+
+КонецФункции
+
+#КонецОбласти
\ No newline at end of file
diff --git "a/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml" "b/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
new file mode 100644
index 0000000..cb604a8
--- /dev/null
+++ "b/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200.xml"
@@ -0,0 +1,23 @@
+
+
+
+
+ СтроковыеФункцииКлиентСервер
+
+
+ ru
+ Строковые функции клиент сервер
+
+
+
+ false
+ true
+ true
+ true
+ true
+ false
+ false
+ DontUse
+
+
+
\ No newline at end of file
diff --git "a/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
new file mode 100644
index 0000000..c2109cc
--- /dev/null
+++ "b/CommonModules/\320\241\321\202\321\200\320\276\320\272\320\276\320\262\321\213\320\265\320\244\321\203\320\275\320\272\321\206\320\270\320\270\320\232\320\273\320\270\320\265\320\275\321\202\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl"
@@ -0,0 +1,1212 @@
+////////////////////////////////////////////////////////////////////////////////
+// Подсистема "Базовая функциональность".
+//
+////////////////////////////////////////////////////////////////////////////////
+
+// #Область ПрограммныйИнтерфейс
+
+//// Разбивает строку на несколько строк по разделителю. Разделитель может иметь любую длину.
+////
+//// Параметры:
+//// Строка - Строка - текст с разделителями;
+//// Разделитель - Строка - разделитель строк текста, минимум 1 символ;
+//// ПропускатьПустыеСтроки - Булево - признак необходимости включения в результат пустых строк.
+//// Если параметр не задан, то функция работает в режиме совместимости со своей предыдущей версией:
+//// - для разделителя-пробела пустые строки не включаются в результат, для остальных разделителей пустые строки
+//// включаются в результат.
+//// - если параметр Строка не содержит значащих символов или не содержит ни одного символа (пустая строка), то в
+//// случае разделителя-пробела результатом функции будет массив, содержащий одно значение "" (пустая строка), а
+//// при других разделителях результатом функции будет пустой массив.
+//// СокращатьНепечатаемыеСимволы - Булево - сокращать непечатаемые символы по краям каждой из найденных подстрок.
+////
+//// Возвращаемое значение:
+//// Массив - массив строк.
+////
+//// Примеры:
+//// РазложитьСтрокуВМассивПодстрок(",один,,два,", ",") - возвратит массив из 5 элементов, три из которых - пустые
+//// строки;
+//// РазложитьСтрокуВМассивПодстрок(",один,,два,", ",", Истина) - возвратит массив из двух элементов;
+//// РазложитьСтрокуВМассивПодстрок(" один два ", " ") - возвратит массив из двух элементов;
+//// РазложитьСтрокуВМассивПодстрок("") - возвратит пустой массив;
+//// РазложитьСтрокуВМассивПодстрок("",,Ложь) - возвратит массив с одним элементом "" (пустой строкой);
+//// РазложитьСтрокуВМассивПодстрок("", " ") - возвратит массив с одним элементом "" (пустой строкой);
+////
+//// Примечание:
+//// В случаях, когда разделителем является строка из одного символа, и не используется параметр СокращатьНепечатаемыеСимволы,
+//// рекомендуется использовать функцию платформы СтрРазделить.
+//Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено, СокращатьНепечатаемыеСимволы = Ложь) Экспорт
+//
+// Результат = Новый Массив;
+//
+// // Для обеспечения обратной совместимости.
+// Если ПропускатьПустыеСтроки = Неопределено Тогда
+// ПропускатьПустыеСтроки = ?(Разделитель = " ", Истина, Ложь);
+// Если ПустаяСтрока(Строка) Тогда
+// Если Разделитель = " " Тогда
+// Результат.Добавить("");
+// КонецЕсли;
+// Возврат Результат;
+// КонецЕсли;
+// КонецЕсли;
+// //
+//
+// Позиция = СтрНайти(Строка, Разделитель);
+// Пока Позиция > 0 Цикл
+// Подстрока = Лев(Строка, Позиция - 1);
+// Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Подстрока) Тогда
+// Если СокращатьНепечатаемыеСимволы Тогда
+// Результат.Добавить(СокрЛП(Подстрока));
+// Иначе
+// Результат.Добавить(Подстрока);
+// КонецЕсли;
+// КонецЕсли;
+// Строка = Сред(Строка, Позиция + СтрДлина(Разделитель));
+// Позиция = СтрНайти(Строка, Разделитель);
+// КонецЦикла;
+//
+// Если Не ПропускатьПустыеСтроки Или Не ПустаяСтрока(Строка) Тогда
+// Если СокращатьНепечатаемыеСимволы Тогда
+// Результат.Добавить(СокрЛП(Строка));
+// Иначе
+// Результат.Добавить(Строка);
+// КонецЕсли;
+// КонецЕсли;
+//
+// Возврат Результат;
+//
+//КонецФункции
+
+//// Определяет, является ли символ разделителем.
+////
+//// Параметры:
+//// КодСимвола - Число - код проверяемого символа;
+//// РазделителиСлов - Строка - символы разделителей.
+////
+//// Возвращаемое значение:
+//// Булево - истина, если символ является разделителем.
+////
+//Функция ЭтоРазделительСлов(КодСимвола, РазделителиСлов = Неопределено) Экспорт
+//
+// Если РазделителиСлов <> Неопределено Тогда
+// Возврат СтрНайти(РазделителиСлов, Символ(КодСимвола)) > 0;
+// КонецЕсли;
+//
+// Диапазоны = Новый Массив;
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 48, 57)); // цифры
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 65, 90)); // латиница большие
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 97, 122)); // латиница маленькие
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 1040, 1103)); // кириллица
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 1025, 1025)); // символ "Ё"
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 1105, 1105)); // символ "ё"
+// Диапазоны.Добавить(Новый Структура("Мин,Макс", 95, 95)); // символ "_"
+//
+// Для Каждого Диапазон Из Диапазоны Цикл
+// Если КодСимвола >= Диапазон.Мин И КодСимвола <= Диапазон.Макс Тогда
+// Возврат Ложь;
+// КонецЕсли;
+// КонецЦикла;
+//
+// Возврат Истина;
+//
+//КонецФункции
+
+//// Разбивает строку на несколько строк, используя заданный набор разделителей.
+//// Если параметр РазделителиСлов не задан, то разделителем слов считается любой из символов,
+//// не относящихся к символам латиницы, кириллицы, цифры, подчеркивания.
+////
+//// Параметры:
+//// Строка - Строка - строка, которую необходимо разложить на слова.
+//// РазделителиСлов - Строка - строка, содержащая символы-разделители.
+////
+//// Возвращаемое значение:
+//// массив значений, элементы которого - отдельные слова.
+////
+//// Пример:
+//// РазложитьСтрокуВМассивСлов("один-@#два2_!три") возвратит массив значений: "один", "два2_", "три";
+//// РазложитьСтрокуВМассивСлов("один-@#два2_!три", "#@!_") возвратит массив значений: "один-", "два2", "три".
+////
+//Функция РазложитьСтрокуВМассивСлов(Знач Строка, РазделителиСлов = Неопределено) Экспорт
+//
+// Слова = Новый Массив;
+//
+// РазмерТекста = СтрДлина(Строка);
+// НачалоСлова = 1;
+// Для Позиция = 1 По РазмерТекста Цикл
+// КодСимвола = КодСимвола(Строка, Позиция);
+// Если ЭтоРазделительСлов(КодСимвола, РазделителиСлов) Тогда
+// Если Позиция <> НачалоСлова Тогда
+// Слова.Добавить(Сред(Строка, НачалоСлова, Позиция - НачалоСлова));
+// КонецЕсли;
+// НачалоСлова = Позиция + 1;
+// КонецЕсли;
+// КонецЦикла;
+//
+// Если Позиция <> НачалоСлова Тогда
+// Слова.Добавить(Сред(Строка, НачалоСлова, Позиция - НачалоСлова));
+// КонецЕсли;
+//
+// Возврат Слова;
+//
+//КонецФункции
+
+// Подставляет параметры в строку. Максимально возможное число параметров - 9.
+// Параметры в строке задаются как %<номер параметра>. Нумерация параметров начинается с единицы.
+//
+// Параметры:
+// СтрокаПодстановки - Строка - шаблон строки с параметрами (вхождениями вида "%ИмяПараметра");
+// Параметр - Строка - подставляемый параметр.
+//
+// Возвращаемое значение:
+// Строка - текстовая строка с подставленными параметрами.
+//
+// Пример:
+// ПодставитьПараметрыВСтроку(НСтр("ru='%1 пошел в %2'"), "Вася", "Зоопарк") = "Вася пошел в Зоопарк".
+//
+// Примечание:
+// В случаях, когда число используемых параметров в строке совпадает с числом переданных для подстановки параметров,
+// рекомендуется использовать функцию платформы СтрШаблон.
+Функция ПодставитьПараметрыВСтроку(Знач СтрокаПодстановки,
+ Знач Параметр1, Знач Параметр2 = Неопределено, Знач Параметр3 = Неопределено,
+ Знач Параметр4 = Неопределено, Знач Параметр5 = Неопределено, Знач Параметр6 = Неопределено,
+ Знач Параметр7 = Неопределено, Знач Параметр8 = Неопределено, Знач Параметр9 = Неопределено) Экспорт
+
+ ИспользоватьАльтернативныйАлгоритм =
+ СтрНайти(Параметр1, "%")
+ Или СтрНайти(Параметр2, "%")
+ Или СтрНайти(Параметр3, "%")
+ Или СтрНайти(Параметр4, "%")
+ Или СтрНайти(Параметр5, "%")
+ Или СтрНайти(Параметр6, "%")
+ Или СтрНайти(Параметр7, "%")
+ Или СтрНайти(Параметр8, "%")
+ Или СтрНайти(Параметр9, "%");
+
+ Если ИспользоватьАльтернативныйАлгоритм Тогда
+ СтрокаПодстановки = ПодставитьПараметрыВСтрокуАльтернативныйАлгоритм(СтрокаПодстановки, Параметр1,
+ Параметр2, Параметр3, Параметр4, Параметр5, Параметр6, Параметр7, Параметр8, Параметр9);
+ Иначе
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%1", Параметр1);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%2", Параметр2);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%3", Параметр3);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%4", Параметр4);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%5", Параметр5);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%6", Параметр6);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%7", Параметр7);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%8", Параметр8);
+ СтрокаПодстановки = СтрЗаменить(СтрокаПодстановки, "%9", Параметр9);
+ КонецЕсли;
+
+ Возврат СтрокаПодстановки;
+КонецФункции
+
+//// Подставляет параметры в строку. Число параметров в строке не ограничено.
+//// Параметры в строке задаются как %<номер параметра>. Нумерация параметров
+//// начинается с единицы.
+////
+//// Параметры:
+//// СтрокаПодстановки - Строка - шаблон строки с параметрами (вхождениями вида "%1");
+//// МассивПараметров - Массив - массив строк, которые соответствуют параметрам в строке подстановки.
+////
+//// Возвращаемое значение:
+//// Строка - строка с подставленными параметрами.
+////
+//// Пример:
+//// МассивПараметров = Новый Массив;
+//// МассивПараметров = МассивПараметров.Добавить("Вася");
+//// МассивПараметров = МассивПараметров.Добавить("Зоопарк");
+////
+//// Строка = ПодставитьПараметрыВСтроку(НСтр("ru='%1 пошел в %2'"), МассивПараметров);
+////
+//Функция ПодставитьПараметрыВСтрокуИзМассива(Знач СтрокаПодстановки, Знач МассивПараметров) Экспорт
+//
+// СтрокаРезультата = СтрокаПодстановки;
+//
+// Индекс = МассивПараметров.Количество();
+// Пока Индекс > 0 Цикл
+// Значение = МассивПараметров[Индекс-1];
+// Если Не ПустаяСтрока(Значение) Тогда
+// СтрокаРезультата = СтрЗаменить(СтрокаРезультата, "%" + Формат(Индекс, "ЧГ="), Значение);
+// КонецЕсли;
+// Индекс = Индекс - 1;
+// КонецЦикла;
+//
+// Возврат СтрокаРезультата;
+//
+//КонецФункции
+
+//// Заменяет в шаблоне строки имена параметров на их значения. Параметры в строке выделяются с двух сторон квадратными
+//// скобками.
+////
+//// Параметры:
+////
+//// ШаблонСтроки - Строка - строка, в которую необходимо вставить значения.
+//// ВставляемыеЗначения - Структура - структура значений, где ключ - имя параметра без спецсимволов,
+//// значение - вставляемое значение.
+////
+//// Возвращаемое значение:
+//// Строка - строка со вставленными значениями.
+////
+//// Пример использования:
+//// ВставитьПараметрыВСтроку("Здравствуй, [Имя] [Фамилия].", Новый Структура("Фамилия,Имя", "Пупкин", "Вася"));
+//// Возвращает: "Здравствуй, Вася Пупкин".
+//Функция ВставитьПараметрыВСтроку(Знач ШаблонСтроки, ВставляемыеЗначения) Экспорт
+// Результат = ШаблонСтроки;
+// Для Каждого Параметр Из ВставляемыеЗначения Цикл
+// Результат = СтрЗаменить(Результат, "[" + Параметр.Ключ + "]", Параметр.Значение);
+// КонецЦикла;
+// Возврат Результат;
+//КонецФункции
+
+//// Получает значения параметров из строки.
+////
+//// Параметры:
+//// СтрокаПараметров - Строка - строка, содержащая параметры, каждый из которых представляет собой
+//// фрагмент вида <Имя параметра>=<Значение>, где:
+//// Имя параметра - имя параметра;
+//// Значение - его значение.
+//// Фрагменты отделяются друг от друга символами ';'.
+//// Если значение содержит пробельные символы, то оно должно быть заключено в двойные
+//// кавычки (").
+//// Например:
+//// "File=""c:\InfoBases\Trade""; Usr=""Director"";"
+//// Разделитель - Строка - символ, которым фрагменты отделяются друг от друга.
+////
+//// Возвращаемое значение:
+//// Структура - структура параметров, где ключ - имя параметра, значение - значение параметра.
+////
+//Функция ПолучитьПараметрыИзСтроки(Знач СтрокаПараметров, Знач Разделитель = ";") Экспорт
+// Результат = Новый Структура;
+//
+// ОписаниеПараметра = "";
+// НайденоНачалоСтроки = Ложь;
+// НомерПоследнегоСимвола = СтрДлина(СтрокаПараметров);
+// Для НомерСимвола = 1 По НомерПоследнегоСимвола Цикл
+// Символ =Сред(СтрокаПараметров, НомерСимвола, 1);
+// Если Символ = """" Тогда
+// НайденоНачалоСтроки = Не НайденоНачалоСтроки;
+// КонецЕсли;
+// Если Символ <> Разделитель Или НайденоНачалоСтроки Тогда
+// ОписаниеПараметра = ОписаниеПараметра + Символ;
+// КонецЕсли;
+// Если Символ = Разделитель И Не НайденоНачалоСтроки Или НомерСимвола = НомерПоследнегоСимвола Тогда
+// Позиция = СтрНайти(ОписаниеПараметра, "=");
+// Если Позиция > 0 Тогда
+// ИмяПараметра = СокрЛП(Лев(ОписаниеПараметра, Позиция - 1));
+// ЗначениеПараметра = СокрЛП(Сред(ОписаниеПараметра, Позиция + 1));
+// ЗначениеПараметра = СократитьДвойныеКавычки(ЗначениеПараметра);
+// Результат.Вставить(ИмяПараметра, ЗначениеПараметра);
+// КонецЕсли;
+// ОписаниеПараметра = "";
+// КонецЕсли;
+// КонецЦикла;
+//
+// Возврат Результат;
+//КонецФункции
+
+// Проверяет, содержит ли строка только цифры.
+//
+// Параметры:
+// СтрокаПроверки - Строка - Строка для проверки.
+// УчитыватьЛидирующиеНули - Булево - Флаг учета лидирующих нулей, если Истина, то ведущие нули пропускаются.
+// УчитыватьПробелы - Булево - Флаг учета пробелов, если Истина, то пробелы при проверке игнорируются.
+//
+// Возвращаемое значение:
+// Булево - Истина - строка содержит только цифры или пустая, Ложь - строка содержит иные символы.
+//
+Функция ТолькоЦифрыВСтроке(Знач СтрокаПроверки, Знач УчитыватьЛидирующиеНули = Истина, Знач УчитыватьПробелы = Истина) Экспорт
+
+ Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда
+ Возврат Ложь;
+ КонецЕсли;
+
+ Если Не УчитыватьПробелы Тогда
+ СтрокаПроверки = СтрЗаменить(СтрокаПроверки, " ", "");
+ КонецЕсли;
+
+ Если ПустаяСтрока(СтрокаПроверки) Тогда
+ Возврат Истина;
+ КонецЕсли;
+
+ Если Не УчитыватьЛидирующиеНули Тогда
+ Позиция = 1;
+ // Взятие символа за границей строки возвращает пустую строку.
+ Пока Сред(СтрокаПроверки, Позиция, 1) = "0" Цикл
+ Позиция = Позиция + 1;
+ КонецЦикла;
+ СтрокаПроверки = Сред(СтрокаПроверки, Позиция);
+ КонецЕсли;
+
+ // Если содержит только цифры, то в результате замен должна быть получена пустая строка.
+ // Проверять при помощи ПустаяСтрока нельзя, так как в исходной строке могут быть пробельные символы.
+ Возврат СтрДлина(
+ СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(
+ СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить( СтрЗаменить(
+ СтрокаПроверки, "0", ""), "1", ""), "2", ""), "3", ""), "4", ""), "5", ""), "6", ""), "7", ""), "8", ""), "9", "")) = 0;
+
+КонецФункции
+
+////// Проверяет, содержит ли строка только символы кириллического алфавита.
+//////
+////// Параметры:
+////// УчитыватьРазделителиСлов - Булево - учитывать ли разделители слов или они являются исключением.
+////// ДопустимыеСимволы - строка для проверки.
+//////
+////// Возвращаемое значение:
+////// Булево - Истина, если строка содержит только кириллические (или допустимые) символы или пустая;
+////// Ложь, если строка содержит иные символы.
+//////
+////Функция ТолькоКириллицаВСтроке(Знач СтрокаПроверки, Знач УчитыватьРазделителиСлов = Истина, ДопустимыеСимволы = "") Экспорт
+////
+//// Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда
+//// Возврат Ложь;
+//// КонецЕсли;
+////
+//// Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда
+//// Возврат Истина;
+//// КонецЕсли;
+////
+//// КодыДопустимыхСимволов = Новый Массив;
+//// КодыДопустимыхСимволов.Добавить(1105); // "ё"
+//// КодыДопустимыхСимволов.Добавить(1025); // "Ё"
+////
+//// Для Индекс = 1 По СтрДлина(ДопустимыеСимволы) Цикл
+//// КодыДопустимыхСимволов.Добавить(КодСимвола(Сред(ДопустимыеСимволы, Индекс, 1)));
+//// КонецЦикла;
+////
+//// Для Индекс = 1 По СтрДлина(СтрокаПроверки) Цикл
+//// КодСимвола = КодСимвола(Сред(СтрокаПроверки, Индекс, 1));
+//// Если ((КодСимвола < 1040) Или (КодСимвола > 1103))
+//// И (КодыДопустимыхСимволов.Найти(КодСимвола) = Неопределено)
+//// И Не (Не УчитыватьРазделителиСлов И ЭтоРазделительСлов(КодСимвола)) Тогда
+//// Возврат Ложь;
+//// КонецЕсли;
+//// КонецЦикла;
+////
+//// Возврат Истина;
+////
+////КонецФункции
+
+////// Проверяет, содержит ли строка только символы латинского алфавита.
+//////
+////// Параметры:
+////// УчитыватьРазделителиСлов - Булево - учитывать ли разделители слов или они являются исключением.
+////// ДопустимыеСимволы - строка для проверки.
+//////
+////// Возвращаемое значение:
+////// Булево - Истина, если строка содержит только латинские (или допустимые) символы;
+////// - Ложь, если строка содержит иные символы.
+//////
+////Функция ТолькоЛатиницаВСтроке(Знач СтрокаПроверки, Знач УчитыватьРазделителиСлов = Истина, ДопустимыеСимволы = "") Экспорт
+////
+//// Если ТипЗнч(СтрокаПроверки) <> Тип("Строка") Тогда
+//// Возврат Ложь;
+//// КонецЕсли;
+////
+//// Если НЕ ЗначениеЗаполнено(СтрокаПроверки) Тогда
+//// Возврат Истина;
+//// КонецЕсли;
+////
+//// КодыДопустимыхСимволов = Новый Массив;
+////
+//// Для Индекс = 1 По СтрДлина(ДопустимыеСимволы) Цикл
+//// КодыДопустимыхСимволов.Добавить(КодСимвола(Сред(ДопустимыеСимволы, Индекс, 1)));
+//// КонецЦикла;
+////
+//// Для Индекс = 1 По СтрДлина(СтрокаПроверки) Цикл
+//// КодСимвола = КодСимвола(Сред(СтрокаПроверки, Индекс, 1));
+//// Если ((КодСимвола < 65) Или (КодСимвола > 90 И КодСимвола < 97) Или (КодСимвола > 122))
+//// И (КодыДопустимыхСимволов.Найти(КодСимвола) = Неопределено)
+//// И Не (Не УчитыватьРазделителиСлов И ЭтоРазделительСлов(КодСимвола)) Тогда
+//// Возврат Ложь;
+//// КонецЕсли;
+//// КонецЦикла;
+////
+//// Возврат Истина;
+////
+////КонецФункции
+
+////// Удаляет двойные кавычки с начала и конца строки, если они есть.
+//////
+////// Параметры:
+////// Строка - входная строка;
+//////
+////// Возвращаемое значение:
+////// Строка - строка без двойных кавычек.
+//////
+////Функция СократитьДвойныеКавычки(Знач Строка) Экспорт
+////
+//// Пока СтрНачинаетсяС(Строка, """") Цикл
+//// Строка = Сред(Строка, 2);
+//// КонецЦикла;
+////
+//// Пока СтрЗаканчиваетсяНа(Строка, """") Цикл
+//// Строка = Лев(Строка, СтрДлина(Строка) - 1);
+//// КонецЦикла;
+////
+//// Возврат Строка;
+////
+////КонецФункции
+
+////// Удаляет из строки указанное количество символов справа.
+//////
+////// Параметры:
+////// Текст - Строка - строка, в которой необходимо удалить последние символы;
+////// ЧислоСимволов - Число - количество удаляемых символов.
+//////
+////Процедура УдалитьПоследнийСимволВСтроке(Текст, ЧислоСимволов = 1) Экспорт
+////
+//// Текст = Лев(Текст, СтрДлина(Текст) - ЧислоСимволов);
+////
+////КонецПроцедуры
+
+////// Проверяет, является ли строка уникальным идентификатором.
+////// В качестве уникального идентификатора предполагается строка вида
+////// "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX", где X = [0..9,a..f].
+//////
+////// Параметры:
+////// ИдентификаторСтрока - Строка - проверяемая строка.
+//////
+////// Возвращаемое значение:
+////// Булево - Истина, если переданная строка является уникальным идентификатором.
+////Функция ЭтоУникальныйИдентификатор(Знач Строка) Экспорт
+////
+//// Шаблон = "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX";
+////
+//// Если СтрДлина(Шаблон) <> СтрДлина(Строка) Тогда
+//// Возврат Ложь;
+//// КонецЕсли;
+//// Для Позиция = 1 По СтрДлина(Строка) Цикл
+//// Если КодСимвола(Шаблон, Позиция) = 88 // X
+//// И ((КодСимвола(Строка, Позиция) < 48 Или КодСимвола(Строка, Позиция) > 57) // 0..9
+//// И (КодСимвола(Строка, Позиция) < 97 Или КодСимвола(Строка, Позиция) > 102) // a..f
+//// И (КодСимвола(Строка, Позиция) < 65 Или КодСимвола(Строка, Позиция) > 70)) // A..F
+//// Или КодСимвола(Шаблон, Позиция) = 45 И КодСимвола(Строка, Позиция) <> 45 Тогда // -
+//// Возврат Ложь;
+//// КонецЕсли;
+//// КонецЦикла;
+////
+//// Возврат Истина;
+
+////КонецФункции
+
+////// Формирует строку повторяющихся символов заданной длины.
+//////
+////// Параметры:
+////// Символ - Строка - символ, из которого будет формироваться строка.
+////// ДлинаСтроки - Число - требуемая длина результирующей строки.
+//////
+////// Возвращаемое значение:
+////// Строка - строка, состоящая из повторяющихся символов.
+//////
+////Функция СформироватьСтрокуСимволов(Знач Символ, Знач ДлинаСтроки) Экспорт
+////
+//// Результат = "";
+//// Для Счетчик = 1 По ДлинаСтроки Цикл
+//// Результат = Результат + Символ;
+//// КонецЦикла;
+////
+//// Возврат Результат;
+////
+////КонецФункции
+
+////// Дополняет строку символами слева или справа до заданной длины и возвращает ее.
+////// Незначащие символы слева и справа удаляются. По умолчанию функция дополняет строку символами "0" (ноль) слева.
+//////
+////// Параметры:
+////// Строка - Строка - исходная строка, которую необходимо дополнить символами;
+////// ДлинаСтроки - Число - требуемая результирующая длина строки;
+////// Символ - Строка - символ, которым необходимо дополнить строку;
+////// Режим - Строка - "Слева" или "Справа" - режим добавления символов к исходной строке.
+//////
+////// Возвращаемое значение:
+////// Строка - строка, дополненная символами.
+//////
+////// Пример 1:
+////// Строка = "1234"; ДлинаСтроки = 10; Символ = "0"; Режим = "Слева"
+////// Возврат: "0000001234".
+//////
+////// Пример 2:
+////// Строка = " 1234 "; ДлинаСтроки = 10; Символ = "#"; Режим = "Справа"
+////// Возврат: "1234######".
+//////
+////Функция ДополнитьСтроку(Знач Строка, Знач ДлинаСтроки, Знач Символ = "0", Знач Режим = "Слева") Экспорт
+////
+//// // Длина символа не должна превышать единицы.
+//// Символ = Лев(Символ, 1);
+////
+//// // Удаляем крайние пробелы слева и справа строки.
+//// Строка = СокрЛП(Строка);
+////
+//// КоличествоСимволовНадоДобавить = ДлинаСтроки - СтрДлина(Строка);
+////
+//// Если КоличествоСимволовНадоДобавить > 0 Тогда
+////
+//// СтрокаДляДобавления = СформироватьСтрокуСимволов(Символ, КоличествоСимволовНадоДобавить);
+////
+//// Если ВРег(Режим) = "СЛЕВА" Тогда
+////
+//// Строка = СтрокаДляДобавления + Строка;
+////
+//// ИначеЕсли ВРег(Режим) = "СПРАВА" Тогда
+////
+//// Строка = Строка + СтрокаДляДобавления;
+////
+//// КонецЕсли;
+////
+//// КонецЕсли;
+////
+//// Возврат Строка;
+////
+////КонецФункции
+
+////// Удаляет крайние повторяющиеся символы слева или справа в строке.
+//////
+////// Параметры:
+////// Строка - Строка - исходная строка, из которой необходимо удалить крайние повторяющиеся символы;
+////// Символ - Строка - искомый символ для удаления;
+////// Режим - Строка - "Слева" или "Справа" - режим удаления символов в исходной строке.
+//////
+////// Возвращаемое значение:
+////// Строка - обрезанная строка.
+//////
+////Функция УдалитьПовторяющиесяСимволы(Знач Строка, Знач Символ, Знач Режим = "Слева") Экспорт
+////
+//// Если ВРег(Режим) = "СЛЕВА" Тогда
+////
+//// Пока Лев(Строка, 1)= Символ Цикл
+////
+//// Строка = Сред(Строка, 2);
+////
+//// КонецЦикла;
+////
+//// ИначеЕсли ВРег(Режим) = "СПРАВА" Тогда
+////
+//// Пока Прав(Строка, 1)= Символ Цикл
+////
+//// Строка = Лев(Строка, СтрДлина(Строка) - 1);
+////
+//// КонецЦикла;
+////
+//// КонецЕсли;
+////
+//// Возврат Строка;
+////КонецФункции
+
+////// Выполняет замену символов в строке.
+//////
+////// Параметры:
+////// ЗаменяемыеСимволы - Строка - строка символов, каждый из которых требует замены;
+////// Строка - Строка - исходная строка, в которой требуется замена символов;
+////// СимволыЗамены - Строка - строка символов, на каждый из которых нужно заменить символы параметра
+////// ЗаменяемыеСимволы.
+//////
+////// Возвращаемое значение:
+////// Строка - строка после замены символов.
+//////
+////// Примечание: функция предназначена для простых случаев, например, для замены латиницы на похожие кириллические
+////// символы.
+//////
+////Функция ЗаменитьОдниСимволыДругими(ЗаменяемыеСимволы, Строка, СимволыЗамены) Экспорт
+////
+//// Результат = Строка;
+////
+//// Для НомерСимвола = 1 По СтрДлина(ЗаменяемыеСимволы) Цикл
+//// Результат = СтрЗаменить(Результат, Сред(ЗаменяемыеСимволы, НомерСимвола, 1), Сред(СимволыЗамены, НомерСимвола, 1));
+//// КонецЦикла;
+////
+//// Возврат Результат;
+////
+////КонецФункции
+
+////// Выполняет преобразование арабского числа в римское.
+//////
+////// Параметры:
+////// АрабскоеЧисло - число, целое, от 0 до 999;
+////// ИспользоватьКириллицу - булево, использовать в качестве арабских цифр кириллицу или латиницу.
+//////
+////// Возвращаемое значение:
+////// Строка - число в римской нотации.
+//////
+////// Пример:
+////// ПреобразоватьЧислоВРимскуюНотацию(17) = "ХVII".
+//////
+////Функция ПреобразоватьЧислоВРимскуюНотацию(АрабскоеЧисло, ИспользоватьКириллицу = Истина) Экспорт
+////
+//// РимскоеЧисло = "";
+//// АрабскоеЧисло = ДополнитьСтроку(АрабскоеЧисло, 3);
+////
+//// Если ИспользоватьКириллицу Тогда
+//// c1 = "1"; c5 = "У"; c10 = "Х"; c50 = "Л"; c100 ="С"; c500 = "Д"; c1000 = "М";
+////
+//// Иначе
+//// c1 = "I"; c5 = "V"; c10 = "X"; c50 = "L"; c100 ="C"; c500 = "D"; c1000 = "M";
+////
+//// КонецЕсли;
+////
+//// Единицы = Число(Сред(АрабскоеЧисло, 3, 1));
+//// Десятки = Число(Сред(АрабскоеЧисло, 2, 1));
+//// Сотни = Число(Сред(АрабскоеЧисло, 1, 1));
+////
+//// РимскоеЧисло = РимскоеЧисло + ПреобразоватьЦифруВРимскуюНотацию(Сотни, c100, c500, c1000);
+//// РимскоеЧисло = РимскоеЧисло + ПреобразоватьЦифруВРимскуюНотацию(Десятки, c10, c50, c100);
+//// РимскоеЧисло = РимскоеЧисло + ПреобразоватьЦифруВРимскуюНотацию(Единицы, c1, c5, c10);
+////
+//// Возврат РимскоеЧисло;
+////
+////КонецФункции
+
+////// Выполняет преобразование римского числа в арабское.
+//////
+////// Параметры:
+////// РимскоеЧисло - Строка - число, записанное римскими цифрами;
+////// ИспользоватьКириллицу - Булево - использовать в качестве арабских цифр кириллицу или латиницу.
+//////
+////// Возвращаемое значение:
+////// Число.
+//////
+////// Пример:
+////// ПреобразоватьЧислоВАрабскуюНотацию("ХVII") = 17.
+//////
+////Функция ПреобразоватьЧислоВАрабскуюНотацию(РимскоеЧисло, ИспользоватьКириллицу = Истина) Экспорт
+////
+//// АрабскоеЧисло=0;
+////
+//// Если ИспользоватьКириллицу Тогда
+//// c1 = "1"; c5 = "У"; c10 = "Х"; c50 = "Л"; c100 ="С"; c500 = "Д"; c1000 = "М";
+////
+//// Иначе
+//// c1 = "I"; c5 = "V"; c10 = "X"; c50 = "L"; c100 ="C"; c500 = "D"; c1000 = "M";
+////
+//// КонецЕсли;
+////
+//// РимскоеЧисло = СокрЛП(РимскоеЧисло);
+//// ЧислоСимволов = СтрДлина(РимскоеЧисло);
+////
+//// Для Сч=1 По ЧислоСимволов Цикл
+//// Если Сред(РимскоеЧисло,Сч,1) = c1000 Тогда
+//// АрабскоеЧисло = АрабскоеЧисло+1000;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c500 Тогда
+//// АрабскоеЧисло = АрабскоеЧисло+500;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c100 Тогда
+//// Если (Сч < ЧислоСимволов) И ((Сред(РимскоеЧисло,Сч+1,1) = c500) ИЛИ (Сред(РимскоеЧисло,Сч+1,1) = c1000)) Тогда
+//// АрабскоеЧисло = АрабскоеЧисло-100;
+//// Иначе
+//// АрабскоеЧисло = АрабскоеЧисло+100;
+//// КонецЕсли;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c50 Тогда
+//// АрабскоеЧисло = АрабскоеЧисло+50;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c10 Тогда
+//// Если (Сч < ЧислоСимволов) И ((Сред(РимскоеЧисло,Сч+1,1) = c50) ИЛИ (Сред(РимскоеЧисло,Сч+1,1) = c100)) Тогда
+//// АрабскоеЧисло = АрабскоеЧисло-10;
+//// Иначе
+//// АрабскоеЧисло = АрабскоеЧисло+10;
+//// КонецЕсли;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c5 Тогда
+//// АрабскоеЧисло = АрабскоеЧисло+5;
+//// ИначеЕсли Сред(РимскоеЧисло,Сч,1) = c1 Тогда
+//// Если (Сч < ЧислоСимволов) И ((Сред(РимскоеЧисло,Сч+1,1) = c5) ИЛИ (Сред(РимскоеЧисло,Сч+1,1) = c10)) Тогда
+//// АрабскоеЧисло = АрабскоеЧисло-1;
+//// Иначе
+//// АрабскоеЧисло = АрабскоеЧисло+1;
+//// КонецЕсли;
+//// КонецЕсли;
+//// КонецЦикла;
+////
+//// Возврат АрабскоеЧисло;
+////
+////КонецФункции
+
+////// Возвращает текстовое представление числа с единицей измерения в правильном склонении и числе.
+//////
+////// Параметры:
+////// Число - Число - любое целое число.
+////// ПараметрыПредметаИсчисления - Строка - варианты написания единицы измерения в родительном падеже для одной,
+////// для двух и для пяти единиц, разделитель - запятая.
+//////
+////// Возвращаемое значение:
+////// Строка - текстовое представление количества единиц, число записывается цифрами.
+//////
+////// Примеры:
+////// ЧислоЦифрамиПредметИсчисленияПрописью(23, "минуту,минуты,минут") = "23 минуты";
+////// ЧислоЦифрамиПредметИсчисленияПрописью(15, "минуту,минуты,минут") = "15 минут".
+////Функция ЧислоЦифрамиПредметИсчисленияПрописью(Знач Число, Знач ПараметрыПредметаИсчисления,
+//// Знач ДобавлятьЧислоКРезультату = Истина) Экспорт
+////
+//// Результат = ?(ДобавлятьЧислоКРезультату, Формат(Число, "ЧН=0") + " ", "");
+//// ПредставленияПредмета = Новый Массив;
+////
+//// ПараметрыПредметаИсчисления = СтрРазделить(ПараметрыПредметаИсчисления, ",");
+//// Для Каждого Параметр Из ПараметрыПредметаИсчисления Цикл
+//// ПредставленияПредмета.Добавить(СокрЛП(Параметр));
+//// КонецЦикла;
+////
+//// Число = Число % 100;
+//// Если Число > 20 Тогда
+//// Число = Число % 10;
+//// КонецЕсли;
+////
+//// Индекс = ?(Число = 1, 0, ?(Число > 1 И Число < 5, 1, 2));
+//// Результат = Результат + ПредставленияПредмета[Индекс];
+////
+//// Возврат Результат;
+////
+////КонецФункции
+
+////// Очищает текст в формате HTML от тегов и возвращает неформатированный текст.
+//////
+////// Параметры:
+////// ИсходныйТекст - Строка - текст в формате HTML.
+//////
+////// Возвращаемое значение:
+////// Строка - текст, очищенный от тегов, скриптов и заголовков.
+//////
+////Функция ИзвлечьТекстИзHTML(Знач ИсходныйТекст) Экспорт
+//// Результат = "";
+////
+//// Текст = НРег(ИсходныйТекст);
+////
+//// // отрезаем все что не body
+//// Позиция = СтрНайти(Текст, " 0 Тогда
+//// Текст = Сред(Текст, Позиция + 5);
+//// ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 5);
+//// Позиция = СтрНайти(Текст, ">");
+//// Если Позиция > 0 Тогда
+//// Текст = Сред(Текст, Позиция + 1);
+//// ИсходныйТекст = Сред(ИсходныйТекст, Позиция + 1);
+//// КонецЕсли;
+//// КонецЕсли;
+////
+//// Позиция = СтрНайти(Текст, " ");
+//// Если Позиция > 0 Тогда
+//// Текст = Лев(Текст, Позиция - 1);
+//// ИсходныйТекст = Лев(ИсходныйТекст, Позиция - 1);
+//// КонецЕсли;
+////
+//// // вырезаем скрипты
+//// Позиция = СтрНайти(Текст, "