#205

Pr-Mex · Mar 5, 2019 · 1e90d1e · 1e90d1e
1 parent cd7b473
commit 1e90d1e
Show file tree

Hide file tree

Showing 2 changed files with 30 additions and 4 deletions.
diff --git a/VanessaAutomation/Forms/ДеталиОшибки/Ext/Form.xml b/VanessaAutomation/Forms/ДеталиОшибки/Ext/Form.xml
@@ -113,6 +113,13 @@
 			<ContextMenu name="ТолькоТекстЯчеекКонтекстноеМеню" id="10"/>
 			<ExtendedTooltip name="ТолькоТекстЯчеекРасширеннаяПодсказка" id="11"/>
 		</CheckBoxField>
+		<CheckBoxField name="СУчетомРегулярныхВыражений" id="12">
+			<DataPath>СУчетомРегулярныхВыражений</DataPath>
+			<TitleLocation>Right</TitleLocation>
+			<CheckBoxType>Auto</CheckBoxType>
+			<ContextMenu name="СУчетомРегулярныхВыраженийКонтекстноеМеню" id="13"/>
+			<ExtendedTooltip name="СУчетомРегулярныхВыраженийРасширеннаяПодсказка" id="14"/>
+		</CheckBoxField>
 		<InputField name="ТекстОшибки" id="4">
 			<DataPath>ТекстОшибки</DataPath>
 			<TitleLocation>None</TitleLocation>
@@ -275,6 +282,21 @@
 				<Field>ТолькоТекстЯчеек</Field>
 			</Save>
 		</Attribute>
+		<Attribute name="СУчетомРегулярныхВыражений" id="8">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Сравнение с учетом символа *</v8:content>
+				</v8:item>
+				<v8:item>
+					<v8:lang>en</v8:lang>
+					<v8:content>Taking into *</v8:content>
+				</v8:item>
+			</Title>
+			<Type>
+				<v8:Type>xs:boolean</v8:Type>
+			</Type>
+		</Attribute>
 	</Attributes>
 	<Commands>
 		<Command name="СравнитьТаблицы" id="1">

diff --git a/VanessaAutomation/Forms/ДеталиОшибки/Ext/Form/Module.bsl b/VanessaAutomation/Forms/ДеталиОшибки/Ext/Form/Module.bsl
@@ -48,7 +48,8 @@
 &НаКлиенте
 Функция ПреобразоватьЗначениеВМакет(Знач ПереданноеЗначение,МассивКлючей = Неопределено)
 	Значение = ПолучитьЗначениеИзСтроки(ПереданноеЗначение);
-	Возврат Ванесса.ПреобразоватьЗначениеВМакет(Значение,МассивКлючей,ТолькоТекстЯчеек); 
+	Значение = Ванесса.ПреобразоватьЗначениеВМакет(Значение,МассивКлючей,ТолькоТекстЯчеек); 
+	Возврат Значение; 
 КонецФункции	 
 
 &НаКлиенте
@@ -171,14 +172,18 @@
 					ОбластьТекущееЗначение.Текст = "*";
 				Исключение
 				КонецПопытки;
+			ИначеЕсли СУчетомРегулярныхВыражений и (Найти(Текст,"*") > 0) Тогда
+				Значение2 = ТекущееЗначение.Область(Ккк,Ррр,Ккк,Ррр).Текст;
+				Если Ванесса.СтрокаСоответствуетШаблону(Значение2,Текст) Тогда
+					ТекущееЗначение.Область(Ккк,Ррр,Ккк,Ррр).Текст = Текст;
+				КонецЕсли;	 
 			КонецЕсли;	 
 		КонецЦикла;
 	КонецЦикла;	
 КонецПроцедуры 
 
 &НаКлиенте
 Процедура СравнитьТаблицы(Команда)
-
 	Если Не ЗначениеЗаполнено(ТаблицаЭталон) Тогда
 		Возврат;
 	КонецЕсли;	 
@@ -191,14 +196,13 @@
 	ТаблицаЭталонТабДок          = ПреобразоватьЗначениеВМакет(ТаблицаЭталон,МассивКлючей);
 	ТаблицаТекущееЗначениеТабДок = ПреобразоватьЗначениеВМакет(ТаблицаТекущееЗначение,МассивКлючей);
 
-	Если МассивКлючей <> Неопределено Или ТолькоТекстЯчеек Тогда
+	Если МассивКлючей <> Неопределено ИЛИ ТолькоТекстЯчеек Тогда
 		СделатьМакетБолееЧитабельным(ТаблицаЭталонТабДок);
 		СделатьМакетБолееЧитабельным(ТаблицаТекущееЗначениеТабДок);
 	КонецЕсли;	 
 
 	УбратьВТекущемЗначенииЯчейкиКоторыеНеСравниваются(ТаблицаЭталонТабДок,ТаблицаТекущееЗначениеТабДок);
 
-
 	Попытка
 		СравнениеФайлов = Вычислить("Новый СравнениеФайлов");
 	Исключение