1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-04-11 11:32:12 +02:00
Code Issues Releases Activity

#38 Изменил получение сокращенного варианта наименования

Browse Source
This commit is contained in:
Anton Ivanov 2017-08-15 15:18:18 +03:00
parent 8d593dc6dc
commit fed2f31d91
1 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -268,10 +268,13 @@
КонецПроцедуры
Функция СобратьНазваниеДляПапки(Наименование, Код)
Функция СобратьНазваниеДляПапки(ЗНАЧ Наименование, ЗНАЧ Код)
Код = ""+Формат(Код,"ЧГ=0");
Шаблон = "#%1 %2";
СокращенноеНаименование = Лев(Наименование, 40);
СокращенноеНаименование = ПолучитьСокращенноеНаименованиеЗадачи(Наименование);
ОбработанноеНаименование = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(СокращенноеНаименование, "");
Результат = СтрШаблон(Шаблон, Код, ОбработанноеНаименование);
@ -279,6 +282,32 @@
КонецФункции
Функция ПолучитьСокращенноеНаименованиеЗадачи(НаименованиеЗадачи)
Перем СокращенноеНаименование;
МассивПодстрок = СтрРазделить(НаименованиеЗадачи," ");
КоличествоСлов = МассивПодстрок.Количество();
ДлинаОдногоСлова = 10;
ДлинаСокращенногоНаименования = 30;
СокращенноеНаименование = "";
Для каждого пСлово из МассивПодстрок цикл
СловоДляНаименования = пСлово;
Если СтрДлина(СловоДляНаименования) > ДлинаОдногоСлова Тогда
СловоДляНаименования = Лев(пСлово,ДлинаОдногоСлова) + ".";
Конецесли;
СокращенноеНаименование = СокращенноеНаименование + СловоДляНаименования + " ";
Конеццикла;
СокращенноеНаименование = Лев(СокращенноеНаименование,ДлинаСокращенногоНаименования);
СокращенноеНаименование = СокрЛП(СокращенноеНаименование);
Возврат СокращенноеНаименование;
КонецФункции
Функция ЗначениеРеквизитаОбъекта(Ссылка, Реквизит) Экспорт
Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, Реквизит);
КонецФункции