Merge pull request #48 from Polyplastic/fix_some_bug

Fix some bug

parsing-tech-log-plugins/src/ExternalDataProcessors/АвтоматическаяКлассификацияОшибокВекторноеПространство/Forms/ФормаНастроек/Module.bsl

@@ -20,8 +20,8 @@
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
-	//првоерим версию не ниже 2.0.4.6
-	Если Метаданные.Версия<"2.0.4.6" Тогда
+	//првоерим версию не ниже 2.0.6.1
+	Если Метаданные.Версия<"2.0.6.1" Тогда
 		Сообщить("У вас устаревшая конфигурация версия "+Метаданные.Версия+". Обновитесь до версии не ниже '2.0.4.6'!");
 		ТребуетсяОбновление = Истина;
 	КонецЕсли;
@@ -100,6 +100,11 @@
 	мНастройка.Вставить("ЗаписыватьРезультатОбработкиТекущийЗамер",ЗаписыватьРезультатОбработкиТекущийЗамер);	
 	мНастройка.Вставить("ГруппировкаПоВремени",ГруппировкаПоВремени);	
 
+	// данные обработки текстов:  стоп слова и др.
+	мНастройка.Вставить("СтопСлова",СтопСлова);
+	мНастройка.Вставить("СтопФразы",СтопФразы);
+	мНастройка.Вставить("ФразыСинонимы",ФразыСинонимы);
+
 	мНастройка.Вставить("ОбработкаТекста",новый Структура);
 	мНастройка.ОбработкаТекста.Вставить("Текст_ИспользоватьСтеммерПортера",Текст_ИспользоватьСтеммерПортера);	
 	мНастройка.ОбработкаТекста.Вставить("Текст_РазделятьБольшойМаленький",Текст_РазделятьБольшойМаленький);
@@ -150,6 +155,10 @@
 		СохранятьВторойКласс = мНастройка.СохранятьВторойКласс;
 		ГруппировкаПоВремени = мНастройка.ГруппировкаПоВремени;
 
+		СтопСлова = мНастройка.СтопСлова;
+		СтопФразы = мНастройка.СтопФразы;
+		ФразыСинонимы = мНастройка.ФразыСинонимы;		
+
 		Текст_ИспользоватьСтеммерПортера = ОбработкаТекста.Текст_ИспользоватьСтеммерПортера;
 		Текст_РазделятьБольшойМаленький = ОбработкаТекста.Текст_РазделятьБольшойМаленький;
 		Текст_ЗаменитьСинонимы = ОбработкаТекста.Текст_ЗаменитьСинонимы;

parsing-tech-log-plugins/src/ExternalDataProcessors/АвтоматическаяКлассификацияОшибокВекторноеПространство/ObjectModule.bsl

@@ -8,7 +8,7 @@
 	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
 	ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
 	ПараметрыРегистрации.Вставить("Наименование", "Автоклассификация ошибок ТЖ");
-	ПараметрыРегистрации.Вставить("Версия", "2020.06.13");
+	ПараметрыРегистрации.Вставить("Версия", "2020.06.18");
 	ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
 	ПараметрыРегистрации.Вставить("Информация", ИнформацияПоИсторииИзменений());
 	ПараметрыРегистрации.Вставить("ВерсияБСП", "1.2.1.4");
@@ -154,11 +154,11 @@
 	// ДатаПрочитанныхДанных
 
 	// загрузим стопфразы
-	мНастройка.Вставить("СтопФразы",ПолучитьСтопФразы(ПолучитьМакетНаСервере("СтопФразы").ПолучитьТекст()));
+	мНастройка.Вставить("СтопФразы", ПолучитьСтопФразы(?(мНастройка.Свойство("СтопФразы"),мНастройка.СтопФразы,ПолучитьМакетНаСервере("СтопФразы").ПолучитьТекст())));
 	// загрузим синонимы
-	мНастройка.Вставить("ФразыСинонимы",ПолучитьФразыСинонимы(ПолучитьМакетНаСервере("ФразыСинонимы").ПолучитьТекст()));
+	мНастройка.Вставить("ФразыСинонимы",ПолучитьФразыСинонимы(?(мНастройка.Свойство("ФразыСинонимы"),мНастройка.ФразыСинонимы,ПолучитьМакетНаСервере("ФразыСинонимы").ПолучитьТекст())));
 	// загрузим СтопСлова
-	мНастройка.Вставить("СтопСлова",ПолучитьСтопСлов(ПолучитьМакетНаСервере("СтопСлова").ПолучитьТекст()));
+	мНастройка.Вставить("СтопСлова",ПолучитьСтопСлов(?(мНастройка.Свойство("СтопСлова"),мНастройка.СтопСлова,ПолучитьМакетНаСервере("СтопСлова").ПолучитьТекст())));
 	// ТаблицаВажностиСлов
 	мНастройка.Вставить("ТаблицаВажностиСлов",новый ТаблицаЗначений);
 	// ВекторСловСписком
@@ -476,6 +476,7 @@
 
 	Для каждого Слово из БазисСлов Цикл
 		Структура = новый Структура("Слово,Количество,КоличествоСлов,КоличествоДокументовЭтоСлово,TF,IDF,TFIDF,Значение",Слово.Слово,0,0,0,0,0,0,0);
+		ЗаполнитьЗначенияСвойств(Структура,Слово);
 		ВекторСловСписком.Добавить(Структура,Слово.Слово);
 	КонецЦикла;
 	// отсортируем

parsing-tech-log-plugins/src/ExternalDataProcessors/МониторRAS_1C/Forms/ФормаМонитора/Form.form

@@ -1801,6 +1801,66 @@
                 <placementArea>UserCmds</placementArea>
                 <representationInContextMenu>Auto</representationInContextMenu>
               </items>
+              <items xsi:type="form:Button">
+                <name>ТаблицаДанныхПерейтиКПервойСтроке</name>
+                <id>283</id>
+                <visible>true</visible>
+                <enabled>true</enabled>
+                <userVisible>
+                  <common>true</common>
+                </userVisible>
+                <extendedTooltip>
+                  <name>ТаблицаДанныхПерейтиКПервойСтрокеРасширеннаяПодсказка</name>
+                  <id>284</id>
+                  <visible>true</visible>
+                  <enabled>true</enabled>
+                  <userVisible>
+                    <common>true</common>
+                  </userVisible>
+                  <type>Label</type>
+                  <autoMaxWidth>true</autoMaxWidth>
+                  <autoMaxHeight>true</autoMaxHeight>
+                  <extInfo xsi:type="form:LabelDecorationExtInfo">
+                    <horizontalAlign>Left</horizontalAlign>
+                  </extInfo>
+                </extendedTooltip>
+                <commandName>Form.Command.ПерейтиКПервойСтроке</commandName>
+                <representation>Auto</representation>
+                <autoMaxWidth>true</autoMaxWidth>
+                <autoMaxHeight>true</autoMaxHeight>
+                <placementArea>UserCmds</placementArea>
+                <representationInContextMenu>Auto</representationInContextMenu>
+              </items>
+              <items xsi:type="form:Button">
+                <name>ТаблицаДанныхПерейтиКПоследнейСтроке</name>
+                <id>285</id>
+                <visible>true</visible>
+                <enabled>true</enabled>
+                <userVisible>
+                  <common>true</common>
+                </userVisible>
+                <extendedTooltip>
+                  <name>ТаблицаДанныхПерейтиКПоследнейСтрокеРасширеннаяПодсказка</name>
+                  <id>286</id>
+                  <visible>true</visible>
+                  <enabled>true</enabled>
+                  <userVisible>
+                    <common>true</common>
+                  </userVisible>
+                  <type>Label</type>
+                  <autoMaxWidth>true</autoMaxWidth>
+                  <autoMaxHeight>true</autoMaxHeight>
+                  <extInfo xsi:type="form:LabelDecorationExtInfo">
+                    <horizontalAlign>Left</horizontalAlign>
+                  </extInfo>
+                </extendedTooltip>
+                <commandName>Form.Command.ПерейтиКПоследнейСтроке</commandName>
+                <representation>Auto</representation>
+                <autoMaxWidth>true</autoMaxWidth>
+                <autoMaxHeight>true</autoMaxHeight>
+                <placementArea>UserCmds</placementArea>
+                <representationInContextMenu>Auto</representationInContextMenu>
+              </items>
               <visible>true</visible>
               <enabled>true</enabled>
               <userVisible>
@@ -4369,6 +4429,48 @@
     <currentRowUse>Auto</currentRowUse>
     <associatedTableElementId>43</associatedTableElementId>
   </formCommands>
+  <formCommands>
+    <name>ПерейтиКПервойСтроке</name>
+    <title>
+      <key>ru</key>
+      <value>Перейти к первой строке</value>
+    </title>
+    <id>17</id>
+    <use>
+      <common>true</common>
+    </use>
+    <picture xsi:type="core:PictureRef">
+      <picture>StdPicture.Back</picture>
+    </picture>
+    <action xsi:type="form:FormCommandHandlerContainer">
+      <handler>
+        <name>ПерейтиКПервойСтроке</name>
+      </handler>
+    </action>
+    <representation>Picture</representation>
+    <currentRowUse>Auto</currentRowUse>
+  </formCommands>
+  <formCommands>
+    <name>ПерейтиКПоследнейСтроке</name>
+    <title>
+      <key>ru</key>
+      <value>Перейти к последней строке</value>
+    </title>
+    <id>18</id>
+    <use>
+      <common>true</common>
+    </use>
+    <picture xsi:type="core:PictureRef">
+      <picture>StdPicture.Forward</picture>
+    </picture>
+    <action xsi:type="form:FormCommandHandlerContainer">
+      <handler>
+        <name>ПерейтиКПоследнейСтроке</name>
+      </handler>
+    </action>
+    <representation>Picture</representation>
+    <currentRowUse>Auto</currentRowUse>
+  </formCommands>
   <commandInterface>
     <navigationPanel/>
     <commandBar/>

parsing-tech-log-plugins/src/ExternalDataProcessors/МониторRAS_1C/Forms/ФормаМонитора/Module.bsl

@@ -11,6 +11,12 @@
 
 &НаКлиенте
 Процедура ПриОткрытии(Отказ)
+
+	// сменим представление полей, т.к. косяк в 1С
+	#Если ВебКлиент Тогда
+		СменитьВидЭлемента("Список,ИнтервалИстории");
+	#КонецЕсли
+
 	СоответсвиеСинонимовСвойств = ПолучитьСоответсвиеСинонимовСвойств();
 	ЗагрузитьНастройки(Неопределено);
 	Если НЕ ЗначениеЗаполнено(Список) Тогда
@@ -47,6 +53,21 @@
 
 КонецПроцедуры
 
+&НаСервере
+Процедура СменитьВидЭлемента(ИменаЭлементов)	
+	МассивИмен = СтрРазделить(ИменаЭлементов,",");
+
+	Для каждого ИмяЭлемента из МассивИмен Цикл
+		мЭлемент = Элементы.Найти(ИмяЭлемента);
+		Если мЭлемент=Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+		мЭлемент.Вид=ВидПоляФормы.ПолеВвода;
+		мЭлемент.КнопкаВыпадающегоСписка = Истина;
+		мЭлемент.РежимВыбораИзСписка = Истина;
+	КонецЦикла;
+КонецПроцедуры
+
 
 #Область НайтиДанные
 
@@ -606,7 +627,7 @@
 
 		ш=0;
 		Для каждого стр из элем Цикл
-			ИмяКолонки = "колонка_"+XMLСтрока(ш);
+			ИмяКолонки = "колонка_"+Формат(ш,"ЧГ=;");
 			Заголовок = стр.Ключ;
 			Описание = СоответсвиеСинонимовСвойств.Получить(Заголовок);
 			Если НЕ Описание=Неопределено Тогда
@@ -646,7 +667,7 @@
 		ИмяКолонки_decision = Неопределено;
 		ш=0;
 		Для каждого стр из элем Цикл
-			ИмяКолонки = "колонка_"+XMLСтрока(ш);
+			ИмяКолонки = "колонка_"+Формат(ш,"ЧГ=;");
 			стр_н[ИмяКолонки]=стр.Значение;
 			ш=ш+1;
 			источник.name = стр.Ключ;
@@ -1396,4 +1417,22 @@
 
 КонецПроцедуры
 
+&НаКлиенте
+Процедура ПерейтиКПервойСтроке(Команда)
+	Если ТаблицаДанных.Количество()=0 Тогда
+		Возврат;
+	КонецЕсли;
+	Элементы.ТаблицаДанных.ТекущаяСтрока = ТаблицаДанных[0].ПолучитьИдентификатор();
+КонецПроцедуры
+
+&НаКлиенте
+Процедура ПерейтиКПоследнейСтроке(Команда)
+	Если ТаблицаДанных.Количество()=0 Тогда
+		Возврат;
+	КонецЕсли;
+	Элементы.ТаблицаДанных.ТекущаяСтрока = ТаблицаДанных[ТаблицаДанных.Количество()-1].ПолучитьИдентификатор();
+КонецПроцедуры
+
+
+
 #КонецОбласти

parsing-tech-log-plugins/src/ExternalDataProcessors/МониторRAS_1C/ObjectModule.bsl

@@ -8,7 +8,7 @@
 	ПараметрыРегистрации.Вставить("Вид", "ДополнительнаяОбработка");
 	ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
 	ПараметрыРегистрации.Вставить("Наименование", "Монитор RAS 1C");
-	ПараметрыРегистрации.Вставить("Версия", "2020.02.12");
+	ПараметрыРегистрации.Вставить("Версия", "2020.06.18");
 	ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
 	ПараметрыРегистрации.Вставить("Информация", ИнформацияПоИсторииИзменений());
 	ПараметрыРегистрации.Вставить("ВерсияБСП", "1.2.1.4");

parsing-tech-log/src/CommonModules/ОбщегоНазначения/ОбщегоНазначения.mdo

@@ -7,4 +7,5 @@
   </synonym>
   <server>true</server>
   <externalConnection>true</externalConnection>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
 </mdclass:CommonModule>

parsing-tech-log/src/CommonModules/СправочникиСерверПовтИсп/СправочникиСерверПовтИсп.mdo

@@ -7,5 +7,6 @@
   </synonym>
   <server>true</server>
   <externalConnection>true</externalConnection>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
   <returnValuesReuse>DuringSession</returnValuesReuse>
 </mdclass:CommonModule>