From fed2f31d91e7ccbc95802d4ab9004c24114141d1 Mon Sep 17 00:00:00 2001
From: Anton Ivanov <iab@bk.ru>
Date: Tue, 15 Aug 2017 15:18:18 +0300
Subject: [PATCH] =?UTF-8?q?#38=20=D0=98=D0=B7=D0=BC=D0=B5=D0=BD=D0=B8?=
 =?UTF-8?q?=D0=BB=20=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5=D0=BD=D0=B8=D0=B5?=
 =?UTF-8?q?=20=D1=81=D0=BE=D0=BA=D1=80=D0=B0=D1=89=D0=B5=D0=BD=D0=BD=D0=BE?=
 =?UTF-8?q?=D0=B3=D0=BE=20=D0=B2=D0=B0=D1=80=D0=B8=D0=B0=D0=BD=D1=82=D0=B0?=
 =?UTF-8?q?=20=D0=BD=D0=B0=D0=B8=D0=BC=D0=B5=D0=BD=D0=BE=D0=B2=D0=B0=D0=BD?=
 =?UTF-8?q?=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../узОбщийМодульСервер/Ext/Module.bsl        | 33 +++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
index 04bdd8b14..eae3790d1 100644
--- a/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
+++ b/src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl
@@ -268,10 +268,13 @@
 		
 КонецПроцедуры	
 
-Функция СобратьНазваниеДляПапки(Наименование, Код)
+Функция СобратьНазваниеДляПапки(ЗНАЧ Наименование, ЗНАЧ Код)
+	Код = ""+Формат(Код,"ЧГ=0");
 	
 	Шаблон = "#%1 %2";
-	СокращенноеНаименование = Лев(Наименование, 40);	
+	
+	СокращенноеНаименование = ПолучитьСокращенноеНаименованиеЗадачи(Наименование);	
+	
 	ОбработанноеНаименование = ОбщегоНазначенияКлиентСервер.ЗаменитьНедопустимыеСимволыВИмениФайла(СокращенноеНаименование, "");
 	Результат = СтрШаблон(Шаблон, Код, ОбработанноеНаименование);
 		
@@ -279,6 +282,32 @@
 
 КонецФункции
 
+Функция ПолучитьСокращенноеНаименованиеЗадачи(НаименованиеЗадачи) 
+	Перем СокращенноеНаименование;
+	
+	МассивПодстрок = СтрРазделить(НаименованиеЗадачи," ");
+	КоличествоСлов = МассивПодстрок.Количество();
+	
+	ДлинаОдногоСлова = 10;
+	ДлинаСокращенногоНаименования = 30;
+	
+	СокращенноеНаименование = "";
+	Для каждого пСлово из МассивПодстрок цикл
+		СловоДляНаименования = пСлово;
+		
+		Если СтрДлина(СловоДляНаименования) > ДлинаОдногоСлова Тогда
+			СловоДляНаименования = Лев(пСлово,ДлинаОдногоСлова) + "."; 
+		Конецесли;
+		
+		СокращенноеНаименование = СокращенноеНаименование + СловоДляНаименования + " ";
+	Конеццикла;
+	
+	СокращенноеНаименование = Лев(СокращенноеНаименование,ДлинаСокращенногоНаименования);
+	СокращенноеНаименование = СокрЛП(СокращенноеНаименование);
+	
+	Возврат СокращенноеНаименование;
+КонецФункции 
+
 Функция ЗначениеРеквизитаОбъекта(Ссылка, Реквизит) Экспорт
 	Возврат ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, Реквизит);
 КонецФункции
\ No newline at end of file