уточнил исправление - в шагах правильно работает передача строк, похо…

…жих на число и начинающихся с 0 - коды справочников, документове vanessa-opensource#441
pravets · Oct 9, 2019 · 33d70bf · 33d70bf
1 parent 064a517
commit 33d70bf
Showing 1 changed file with 11 additions and 9 deletions.
diff --git a/epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl b/epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl
@@ -17457,15 +17457,17 @@
 		Результат = " '" + ИсходнаяСтрока + "' |";
 	Иначе
 		ДобавитьАпострофы = Истина;
-		Если Лев(ИсходнаяСтрока, 1) <> "0" Тогда
-			КЧ = Новый КвалификаторыЧисла(20, 5);
-			ОписаниеТипа = Новый ОписаниеТипов("Число", КЧ);
-			ЧисловоеЗначение = ОписаниеТипа.ПривестиЗначение(ИсходнаяСтрока);
-			МаксимальноеЧислоБезРазделителейВПредставлении = 999;
-			Если ЧисловоеЗначение <= МаксимальноеЧислоБезРазделителейВПредставлении 
-					И Цел(ЧисловоеЗначение) = ЧисловоеЗначение Тогда
-				ДобавитьАпострофы = Ложь;
-			КонецЕсли;
+
+		КЧ = Новый КвалификаторыЧисла(20, 5);
+		ОписаниеТипа = Новый ОписаниеТипов("Число", КЧ);
+		ЧисловоеЗначение = ОписаниеТипа.ПривестиЗначение(ИсходнаяСтрока);
+
+		МаксимальноеЧислоБезРазделителейВПредставлении = 999;
+		ЧислоОтображаетсяБезПробелов = ЧисловоеЗначение <= МаксимальноеЧислоБезРазделителейВПредставлении;
+		ЭтоЦелоеЧислоБезДробныхЗнаков = Цел(ЧисловоеЗначение) = ЧисловоеЗначение И Найти(ИсходнаяСтрока, ",") = 0;
+
+		Если ЧислоОтображаетсяБезПробелов И ЭтоЦелоеЧислоБезДробныхЗнаков Тогда
+			ДобавитьАпострофы = Ложь;
 		КонецЕсли;
 
 		Если ДобавитьАпострофы Тогда