1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-25 21:28:57 +02:00
Code Issues Releases Activity

Merge branch 'features' into feature225

Browse Source
This commit is contained in:
Anton Ivanov 2020-07-11 09:05:53 +03:00 committed by GitHub
commit 79a92c6a57
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
44 changed files with 528 additions and 211 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.bsl-language-server.json
View File

@ -12,7 +12,8 @@
"listForCheckLeft": "",
"allowMultipleCommas": true,
"listForCheckLeftAndRight": "+ - * / = % < > <> <= >="
}
},
"CommentedCode" : false
}
}
}

19
CONTRIBUTING.md
View File

@ -4,15 +4,24 @@
* Необходимо использовать стандарты кодирования от 1с (стандарты доступны всем, подписка на ИТС не нужна): https://its.1c.ru/db/v8std
* Почитать и следовать рекомендациям в хорошей статье «Правила программирования и автоматизации» https://infostart.ru/public/789709/
## Вариант доработки через CF файл (самое простое)
## Вариант доработки через CF файл (самое простое) подробнее в задаче #215
* Отправьте, Ваш, CF c Вашими доработками на адрес **sdesk1c@bk.ru**;
* Если разработка ведется через CF файлы, в этом случае новый код необходимо обрамлять в следующем формате:
**Алгоритм:**
1. Создайте [задачу](https://github.com/BlizD/Tasks/issues) и опишите, Вашу, доработку;
1. Если по задаче необходимы новые метаданные, то необходимо написать ТЗ на это и отправить в задачу ([пример ТЗ](https://github.com/BlizD/Tasks/files/2544687/117_._031118.docx))
1. Возьмите последний CF из дев ветки в задаче [#123](https://github.com/BlizD/Tasks/issues/123)
1. Выполните доработку в этом CF;
1. Укажите в задаче список измененных объектов метаданных;
1. Прикрепите к созданной задачи Ваш CF.
1. Спасибо за Ваш, вклад в разработку;
Код необходимо обрамлять в следующем формате:
```
//+ #1014 Иванов А.Б. 2016-04-06
// + #1014 Иванов А.Б. 2016-04-06
//Старый код
....НовыйКод....
//- #1014 Иванов А.Б. 2016-04-06
// - #1014 Иванов А.Б. 2016-04-06
```
## Вариант доработки через Github (Пошаговая инструкцию как доработать конфигурацию)

12
README.md
View File

@ -15,16 +15,15 @@
* [Все релизы](https://github.com/BlizD/Tasks/releases)
* [Промежуточные тестовые релизы](https://github.com/BlizD/Tasks/issues/129)
## Цель проекта ##
Легкая, удобная и комфортная работа в первую очередь для исполнителя задачи
## Расширения ##
* [Расширение: Смена основного стиля на серый с синим (BAS)](https://github.com/BlizD/Tasks/issues/213)
* [Расширение: Рассылка уведомлений по ICQ](https://github.com/BlizD/Tasks/issues/194) - работает начиная с релиза 1.0.4.038
* [Все расширения](https://github.com/BlizD/Tasks/wiki/Расширения)
## Цель проекта ##
Легкая, удобная и комфортная работа в первую очередь для исполнителя задачи.
# Управление задачами: Канбан доска #
Конфигурация "Управление задачами" с использованием библиотеки стандартных подсистем. Канбан доска
@ -73,6 +72,7 @@
* https://youtu.be/khAwpz3eMMI - как ввести описания задачи с помощью Markdown;
* https://youtu.be/vbdx8JhhDac - связь изменений в метаданных и задач, настройка загрузки изменений из хранилища 1с;
* https://youtu.be/ILI_-HaBxM8 - как установить конфигурацию и как настроить отправку уведомлений;
* https://youtu.be/mBQWm7G9U18 - как установить WIP лимит;
* (пока нет видео, но это уже есть в конфигурации) - как добавить свои статусы задач;
* (пока нет видео, но это уже есть в конфигурации) - как указывать произвольные цвета для задач;
* (пока нет видео, но это уже есть в конфигурации) - как указывать фактические, плановые, часы к оплате в задаче;
@ -88,7 +88,7 @@
* Необходимо использовать стандарты кодирования от 1с (стандарты доступны всем, подписка на ИТС не нужна): https://its.1c.ru/db/v8std
* Почитать и следовать рекомендациям в хорошей статье «Правила программирования и автоматизации» https://infostart.ru/public/789709/
## Вариант доработки через CF файл (самое простое)
## Вариант доработки через CF файл (самое простое) подробнее в задаче #215
**Алгоритм:**

6
VERSIONS.md
View File

@ -8,6 +8,12 @@
#199 Вставка изображения из буфера обмена в описание задач
Компонента взята из https://github.com/cpr1c/clipboard_1c
Канбан доска
#228 Группировка статусов в колонке
https://user-images.githubusercontent.com/34754769/86134688-9ac9f480-baf2-11ea-9658-0e95c03851ee.PNG
Группировка настраивается на закладке настройки по номерам групп и сохраняется для каждого пользователя. Относительная высота групп сохраняется. При выводе сортируется по номеру группы (начиная с пустой - 0).
https://user-images.githubusercontent.com/34754769/86134719-a1f10280-baf2-11ea-8834-e087f1b2ae56.PNG
Wiki изменения:
* [Как настроить загрузку изменений из хранилища по TCP и загрузку изменений по расширениям](https://github.com/BlizD/Tasks/wiki/Как-настроить-загрузку-изменений-из-хранилища-по-TCP-и-загрузку-изменений-по-расширениям)

2
sonar-project.properties
View File

@ -8,4 +8,4 @@ sonar.inclusions=**/*.bsl
sonar.scm.enabled=true
sonar.scm.provider=git
sonar.projectVersion=1.0.5.001
sonar.projectVersion=1.0.5.003

13
src/cf/Catalogs/узВопросыОтветы/Ext/ObjectModule.bsl
View File

@ -6,7 +6,12 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
ДатаПоследнегоИзменения = ТекущаяДата();
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ДатаПоследнегоИзменения = ТекущаяДатаСеанса();
ТЗСобытия = ПолучитьТЗСобытия();
ДополнительныеСвойства.Вставить("ТЗСобытия",ТЗСобытия);
@ -32,11 +37,15 @@
КонецФункции
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("узЭтоОбработка") Тогда
Возврат;
Конецесли;
РегистрацияАктивностиПользователя(ДополнительныеСвойства.ТЗСобытия,Отказ);
ДополнительныеСвойства.Удалить("ТЗСобытия");

2
src/cf/Catalogs/узВопросыОтветы/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -10,7 +10,7 @@
//}milanse 31.05.2020 22:12:10
Если Объект.Ссылка.Пустая() Тогда
Объект.Автор = Пользователи.ТекущийПользователь();
Объект.ДатаСоздания = ТекущаяДата();
Объект.ДатаСоздания = ТекущаяДатаСеанса();
Конецесли;
УстановитьВидимостьДоступность();

2
src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl
View File

@ -57,7 +57,7 @@
пКомментарииВКоде = "//+ #"+Формат(пКод,"ЧГ=0")
+ ?(ЗначениеЗаполнено(пНомерВнешнейЗаявки)," "+пНомерВнешнейЗаявки,"")
+ ФИОИсполнителя
+ " " + Формат(ТекущаяДата(),"ДФ=yyyy-MM-dd");
+ " " + Формат(ТекущаяДатаСеанса(),"ДФ=yyyy-MM-dd");
Возврат пКомментарииВКоде;
КонецФункции

14
src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl
View File

@ -18,7 +18,7 @@
Конецесли;
Если НЕ ЗначениеЗаполнено(ДатаСоздания) Тогда
ДатаСоздания = ТекущаяДата();
ДатаСоздания = ТекущаяДатаСеанса();
Конецесли;
Если НЕ ЗначениеЗаполнено(ДатаНачалаРаботПоЗадаче) Тогда
ДатаНачалаРаботПоЗадаче = ДатаСоздания;
@ -76,7 +76,7 @@
Конецесли;
ТекПользователь = Пользователи.ТекущийПользователь();
ДатаПоследнегоИзменения = ТекущаяДата();
ДатаПоследнегоИзменения = ТекущаяДатаСеанса();
АвторПоследнегоИзменения = ТекПользователь;
СтарыйСтатус = Ссылка.Статус;
@ -87,7 +87,7 @@
ВидСтатуса_ВРаботе = ПредопределенноеЗначение("Справочник.узВидыСтатусов.ВРаботе");
Если НовыйВидСтатуса = ВидСтатуса_Готово
И СтарыйВидСтатуса <> ВидСтатуса_Готово Тогда
ДатаВыполнения = ТекущаяДата();
ДатаВыполнения = ТекущаяДатаСеанса();
Конецесли;
Если НовыйВидСтатуса <> ВидСтатуса_Готово Тогда
Если ЗначениеЗаполнено(ДатаВыполнения) Тогда
@ -165,7 +165,7 @@
ТЗСобытияВИсторииДляУведомлений.Колонки.Добавить("ВидСобытия",Новый ОписаниеТипов("ПеречислениеСсылка.узВидыСобытий"));
ТЗСобытияВИсторииДляУведомлений.Колонки.Добавить("МассивИзмененнийПоКомментариям",Новый ОписаниеТипов("Массив"));
ДатаСобытия = ТекущаяДата();
ДатаСобытия = ТекущаяДатаСеанса();
пАвтор = Пользователи.ТекущийПользователь();
ПараметрыДляИстории = Новый Структура();
@ -415,7 +415,7 @@
ПроставитьДатуОкончанияДляСтарогоСтатуса();
СтрокаИсторияСтатусов = ИсторияСтатусов.Добавить();
СтрокаИсторияСтатусов.ДатаНачала = ТекущаяДата();
СтрокаИсторияСтатусов.ДатаНачала = ТекущаяДатаСеанса();
СтрокаИсторияСтатусов.Исполнитель = Исполнитель;
СтрокаИсторияСтатусов.Статус = Статус;
КонецПроцедуры
@ -427,7 +427,7 @@
Конецесли;
СтрокаИсторияСтатусов = ИсторияСтатусов[ВсегоСтрок-1];
СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДата();
СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДатаСеанса();
КонецПроцедуры
Процедура ДобавитьВИсторию(ПараметрыДляИстории,ТЗСобытияВИсторииДляУведомлений)
@ -1215,7 +1215,7 @@
Конецесли;
ЗаписьИсторияСтатусов = РегистрыСведений.узСтатусыЗадач.СоздатьМенеджерЗаписи();
ЗаписьИсторияСтатусов.Период = ТекущаяДата();
ЗаписьИсторияСтатусов.Период = ТекущаяДатаСеанса();
ЗаписьИсторияСтатусов.Активность = Истина;
ЗаписьИсторияСтатусов.Задача = Ссылка;
ЗаписьИсторияСтатусов.Исполнитель = Исполнитель;

2
src/cf/Catalogs/узЗадачи/Forms/ФормаВводаКомментария/Ext/Form/Module.bsl
View File

@ -14,7 +14,7 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Если Параметры.Свойство("ЭтоДобавлениеКомментария") Тогда
ДатаКомментария = ТекущаяДата();
ДатаКомментария = ТекущаяДатаСеанса();
Автор = Пользователи.ТекущийПользователь();
ЭтоДобавлениеКомментария = Истина;
Иначе

38
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form.xml
View File

@ -457,11 +457,13 @@
<Button name="КомандаMDЖирный" id="455">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаMDЖирный</CommandName>
<Font bold="true" kind="AutoFont"/>
<ExtendedTooltip name="КомандаMDЖирныйРасширеннаяПодсказка" id="456"/>
</Button>
<Button name="КомандаMDКурсив" id="457">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаMDКурсив</CommandName>
<Font italic="true" kind="AutoFont"/>
<ExtendedTooltip name="КомандаMDКурсивРасширеннаяПодсказка" id="458"/>
</Button>
<Button name="КомандаMDЗачеркнутый" id="465">
@ -495,6 +497,11 @@
<CommandName>Form.Command.КомандаMDЦитата</CommandName>
<ExtendedTooltip name="КомандаMDЦитатаРасширеннаяПодсказка" id="464"/>
</Button>
<Button name="КомандаMDКод" id="591">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаMDКод</CommandName>
<ExtendedTooltip name="КомандаMDКодРасширеннаяПодсказка" id="592"/>
</Button>
<Button name="КомандаMDДобавитьТаблицу" id="451">
<Type>CommandBarButton</Type>
<CommandName>Form.Command.КомандаMDДобавитьТаблицу</CommandName>
@ -513,9 +520,10 @@
</v8:item>
</Title>
<TitleLocation>None</TitleLocation>
<Width>50</Width>
<AutoMaxWidth>false</AutoMaxWidth>
<AutoMaxHeight>false</AutoMaxHeight>
<MultiLine>true</MultiLine>
<ExtendedEdit>true</ExtendedEdit>
<ContextMenu name="ТекстСодержанияКонтекстноеМеню" id="199"/>
<ExtendedTooltip name="ТекстСодержанияРасширеннаяПодсказка" id="200"/>
</InputField>
@ -2532,7 +2540,7 @@
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Добавить таблицу (Markdown)</v8:content>
<v8:content>Добавить таблицу</v8:content>
</v8:item>
</ToolTip>
<Picture>
@ -2547,13 +2555,13 @@
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда MDДобавить заголовки</v8:content>
<v8:content>Добавить заголовки</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда MDДобавить заголовки</v8:content>
<v8:content>Добавить заголовки</v8:content>
</v8:item>
</ToolTip>
<Picture>
@ -2574,7 +2582,7 @@
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда MDЖирный</v8:content>
<v8:content>Жирный</v8:content>
</v8:item>
</ToolTip>
<Picture>
@ -2802,6 +2810,26 @@
</Picture>
<Action>ВставитьКартинку</Action>
<Representation>Picture</Representation>
<ModifiesSavedData>true</ModifiesSavedData>
</Command>
<Command name="КомандаMDКод" id="18">
<Title>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Команда MDКод</v8:content>
</v8:item>
</Title>
<ToolTip>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Прогараммный код</v8:content>
</v8:item>
</ToolTip>
<Picture>
<xr:Ref>CommonPicture.узИконкаMDКод</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Action>КомандаMDКод</Action>
</Command>
</Commands>
<CommandInterface>

219
src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -602,6 +602,87 @@
КонецПроцедуры
// }milanse 07.06.2020 0:06:35
// {[+](фрагмент ДОБАВЛЕН), milanse 20.06.2020
&НаКлиенте
Процедура ОформитьТекстMD(СимволыДляДобавления)
Перем чКонецКолонки, чКонецСтроки, чНачалоКолонки, чНачалоСтроки;
чНачалоСтроки = 0;
чНачалоКолонки = 0;
чКонецСтроки = 0;
чКонецКолонки = 0;
Элементы.ТекстСодержания.ПолучитьГраницыВыделения(чНачалоСтроки,чНачалоКолонки,чКонецСтроки,чКонецКолонки);
Элементы.ТекстСодержания.ВыделенныйТекст = СимволыДляДобавления+Элементы.ТекстСодержания.ВыделенныйТекст+СимволыДляДобавления;
Элементы.ТекстСодержания.ПолучитьГраницыВыделения(чНачалоСтроки,чНачалоКолонки,чКонецСтроки,чКонецКолонки);
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
Элементы.ТекстСодержания.УстановитьГраницыВыделения(чКонецСтроки,чКонецКолонки,чКонецСтроки,чКонецКолонки);
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
КонецПроцедуры // - #216 Иванов А.Б. 2020-06-27 @milanse
// + #216 Иванов А.Б. 2020-06-27 @milanse
&НаКлиенте
Процедура ДобавитьСимволыВНачалоСтрокиMD(СимволыДляДобавления)
Перем чКонецКолонки, чКонецСтроки, чНачалоКолонки, чНачалоСтроки;
чНачалоСтроки = 0;
чНачалоКолонки = 0;
чКонецСтроки = 0;
чКонецКолонки = 0;
Элементы.ТекстСодержания.ПолучитьГраницыВыделения(чНачалоСтроки,чНачалоКолонки,чКонецСтроки,чКонецКолонки);
ТекстовыйДокумент = Новый ТекстовыйДокумент;
ТекстовыйДокумент.УстановитьТекст(Элементы.ТекстСодержания.ТекстРедактирования);
Если ТекстовыйДокумент.КоличествоСтрок() = 0 Тогда
ТекстовыйДокумент.ДобавитьСтроку(СимволыДляДобавления);
чПозицияКонцаКолонки = СтрДлина(СимволыДляДобавления)+1;
Иначе
Для НомерСтроки = чНачалоСтроки По чКонецСтроки Цикл
ИсходнаяСтрока = ТекстовыйДокумент.ПолучитьСтроку(НомерСтроки);
ТекстовыйДокумент.ЗаменитьСтроку(НомерСтроки,СимволыДляДобавления + ИсходнаяСтрока);
КонецЦикла;
чПозицияКонцаКолонки = СтрДлина(ТекстовыйДокумент.ПолучитьСтроку(чКонецСтроки))+1;
КонецЕсли;
Объект.ТекстСодержания = ТекстовыйДокумент.ПолучитьТекст();
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
Элементы.ТекстСодержания.УстановитьГраницыВыделения(чКонецСтроки,чПозицияКонцаКолонки,чКонецСтроки,чПозицияКонцаКолонки);
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
КонецПроцедуры // - #216 Иванов А.Б. 2020-06-27 @milanse
// + #216 Иванов А.Б. 2020-06-27 @milanse
&НаКлиенте
Процедура ОформитьФрагментКода(СимволыНачало,СимволыОкончание)
Перем чКонецКолонки, чКонецСтроки, чНачалоКолонки, чНачалоСтроки;
чНачалоСтроки = 0;
чНачалоКолонки = 0;
чКонецСтроки = 0;
чКонецКолонки = 0;
Элементы.ТекстСодержания.ПолучитьГраницыВыделения(чНачалоСтроки,чНачалоКолонки,чКонецСтроки,чКонецКолонки);
ТекстовыйДокумент = Новый ТекстовыйДокумент;
ТекстовыйДокумент.УстановитьТекст(Элементы.ТекстСодержания.ТекстРедактирования);
ТекстовыйДокумент.ВставитьСтроку(чНачалоСтроки,СимволыНачало);
ТекстовыйДокумент.ВставитьСтроку(чКонецСтроки+2,СимволыОкончание);
чПозицияКонцаКолонки = СтрДлина(ТекстовыйДокумент.ПолучитьСтроку(чКонецСтроки+2))+1;
Объект.ТекстСодержания = ТекстовыйДокумент.ПолучитьТекст();
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
Элементы.ТекстСодержания.УстановитьГраницыВыделения(чКонецСтроки+2,чПозицияКонцаКолонки,чКонецСтроки+2,чПозицияКонцаКолонки);
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
КонецПроцедуры // - #216 Иванов А.Б. 2020-06-27 @milanse
// }milanse 07.06.2020 0:06:35
#КонецОбласти
#Область ОбработчикиСобытийЭлементовШапкиФормы
@ -1052,7 +1133,7 @@
Возврат;
Конецесли;
СтрокаФактическиеЧасы.ДатаНачала = НачалоМинуты(ТекущаяДата());
СтрокаФактическиеЧасы.ДатаНачала = НачалоМинуты(ТекущаяДатаНаСервере());
Если НЕ ЗначениеЗаполнено(СтрокаФактическиеЧасы.ДатаОкончания)
ИЛИ СтрокаФактическиеЧасы.ДатаНачала > СтрокаФактическиеЧасы.ДатаОкончания Тогда
СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(СтрокаФактическиеЧасы.ДатаНачала);
@ -1060,6 +1141,11 @@
ИзменитьЧасыФактДляСтроки(СтрокаФактическиеЧасы);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции
&НаКлиенте
Функция ПолучитьДатаОкончания(ОтДаты)
пДатаОкончания = НачалоМинуты(КонецМинуты(ОтДаты)+1);
@ -1074,7 +1160,7 @@
Возврат;
Конецесли;
СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДата());
СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДатаНаСервере());
ИзменитьЧасыФактДляСтроки(Элементы.Удалить_ФактическиеЧасы.ТекущиеДанные);
КонецПроцедуры
@ -1186,11 +1272,16 @@
&НаКлиенте
Процедура КомандаMDДобавитьЗаголовки(Команда)
ТекстMD = "# This is an <h1> tag
|## This is an <h2> tag
|###### This is an <h6> tag";
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "# This is an <h1> tag
//|## This is an <h2> tag
//|###### This is an <h6> tag";
//
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ДобавитьСимволыВНачалоСтрокиMD("# ");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КомандаMDДобавитьШаблон(ТекстMD);
КонецПроцедуры
&НаКлиенте
@ -1203,39 +1294,63 @@
&НаКлиенте
Процедура КомандаMDЖирный(Команда)
ТекстMD = "**This text will be bold**
|__This will also be bold__";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "**This text will be bold**
//|__This will also be bold__";
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ОформитьТекстMD("**");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
Процедура КомандаMDКурсив(Команда)
ТекстMD = "*This text will be italic*
|_This will also be italic_";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "*This text will be italic*
//|_This will also be italic_";
//
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ОформитьТекстMD("*");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
Процедура КомандаMDНумерованныйСписок(Команда)
ТекстMD = "1. Item 1
|1. Item 2
|1. Item 3
| * Item 3a
| * Item 3b";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "1. Item 1
//|1. Item 2
//|1. Item 3
//| * Item 3a
//| * Item 3b";
//
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ДобавитьСимволыВНачалоСтрокиMD("1. ");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
Процедура КомандаMDМаркерыСписок(Команда)
ТекстMD = "* Item 1
|* Item 2
| * Item 2a
| * Item 2b";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "* Item 1
//|* Item 2
//| * Item 2a
//| * Item 2b";
//
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ДобавитьСимволыВНачалоСтрокиMD("* ");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
@ -1243,26 +1358,68 @@
MDДобавитьПереводСтроки();
Объект.ТекстСодержания = Объект.ТекстСодержания + ТекстMD;
Объект.ТекстСодержания = Объект.ТекстСодержания + ТекстMD;
// + #216 Иванов А.Б. 2020-06-27 @milanse
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
ТекстовыйДокумент = Новый ТекстовыйДокумент;
ТекстовыйДокумент.УстановитьТекст(Объект.ТекстСодержания);
//milanse 20.06.2020
чПоследняяСтрока = ТекстовыйДокумент.КоличествоСтрок();
чПоследняяКолонка = СтрДлина(ТекстовыйДокумент.ПолучитьСтроку(ТекстовыйДокумент.КоличествоСтрок()))+1;
Элементы.ТекстСодержания.УстановитьГраницыВыделения(чПоследняяСтрока,чПоследняяКолонка,чПоследняяСтрока,чПоследняяКолонка);
ОбновитьОтображениеДанных(Элементы.ТекстСодержания);
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
Процедура КомандаMDЦитата(Команда)
ТекстMD = "As Kanye West said:
|
|> We're living the future so
|> the present is our past.";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "As Kanye West said:
//|
//|> We're living the future so
//|> the present is our past.";
//
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ДобавитьСимволыВНачалоСтрокиMD("> ");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
&НаКлиенте
Процедура КомандаMDЗачеркнутый(Команда)
ТекстMD = "~~This text will be strikeout~~";
КомандаMDДобавитьШаблон(ТекстMD);
// + #216 Иванов А.Б. 2020-06-27 @milanse
//ТекстMD = "~~This text will be strikeout~~";
//КомандаMDДобавитьШаблон(ТекстMD);
//milanse 20.06.2020
ОформитьТекстMD("~~");
// - #216 Иванов А.Б. 2020-06-27 @milanse
КонецПроцедуры
//milanse 20.06.2020
&НаКлиенте
Процедура КомандаMDКод(Команда)
чНачалоСтроки = 0;
чНачалоКолонки = 0;
чКонецСтроки = 0;
чКонецКолонки = 0;
Элементы.ТекстСодержания.ПолучитьГраницыВыделения(чНачалоСтроки,чНачалоКолонки,чКонецСтроки,чКонецКолонки);
Если чНачалоСтроки <> чКонецСтроки Тогда
ОформитьФрагментКода("```bsl","```");
Иначе
ОформитьТекстMD("`");
КонецЕсли;
КонецПроцедуры // - #216 Иванов А.Б. 2020-06-27 @milanse
&НаКлиенте
Процедура КонфигурацияОтборПриИзменении(Элемент)
УстановитьПараметрыИзмененныеОбъекты();

10
src/cf/Catalogs/узИсторияКонфигураций/Ext/ObjectModule.bsl
View File

@ -1,5 +1,10 @@

Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
СформироватьЗаписиВРС_узИсторияХранилища(Отказ);
РегистрацияАктивностиПользователя(Отказ);
@ -43,6 +48,11 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(Наименование) Тогда
Наименование = Справочники.узИсторияКонфигураций.ПолучитьНаименование(Версия,ДатаВерсии);
Конецесли;

2
src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl
View File

@ -8,7 +8,7 @@
Объект.Комментарий = "#"+Формат(Объект.Задача.Код,"ЧГ=0") +" "+ Объект.Задача;
Конецесли;
Объект.ВводВручную = Истина;
Объект.ДатаВерсии = ТекущаяДата();
Объект.ДатаВерсии = ТекущаяДатаСеанса();
Объект.ПользовательХранилища = Пользователи.ТекущийПользователь().узКороткоеИмя;
Конецесли;
Если Объект.ВводВручную Тогда

6
src/cf/Catalogs/узКонтрагенты/Ext/ObjectModule.bsl
View File

@ -1,6 +1,12 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если НЕ ЗначениеЗаполнено(узКороткоеИмя) Тогда
узКороткоеИмя = Наименование;
Конецесли;
КонецПроцедуры

6
src/cf/Catalogs/узКонфигурации/Ext/ObjectModule.bsl
View File

@ -1,10 +1,16 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ПроверитьРеквизиты(Отказ);
Если Отказ Тогда
Возврат;
Конецесли;
КонецПроцедуры
Процедура ПроверитьРеквизиты(Отказ)

10
src/cf/Catalogs/узСпринты/Ext/ObjectModule.bsl
View File

@ -1,6 +1,10 @@

Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОчиститьЗаписи_узСпринтыЗадач_ПоЭтомуСпринту(Отказ);
СформироватьЗапись_узСпринтыЗадач(Отказ);
@ -83,6 +87,10 @@
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗаполнитьДатуНачала();
КонецПроцедуры
@ -94,7 +102,7 @@
Конецесли;
Если НЕ ЗначениеЗаполнено(ДатаНачала) Тогда
ДатаНачала = ТекущаяДата();
ДатаНачала = ТекущаяДатаСеанса();
Конецесли;
КонецПроцедуры

9
src/cf/Catalogs/узСтатусыЗадачи/Ext/ObjectModule.bsl
View File

@ -1,6 +1,10 @@

Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ИзменитьУПодчиненныхЭлементовРеквизиты();
КонецПроцедуры
@ -49,6 +53,11 @@
КонецПроцедуры
Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ЭтотОбъект.Уровень() > 1 Тогда
ВызватьИсключение "Ошибка! в данный момент не реализовано использования больше 2 уровней вложенности элементов";
//В канбан доске заголовки надо получать рекурсией

4
src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl
View File

@ -36,7 +36,7 @@
СпрОбъект.ТекстСодержания = пТекстСообщения;
СпрОбъект.Наименование = СпрОбъект.ТекстСодержания;
СпрОбъект.ДатаСоздания = ТекущаяДата();
СпрОбъект.ДатаСоздания = ТекущаяДатаСеанса();
СпрОбъект.ДатаТекущегоДела = СпрОбъект.ДатаСоздания;
СпрОбъект.Порядок = 1000;
СпрОбъект.Записать();
@ -93,7 +93,7 @@
СпрОбъект.ГруппаТекущегоДела = Неопределено;
СпрОбъект.Выполнено = Ложь;
СпрОбъект.ДатаВыполнения = Неопределено;
СпрОбъект.ДатаСоздания = ТекущаяДата();
СпрОбъект.ДатаСоздания = ТекущаяДатаСеанса();
СпрОбъект.ДатаТекущегоДела = СпрОбъект.ДатаСоздания;
СпрОбъект.Порядок = 1000;
СпрОбъект.Записать();

7
src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl
View File

@ -1,5 +1,10 @@

Процедура ПередЗаписью(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗаполнитьТекстСодержанияСтарое(Отказ);
КонецПроцедуры
@ -15,7 +20,7 @@
Конецесли;
пТекстСодержанияСтарое =
"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
"----------------------РАНЕЕ-----"+ТекущаяДатаСеанса()+"--------------------"
+ Символы.ПС
+ ТекстСодержания
+ Символы.ПС

12
src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl
View File

@ -390,7 +390,7 @@
Если СпрОбъект.Статус.ВидСтатуса = ВидСтатуса_Готово Тогда
Для каждого СтрокаИсторияСтатусов из СпрОбъект.ИсторияСтатусов цикл
Если НЕ ЗначениеЗаполнено(СтрокаИсторияСтатусов.ДатаОкончания) Тогда
СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДата();
СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДатаСеанса();
Конецесли;
Конеццикла;
Иначе
@ -1220,7 +1220,7 @@
#Конецесли
Если НЕ ЗначениеЗаполнено(обСпринт.ДатаНачала) Тогда
обСпринт.ДатаНачала = ТекущаяДата();
обСпринт.ДатаНачала = ТекущаяДатаСеанса();
Конецесли;
обСпринт.ТЧЗадачи.Очистить();
@ -1374,10 +1374,10 @@
ОбновлениеИнформационнойБазы.ОтметитьВыполнениеОбработки(ЗадачаОбъект);
КонецЕсли;
ЗафиксироватьТранзакцию();
ОбъектовОбработано = ОбъектовОбработано + 1;
ЗафиксироватьТранзакцию();
Исключение
ОтменитьТранзакцию();
@ -1542,9 +1542,9 @@
ОбновлениеИнформационнойБазы.ОтметитьВыполнениеОбработки(МассивСсылок);
ЗафиксироватьТранзакцию();
ОбъектовОбработано = ОбъектовОбработано + МассивСсылок.Количество();
ОбъектовОбработано = ОбъектовОбработано + МассивСсылок.Количество();
ЗафиксироватьТранзакцию();
Исключение

4
src/cf/CommonModules/узОбщийМодульКлиент/Ext/Module.bsl
View File

@ -181,4 +181,6 @@
Если узОбщийМодульСервер.узОткрыватьКанбанДоскуПриНачалеРаботыСистемы() Тогда
ОткрытьФорму("Обработка.узКанбанДоска.Форма.ФормаДинамическая");
Конецесли;
КонецПроцедуры
КонецПроцедуры

4
src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
View File

@ -9,7 +9,7 @@
ТекПользователь = Пользователи.ТекущийПользователь();
ДокОбъект = Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();
ДокОбъект.Дата = ТекущаяДата();
ДокОбъект.Дата = ТекущаяДатаСеанса();
ДокОбъект.Автор = ТекПользователь;
ДокОбъект.Важность = ПолучитьВажностьДляПисьма(ВажностьЗадачи);
@ -644,7 +644,7 @@
// - #165 } +++ [13.05.2019]
пКартинка = Новый Картинка(ЭлементВложения.Данные);
ИмяКартинки = "img"+НомерКартинки+"_"+Формат(ТекущаяДата(),"ДФ=ddMMyyyy_hhmmss");
ИмяКартинки = "img"+НомерКартинки+"_"+Формат(ТекущаяДатаСеанса(),"ДФ=ddMMyyyy_hhmmss");
пТекстHTML = СтрЗаменить(пТекстHTML,"cid:"+ЭлементВложения.Идентификатор,ИмяКартинки);
ВложениеСтруктура.Вставить(ИмяКартинки,пКартинка);

2
src/cf/CommonModules/узТелеграммСервер.xml
View File

@ -16,7 +16,7 @@
<ExternalConnection>false</ExternalConnection>
<ClientOrdinaryApplication>false</ClientOrdinaryApplication>
<ServerCall>true</ServerCall>
<Privileged>true</Privileged>
<Privileged>false</Privileged>
<ReturnValuesReuse>DontUse</ReturnValuesReuse>
</Properties>
</CommonModule>

106
src/cf/CommonModules/узТелеграммСервер/Ext/Module.bsl
View File

@ -23,104 +23,9 @@
КонецЦикла;
Возврат МассивПолучателейТелеграмм;
//Вернуть = Новый Массив;
//
//спПользователи = Новый СписокЗначений;
//спПользователи.ЗагрузитьЗначения(МассивПользователейКому);
//
//Запрос = Новый Запрос;
//Запрос.УстановитьПараметр("Пользователи", спПользователи);
//Запрос.Текст = ПолучитьМассивПолучателей_ТекстЗапроса();
//
//тзДанные = Запрос.Выполнить().Выгрузить();
//
//Для Каждого стрТЗ из тзДанные Цикл
//
// Вернуть.Добавить(Новый Структура("ИД, Пользователь", стрТЗ.ИД, стрТЗ.Пользователь));
//
//КонецЦикла;
//
//Возврат Вернуть;
КонецФункции
Функция Удалить_ПолучитьМассивПолучателей_ТекстЗапроса()
//Возврат "
//|ВЫБРАТЬ
//| ПользователиДополнительныеРеквизиты.Ссылка КАК Пользователь,
//| ПользователиДополнительныеРеквизиты.Значение,
//| ПользователиДополнительныеРеквизиты.Свойство.Заголовок КАК Свойство
//|ПОМЕСТИТЬ ВТ_Все
//|ИЗ
//| Справочник.Пользователи.ДополнительныеРеквизиты КАК ПользователиДополнительныеРеквизиты
//|ГДЕ
//| ПользователиДополнительныеРеквизиты.Ссылка В(&Пользователи)
//| И (ПользователиДополнительныеРеквизиты.Свойство.Заголовок = ""Телеграмм_ИД""
//| ИЛИ ПользователиДополнительныеРеквизиты.Свойство.Заголовок = ""Телеграмм_Отключить"")
//|;
//|
//|////////////////////////////////////////////////////////////////////////////////
//|ВЫБРАТЬ
//| ВТ_Все.Пользователь,
//| ВТ_Все.Значение КАК ИД,
//| NULL КАК Отключить
//|ПОМЕСТИТЬ ВТ_Раздельно
//|ИЗ
//| ВТ_Все КАК ВТ_Все
//|ГДЕ
//| ВТ_Все.Свойство = ""Телеграмм_ИД""
//|
//|ОБЪЕДИНИТЬ ВСЕ
//|
//|ВЫБРАТЬ
//| ВТ_Все.Пользователь,
//| NULL,
//| ВТ_Все.Значение
//|ИЗ
//| ВТ_Все КАК ВТ_Все
//|ГДЕ
//| ВТ_Все.Свойство = ""Телеграмм_Отключить""
//|;
//|
//|////////////////////////////////////////////////////////////////////////////////
//|ВЫБРАТЬ
//| ВТ_Раздельно.Пользователь,
//| МАКСИМУМ(ВТ_Раздельно.ИД) КАК ИД,
//| МАКСИМУМ(ВТ_Раздельно.Отключить) КАК Отключить
//|ПОМЕСТИТЬ ВТ_Групп
//|ИЗ
//| ВТ_Раздельно КАК ВТ_Раздельно
//|
//|СГРУППИРОВАТЬ ПО
//| ВТ_Раздельно.Пользователь
//|;
//|
//|////////////////////////////////////////////////////////////////////////////////
//|ВЫБРАТЬ
//| ВТ_Все.Пользователь,
//| ЕСТЬNULL(ВТ_Групп.ИД, """") КАК ИД,
//| ЕСТЬNULL(ВТ_Групп.Отключить, ЛОЖЬ) КАК Отключить
//|ПОМЕСТИТЬ ВТ_Данные
//|ИЗ
//| ВТ_Все КАК ВТ_Все
//| ЛЕВОЕ СОЕДИНЕНИЕ ВТ_Групп КАК ВТ_Групп
//| ПО ВТ_Все.Пользователь = ВТ_Групп.Пользователь
//|;
//|
//|////////////////////////////////////////////////////////////////////////////////
//|ВЫБРАТЬ
//| ВТ_Данные.Пользователь,
//| ВТ_Данные.ИД,
//| ВТ_Данные.Отключить
//|ИЗ
//| ВТ_Данные КАК ВТ_Данные
//|ГДЕ
//| НЕ ВТ_Данные.ИД = """"
//| И ВТ_Данные.Отключить = ЛОЖЬ
//|";
КонецФункции
Процедура ВыполнитьРассылку(ДопПараметры) Экспорт
ТокенБота = Константы.узТелеграмм_ТокенБота.Получить();
@ -201,10 +106,7 @@
КонецЦикла;
КонецПроцедуры
// +++ Григорьев 12.12.2018
КонецПроцедуры // +++ Григорьев 12.12.2018
////////////////////////////////////////////////////////////////////////////////
//
@ -278,9 +180,7 @@
Конецесли;
Возврат ОбрабатываемаяСтрока;
КонецФункции //ЗаменитьЗарезервированныеСимволы
// --- Григорьев 12.12.2018
КонецФункции //ЗаменитьЗарезервированныеСимволы // --- Григорьев 12.12.2018

17
src/cf/CommonPictures/узИконкаMDКод.xml Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0" encoding="UTF-8"?>
<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.9">
<CommonPicture uuid="ecbf8f95-722f-4fd3-94c3-a58b2d037f49">
<Properties>
<Name>узИконкаMDКод</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Иконка MD код</v8:content>
</v8:item>
</Synonym>
<Comment/>
<AvailabilityForChoice>false</AvailabilityForChoice>
<AvailabilityForAppearance>false</AvailabilityForAppearance>
</Properties>
</CommonPicture>
</MetaDataObject>

7
src/cf/CommonPictures/узИконкаMDКод/Ext/Picture.xml Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<ExtPicture xmlns="http://v8.1c.ru/8.3/xcf/extrnprops" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.9">
<Picture>
<xr:Abs>Picture.png</xr:Abs>
<xr:LoadTransparent>false</xr:LoadTransparent>
</Picture>
</ExtPicture>

BIN
src/cf/CommonPictures/узИконкаMDКод/Ext/Picture/Picture.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.1 KiB

1
src/cf/Configuration.xml
View File

@ -546,6 +546,7 @@
<CommonPicture>ЭлектронноеПисьмоВходящее</CommonPicture>
<CommonPicture>ЭлектронноеПисьмоИсходящее</CommonPicture>
<CommonPicture>ЯндексКарты</CommonPicture>
<CommonPicture>узИконкаMDКод</CommonPicture>
<SessionParameter>АвторизованныйПользователь</SessionParameter>
<SessionParameter>БуферОбмена</SessionParameter>
<SessionParameter>ВерсииШаблоновОграниченияДоступа</SessionParameter>

6
src/cf/DataProcessors/узАктивностьПользователя/Forms/Форма/Ext/Form/Module.bsl
View File

@ -62,7 +62,7 @@
Процедура Заполнить(Команда)
ЗаполнитьНаСервере();
пДеньАктивности = "ДеньАктивности" + Формат(ТекущаяДата(), "ДФ=yyyyMMddhhmmss" );
пДеньАктивности = "ДеньАктивности" + Формат(ТекущаяДатаНаСервере(), "ДФ=yyyyMMddhhmmss" );
структОтбор = Новый Структура( "День", Дата( СтрЗаменить( пДеньАктивности, "ДеньАктивности", "") ));
Элементы.ТаблицаАктивностей.ОтборСтрок = Новый ФиксированнаяСтруктура( структОтбор );
@ -422,6 +422,10 @@
ЗаполнитьНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции

2
src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl
View File

@ -464,7 +464,7 @@
КонецФункции
Функция ПолучитьИмяФайлаДляВыгрузки() Экспорт
Возврат "StorageHistory_"+Формат(ТекущаяДата(),"ДФ=ddMMyyyy_hhmmss")+".mxl";
Возврат "StorageHistory_"+Формат(ТекущаяДатаСеанса(),"ДФ=ddMMyyyy_hhmmss")+".mxl";
КонецФункции
Процедура ДобавитьВКомандуКлючЗначение(ТекстКоманды, Ключ, Значение = Неопределено)

8
src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Forms/Форма/Ext/Form/Module.bsl
View File

@ -1,7 +1,7 @@

&НаКлиенте
Процедура КомандаЗагрузитьИзмененияИзХранилища(Команда)
ВремяНачала=ТекущаяДата();
ВремяНачала = ТекущаяДатаНаСервере();
Если НЕ ПроверитьЗаполнение() Тогда
Возврат;
@ -16,7 +16,7 @@
ТабДокОтчет.Показать("Загруженная история хранилища");
Конецесли;
ВремяКонца=ТекущаяДата();
ВремяКонца = ТекущаяДатаНаСервере();
Сообщить("------------------------------------------------------------------");
Сообщить("ВремяНачала -"+ВремяНачала);
Сообщить("ВремяКонца -"+ВремяКонца);
@ -105,3 +105,7 @@
ПолучитьКомандуНаСервере();
КонецПроцедуры
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции

41
src/cf/DataProcessors/узКанбанДоска.xml
View File

@ -1301,6 +1301,47 @@
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
<Attribute uuid="d9d70bdf-4d2b-4117-8130-6e7460db309f">
<Properties>
<Name>Группа</Name>
<Synonym>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Группа</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>
<v8:Type>xs:decimal</v8:Type>
<v8:NumberQualifiers>
<v8:Digits>2</v8:Digits>
<v8:FractionDigits>0</v8:FractionDigits>
<v8:AllowedSign>Nonnegative</v8:AllowedSign>
</v8:NumberQualifiers>
</Type>
<PasswordMode>false</PasswordMode>
<Format/>
<EditFormat/>
<ToolTip/>
<MarkNegatives>false</MarkNegatives>
<Mask/>
<MultiLine>false</MultiLine>
<ExtendedEdit>false</ExtendedEdit>
<MinValue xsi:nil="true"/>
<MaxValue xsi:nil="true"/>
<FillFromFillingValue>false</FillFromFillingValue>
<FillValue xsi:nil="true"/>
<FillChecking>DontCheck</FillChecking>
<ChoiceFoldersAndItems>Items</ChoiceFoldersAndItems>
<ChoiceParameterLinks/>
<ChoiceParameters/>
<QuickChoice>Auto</QuickChoice>
<CreateOnInput>Auto</CreateOnInput>
<ChoiceForm/>
<LinkByType/>
<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
</Properties>
</Attribute>
</ChildObjects>
</TabularSection>
<Form>Удалить_Форма</Form>

2
src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl
View File

@ -84,7 +84,7 @@
ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных);
Возврат ТЗЗадачи;
КонецФункции
КонецФункции
Процедура СменитьСтатусЗадачи(ДопПараметры) Экспорт
НовыйСтатус = ДопПараметры.НовыйСтатус;

12
src/cf/DataProcessors/узКанбанДоска/Forms/Удалить_Форма/Ext/Form/Module.bsl
View File

@ -9,11 +9,13 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
//{Код для декомпиляции управляемой формы
Если ЭтаФорма.Параметры.Свойство("ДекомпиляцияЭлементов") Тогда
ВнешниеОбработки.Создать(ЭтаФорма.Параметры.ДекомпиляцияЭлементов.ИмяПодключеннойОбработки,Ложь).ОпределитьВнутренниеСвойстваЭлементов(ЭтаФорма);
КонецЕсли;
//}Код для декомпиляции управляемой формы
// + Иванов А.Б. 2020-06-28
////{Код для декомпиляции управляемой формы
//Если ЭтаФорма.Параметры.Свойство("ДекомпиляцияЭлементов") Тогда
// ВнешниеОбработки.Создать(ЭтаФорма.Параметры.ДекомпиляцияЭлементов.ИмяПодключеннойОбработки,Ложь).ОпределитьВнутренниеСвойстваЭлементов(ЭтаФорма);
//КонецЕсли;
////}Код для декомпиляции управляемой формы
// - Иванов А.Б. 2020-06-28
пНастройкиКомпоновщика = Неопределено;

6
src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form.xml
View File

@ -290,6 +290,12 @@
<ContextMenu name="ТЧНастройкиКолонокСтатусКонтекстноеМеню" id="502"/>
<ExtendedTooltip name="ТЧНастройкиКолонокСтатусРасширеннаяПодсказка" id="503"/>
</InputField>
<InputField name="ТЧНастройкиКолонокГруппа" id="553">
<DataPath>Объект.ТЧНастройкиКолонок.Группа</DataPath>
<EditMode>EnterOnInput</EditMode>
<ContextMenu name="ТЧНастройкиКолонокГруппаКонтекстноеМеню" id="554"/>
<ExtendedTooltip name="ТЧНастройкиКолонокГруппаРасширеннаяПодсказка" id="555"/>
</InputField>
<CheckBoxField name="ТЧНастройкиКолонокВидимость" id="504">
<DataPath>Объект.ТЧНастройкиКолонок.Видимость</DataPath>
<EditMode>EnterOnInput</EditMode>

65
src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl
View File

@ -112,13 +112,41 @@
ЭтаФорма.ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);
///// КОМАНДЫ //////////
// + #228 Пиганов Г.В. 2020.07.02
///// ГРУППЫ //////////
ЭлементыГрупп = Новый Соответствие;
ПрефиксДляИмениЭлементовГрупп = ПолучитьПрефиксДляИмениЭлементовГрупп();
ОтборВидимыхСтрок = Новый Структура();
ТаблицаГрупп = Объект.ТЧНастройкиКолонок.Выгрузить(ОтборВидимыхСтрок, "Группа");
ТаблицаГрупп.Свернуть("Группа", "");
ТаблицаГрупп.Сортировать("Группа");
Для Каждого СтрокаГруппы Из ТаблицаГрупп Цикл
НомерГруппы = СтрокаГруппы.Группа;
ИмяГруппы = ПрефиксДляИмениЭлементовГрупп + СтрокаГруппы.Группа;
ЭлементГруппаГруппа = Элементы.Вставить(ИмяГруппы, Тип("ГруппаФормы"), Элементы.ГруппаКанбанДоска);
ЭлементГруппаГруппа.Вид = ВидГруппыФормы.ОбычнаяГруппа;
ЭлементГруппаГруппа.Отображение = ОтображениеОбычнойГруппы.Нет;
Если НомерГруппы = 0 Тогда
ЭлементГруппаГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.ГоризонтальнаяВсегда;
Иначе
ЭлементГруппаГруппа.Группировка = ГруппировкаПодчиненныхЭлементовФормы.Вертикальная;
КонецЕсли;
ЭлементыГрупп.Вставить(НомерГруппы, ЭлементГруппаГруппа);
КонецЦикла;
// - #228 Пиганов Г.В. 2020.07.02
///// ЭЛЕМЕНТЫ //////////
Для каждого СтрокаТЧНастройкиКолонок из Объект.ТЧНастройкиКолонок цикл
Если НЕ СтрокаТЧНастройкиКолонок.Видимость Тогда
Продолжить;
Конецесли;
пСтатус = СтрокаТЧНастройкиКолонок.Статус;
ДобавитьНаКанбанДоскуКолонку(пСтатус);
// + #228 Пиганов Г.В. 2020.07.02
//ДобавитьНаКанбанДоскуКолонку(пСтатус);
пГруппаЭлемент = ЭлементыГрупп[СтрокаТЧНастройкиКолонок.Группа];
ДобавитьНаКанбанДоскуКолонку(пСтатус, пГруппаЭлемент);
// - #228 Пиганов Г.В. 2020.07.02
Конеццикла;
КонецПроцедуры
@ -126,7 +154,10 @@
&НаСервере
Процедура УдалитьДинамическиеЭлементы()
пЭлементыФормы = Этаформа.Элементы;
ПрефиксДляИмениЭлементовКолонок = ПолучитьПрефиксДляИмениЭлементовКолонок();
// + #228 Пиганов Г.В. 2020.07.02
//ПрефиксДляИмениЭлементовКолонок = ПолучитьПрефиксДляИмениЭлементовКолонок();
ПрефиксДляИмениЭлементовКолонок = ПолучитьПрефиксДляИмениЭлементовГрупп();
// - #228 Пиганов Г.В. 2020.07.02
ЭлементыКУдалению = Новый Массив();
Для каждого пЭлементФормы из пЭлементыФормы цикл
Если СтрНайти(пЭлементФормы.Имя,ПрефиксДляИмениЭлементовКолонок) = 0 Тогда
@ -142,6 +173,13 @@
Конеццикла;
КонецПроцедуры
// + #228 Пиганов Г.В. 2020.07.02
&НаСервере
Функция ПолучитьПрефиксДляИмениЭлементовГрупп()
Возврат "_Группа_";
КонецФункции
// - #228 Пиганов Г.В. 2020.07.02
&НаСервере
Функция ПолучитьПрефиксДляИмениЭлементовКолонок()
Возврат "_Колонка_";
@ -191,7 +229,10 @@
КонецФункции
&НаСервере
Процедура ДобавитьНаКанбанДоскуКолонку(пСтатус)
// + #228 Пиганов Г.В. 2020.07.02
//Процедура ДобавитьНаКанбанДоскуКолонку(пСтатус)
Процедура ДобавитьНаКанбанДоскуКолонку(пСтатус, пЭлементГруппаГруппа)
// - #228 Пиганов Г.В. 2020.07.02
//ПредставлениеКолонки = пСтатус.Наименование;
ПредставлениеКолонки = ПолучитьПредставлениеКолонки(пСтатус);
@ -201,7 +242,11 @@
ИменаЭлементов = ПолучитьИменаЭлементовДляКолонки(пСтатус);
пЭлементГруппаКолонка = пЭлементыФормы.Вставить(ИменаЭлементов.ИмяГруппыКолонки,Тип("ГруппаФормы"),пЭлементыФормы.ГруппаКанбанДоска);
// + #228 Пиганов Г.В. 2020.07.02
//пЭлементГруппаКолонка = пЭлементыФормы.Вставить(ИменаЭлементов.ИмяГруппыКолонки,Тип("ГруппаФормы"),пЭлементыФормы.ГруппаКанбанДоска);
пЭлементГруппаКолонка = пЭлементыФормы.Вставить(ИменаЭлементов.ИмяГруппыКолонки,
Тип("ГруппаФормы"), пЭлементГруппаГруппа);
// - #228 Пиганов Г.В. 2020.07.02
пЭлементГруппаКолонка.Вид = ВидГруппыФормы.ОбычнаяГруппа;
пЭлементГруппаКолонка.Заголовок = ПредставлениеКолонки;
пЭлементГруппаКолонка.Подсказка = ПредставлениеКолонки;
@ -718,12 +763,20 @@
Если СохраненныеНастройки.Свойство("ТЧНастройкиКолонок") Тогда
ЗаполнитьТЧНастройкиКолонокНаСервере();
ТЧНастройкиКолонок = СохраненныеНастройки.ТЧНастройкиКолонок;
// + #228 Пиганов Г.В. 2020.07.02
Если ТЧНастройкиКолонок.Колонки.Найти("Группа") = Неопределено Тогда
ТЧНастройкиКолонок.Колонки.Добавить("Группа");
КонецЕсли;
// - #228 Пиганов Г.В. 2020.07.02
Для каждого СтрокаТЧНастройкиКолонок из Объект.ТЧНастройкиКолонок цикл
ПараметрыОтбора=Новый Структура();
ПараметрыОтбора.Вставить("Статус",СтрокаТЧНастройкиКолонок.Статус);
НайденныеСтрокиСохраненныеНастройки = ТЧНастройкиКолонок.НайтиСтроки(ПараметрыОтбора);
Для каждого СтрокаНайденныеСтроки из НайденныеСтрокиСохраненныеНастройки цикл
СтрокаТЧНастройкиКолонок.Видимость = СтрокаНайденныеСтроки.Видимость;
// + #228 Пиганов Г.В. 2020.07.02
СтрокаТЧНастройкиКолонок.Группа = СтрокаНайденныеСтроки.Группа;
// - #228 Пиганов Г.В. 2020.07.02
Конеццикла;
Конеццикла;
Иначе
@ -992,7 +1045,9 @@
Конецесли;
Если ЭтоУдаление Тогда
ТЗТекущиеСпринтыДляЗадач = Справочники.узСпринты.ПолучитьТЗТекущиеСпринтыДляЗадач(КонецДня(ТекущаяДата()),МассивЗадач);
ТЗТекущиеСпринтыДляЗадач = Справочники.узСпринты.ПолучитьТЗТекущиеСпринтыДляЗадач(
КонецДня(ТекущаяДатаСеанса()),
МассивЗадач);
Конецесли;
Для каждого ЭлМассиваЗадач из МассивЗадач цикл

6
src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl
View File

@ -55,7 +55,7 @@
КонецФункции
Процедура ЗагрузитьИсторию() Экспорт
ВремяНачала=ТекущаяДата();
ВремяНачала=ТекущаяДатаСеанса();
мТЗHistory = Неопределено;
мТЗUsers = Неопределено;
@ -79,7 +79,7 @@
мТЗObjects = Неопределено;
мТЗИменаКлассов = Неопределено;
ВремяКонца=ТекущаяДата();
ВремяКонца=ТекущаяДатаСеанса();
ВывестиСообщение("------------------------------------------------------------------");
ВывестиСообщение("ВремяНачала -"+ВремяНачала);
@ -625,7 +625,7 @@
Возврат;
Конецесли;
Сообщить("ОТЛАДКА "+ТекущаяДата() + ": "+ТекстСообщения);
Сообщить("ОТЛАДКА "+ТекущаяДатаСеанса() + ": "+ТекстСообщения);
КонецПроцедуры
Процедура УдалитьВременныеФайлы(РезультатВыгрузки)

2
src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl
View File

@ -198,7 +198,7 @@
Функция СоздатьТекущееДело(СтрокаТЧТекущиеДела)
ТекущееДелоОбъект = Справочники.узТекущиеДела.СоздатьЭлемент();
ТекущееДелоОбъект.Автор = Пользователи.ТекущийПользователь();
ТекущееДелоОбъект.ДатаСоздания = ТекущаяДата();
ТекущееДелоОбъект.ДатаСоздания = ТекущаяДатаСеанса();
ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания;
Возврат ТекущееДелоОбъект;

14
src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl
View File

@ -18,7 +18,7 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.НаДату = ТекущаяДата();
Объект.НаДату = ТекущаяДатаСеанса();
Объект.НаДатуКонецДня = КонецДня(Объект.НаДату);
Объект.ПоказыватьСегодня = Истина;
Объект.ПоказыватьНаНеделе = Истина;
@ -208,7 +208,7 @@
Если СтрокаТЧТекущиеДела.Выполнено Тогда
Продолжить;
Конецесли;
СтрокаТЧТекущиеДела.ДатаВыполнения = ТекущаяДата();
СтрокаТЧТекущиеДела.ДатаВыполнения = ТекущаяДатаНаСервере();
СтрокаТЧТекущиеДела.Выполнено = Истина;
Конеццикла;
@ -277,14 +277,14 @@
&НаКлиенте
Процедура КомандаНаДату(Команда)
НаДатуНовая = НачалоДня(ТекущаяДата());
НаДатуНовая = НачалоДня(ТекущаяДатаНаСервере());
ИзменитьНаДату(НаДатуНовая);
КонецПроцедуры
&НаКлиенте
Процедура ОбновитьЗаголовокКомандаНаДату()
пЗаголовок = "";
Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДата()) Тогда
Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДатаНаСервере()) Тогда
пЗаголовок = "Сегодня";
Иначе
пЗаголовок = Формат(Объект.НаДату,"ДФ='dd.MM ддд'");
@ -336,7 +336,7 @@
Процедура ТЧТекущиеДелаПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
Если НоваяСтрока Тогда
СтрокаТЧТекущиеДела = Элемент.ТекущиеДанные;
СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата();
СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДатаНаСервере();
СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания;
СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;
СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня");
@ -811,5 +811,9 @@
Возврат ТабДокумент;
КонецФункции
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции

11
src/cf/Documents/узВводФактаПоЗадаче/Forms/ФормаДокументаВводСЗадачи/Ext/Form/Module.bsl
View File

@ -2,7 +2,7 @@
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Объект.Дата = ТекущаяДата();
Объект.Дата = ТекущаяДатаСеанса();
//Павлюков
ДатаОкончания = Объект.Дата;
@ -83,7 +83,7 @@
&НаКлиенте
Процедура ДатаНачалаОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДатаНачала = НачалоМинуты(ТекущаяДата());
ДатаНачала = НачалоМинуты(ТекущаяДатаНаСервере());
Если НЕ ЗначениеЗаполнено(ДатаОкончания)
ИЛИ ДатаНачала > ДатаОкончания Тогда
ДатаОкончания = ПолучитьДатаОкончания(ДатаНачала);
@ -126,7 +126,7 @@
Процедура ДатаОкончанияОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДата());
ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДатаНаСервере());
ИзменитьЧасыФактДляСтроки();
КонецПроцедуры
// --- 79Vlad 25.10.2018
@ -177,3 +177,8 @@
Процедура Команда5Часов(Команда)
УказатьФактВМинутах(300);
КонецПроцедуры
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции

10
src/cf/Documents/узВыпускРелиза/Ext/ObjectModule.bsl
View File

@ -1,5 +1,10 @@

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ОчиститьСвязанныеТЧ();
СформироватьСписокЗадач();
@ -61,6 +66,11 @@
КонецФункции
Процедура ПриЗаписи(Отказ)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
Если ДополнительныеСвойства.Свойство("узЭтоОбработка") Тогда
Возврат;
Конецесли;

9
src/cf/Documents/узВыпускРелиза/Forms/ФормаДокумента/Ext/Form/Module.bsl
View File

@ -495,7 +495,7 @@
Возврат;
Конецесли;
ВремяНачала=ТекущаяДата();
ВремяНачала=ТекущаяДатаНаСервере();
РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере();
@ -511,7 +511,7 @@
ТабДокОтчет.Показать("Загруженная история хранилища");
Конецесли;
ВремяКонца=ТекущаяДата();
ВремяКонца=ТекущаяДатаНаСервере();
Сообщить("------------------------------------------------------------------");
Сообщить("ВремяНачала -"+ВремяНачала);
Сообщить("ВремяКонца -"+ВремяКонца);
@ -583,3 +583,8 @@
КонецПроцедуры
// Конец СтандартныеПодсистемы.ПодключаемыеКоманды
&НаСервереБезКонтекста
Функция ТекущаяДатаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции

6
src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl
View File

@ -106,7 +106,7 @@
МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;
@ -145,7 +145,7 @@
МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;
@ -199,7 +199,7 @@
МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;