1
0
mirror of https://github.com/BlizD/Tasks.git synced 2025-01-14 03:20:16 +02:00

#38 Добавил горячую клавишу Ctrl+Shift+F для команды "Создать иерархию на диске"

* Указал английское наименование для реквизита "Каталог пользователя";
* В канан доске изменил порядок для команды "Создать иерархию на диске";
* Изменил длину папки с 30 до 40 символов;
This commit is contained in:
Anton Ivanov 2017-08-15 08:44:46 +03:00
parent 5792ca69a6
commit 79623e442c
7 changed files with 205 additions and 13 deletions

View File

@ -1082,6 +1082,14 @@
<v8:lang>ru</v8:lang>
<v8:content>Каталог пользователя</v8:content>
</v8:item>
<v8:item>
<v8:lang>en</v8:lang>
<v8:content>The user directory</v8:content>
</v8:item>
<v8:item>
<v8:lang>ro</v8:lang>
<v8:content>The user directory</v8:content>
</v8:item>
</Synonym>
<Comment/>
<Type>

View File

@ -3163,7 +3163,7 @@
<xr:Ref>CommonPicture.Структура</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>
</Picture>
<Shortcut/>
<Shortcut>Ctrl+Shift+F</Shortcut>
</Properties>
</Command>
</ChildObjects>

View File

@ -25,6 +25,10 @@
Если НЕ ЗначениеЗаполнено(Каталог) Тогда
Каталог = ВыбратьКаталог(РежимДиалогаВыбораФайла.ВыборКаталога, "Выберите каталог");
пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("ВНИМАНИЕ! Чтобы не указывать "
+"каждый раз каталог для задач, его необходимо задать в реквизите [Каталог пользователя] в справочнике пользователи",92);
Сообщить(пТекстСообщения);
Если Каталог = Неопределено Тогда
Возврат;
КонецЕсли;
@ -35,7 +39,7 @@
ПолныйПутьЗадачи = узОбщийМодульСервер.ПолучитьПолныйПутьЗадачи(СтрокаМассива);
Если НЕ ЗначениеЗаполнено(ПолныйПутьЗадачи) Тогда
Сообщить("Не удалось получить путь для задачи "+СтрокаМассива);
Сообщить("Ошибка! Не удалось получить путь для задачи "+СтрокаМассива);
Возврат;
КонецЕсли;
@ -52,11 +56,13 @@
КаталогНаДиске = Новый Файл(ИмяКаталога);
Если КаталогНаДиске.Существует() Тогда
Сообщить("Создан каталог "+ИмяКаталога);
пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("Создан каталог %1",90);
Иначе
Сообщить("Не удалось создать каталог "+ИмяКаталога);
пТекстСообщения = узОбщийМодульСервер.ПолучитьТекстСообщения("Не удалось создать каталог %1",91);
КонецЕсли;
пТекстСообщения = СтрШаблон(пТекстСообщения,ИмяКаталога);
Сообщить(пТекстСообщения);
КонецПроцедуры
Функция ВыбратьКаталог(Режим, Заголовок)

View File

@ -271,7 +271,7 @@
Функция СобратьНазваниеДляПапки(Наименование, Код)
Шаблон = "#%1 %2";
СокращенноеНаименование = Лев(Наименование, 30);
СокращенноеНаименование = Лев(Наименование, 40);
ОбработанноеНаименование = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(СокращенноеНаименование, "");
Результат = СтрШаблон(Шаблон, Код, ОбработанноеНаименование);

View File

@ -5585,10 +5585,187 @@
</c>
</row>
</rowsItem>
<rowsItem>
<index>90</index>
<row>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>90</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ОбщийМодуль.узОбщийМодульКлиент</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Создан каталог %1</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Created directory %1</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>91</index>
<row>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>91</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
<c>
<c>
<f>15</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ОбщийМодуль.узОбщийМодульКлиент</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Не удалось создать каталог %1</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>Failed to create directory %1</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
</row>
</rowsItem>
<rowsItem>
<index>92</index>
<row>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>92</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
<c>
<c>
<f>15</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ОбщийМодуль.узОбщийМодульКлиент</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ВНИМАНИЕ! Чтобы не указывать каждый раз каталог для задач, его необходимо задать в реквизите [Каталог пользователя] в справочнике пользователи</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
<tl>
<v8:item>
<v8:lang>ru</v8:lang>
<v8:content>ATTENTION! Not to enter a directory for the task, it should be set in the props [user Directory] in the directory users</v8:content>
</v8:item>
</tl>
</c>
</c>
<c>
<c>
<f>8</f>
</c>
</c>
</row>
</rowsItem>
<templateMode>true</templateMode>
<defaultFormatIndex>18</defaultFormatIndex>
<height>90</height>
<vgRows>90</vgRows>
<height>93</height>
<vgRows>93</vgRows>
<line width="1" gap="false">
<v8ui:style xsi:type="v8ui:SpreadsheetDocumentCellLineType">Solid</v8ui:style>
</line>

View File

@ -531,6 +531,7 @@
<v8:content>Создать иерархию задач на диске</v8:content>
</v8:item>
</ToolTip>
<Shortcut>Ctrl+Shift+F</Shortcut>
<Picture>
<xr:Ref>CommonPicture.Структура</xr:Ref>
<xr:LoadTransparent>true</xr:LoadTransparent>

View File

@ -239,6 +239,11 @@
пКомандаСкопироватьКомментарийВКоде.ИмяКоманды="КомандаСкопироватьКомментарийВКоде";
пКомандаСкопироватьКомментарийВКоде.Отображение = ОтображениеКнопки.КартинкаИТекст;
пКомандаНеСледитьЗаЗадачей = пЭлементыФормы.Добавить(ИменаЭлементов.ИмяКомандыСоздатьИерархиюЗадачНаДиске, Тип("КнопкаФормы"), пЭлементТЧЗадачи.КонтекстноеМеню);
пКомандаНеСледитьЗаЗадачей.Заголовок=СтруктураСообщений.Текст89;
пКомандаНеСледитьЗаЗадачей.ИмяКоманды="КомандаСоздатьИерархиюЗадачНаДиске";
пКомандаНеСледитьЗаЗадачей.Отображение = ОтображениеКнопки.КартинкаИТекст;
пКомандаДобавитьВСпринт = пЭлементыФормы.Добавить(ИменаЭлементов.ИмяКомандыДобавитьВСпринт, Тип("КнопкаФормы"), пЭлементТЧЗадачи.КонтекстноеМеню);
пКомандаДобавитьВСпринт.Заголовок=СтруктураСообщений.Текст71;
пКомандаДобавитьВСпринт.ИмяКоманды="КомандаДобавитьВСпринт";
@ -258,12 +263,7 @@
пКомандаНеСледитьЗаЗадачей.Заголовок=СтруктураСообщений.Текст74;
пКомандаНеСледитьЗаЗадачей.ИмяКоманды="КомандаНеСледитьЗаЗадачей";
пКомандаНеСледитьЗаЗадачей.Отображение = ОтображениеКнопки.КартинкаИТекст;
пКомандаНеСледитьЗаЗадачей = пЭлементыФормы.Добавить(ИменаЭлементов.ИмяКомандыСоздатьИерархиюЗадачНаДиске, Тип("КнопкаФормы"), пЭлементТЧЗадачи.КонтекстноеМеню);
пКомандаНеСледитьЗаЗадачей.Заголовок=СтруктураСообщений.Текст89;
пКомандаНеСледитьЗаЗадачей.ИмяКоманды="КомандаСоздатьИерархиюЗадачНаДиске";
пКомандаНеСледитьЗаЗадачей.Отображение = ОтображениеКнопки.КартинкаИТекст;
// ****** Группа формы "Карточка задачи" ***********
пЭлементКарточкаЗадачи = пЭлементыФормы.Вставить(ИменаЭлементов.ИмяКарточкаЗадачи,Тип("ГруппаФормы"),пЭлементТЧЗадачи,Неопределено);