diff --git "a/VanessaAutomation/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" "b/VanessaAutomation/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" index 2a52c8824a..21a686ce16 100644 --- "a/VanessaAutomation/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" +++ "b/VanessaAutomation/Forms/\320\243\320\277\321\200\320\260\320\262\320\273\321\217\320\265\320\274\320\260\321\217\320\244\320\276\321\200\320\274\320\260/Ext/Form/Module.bsl" @@ -3684,6 +3684,63 @@ КонецПроцедуры +&НаКлиенте +Процедура ТаблоПеременныхПриАктивизацииСтроки(Элемент) + + ШагПроверкиЗначенияПеременной = ""; + + ТекущиеДанные = Элементы.ТаблоПеременных.ТекущиеДанные; + Если ТекущиеДанные = Неопределено Тогда + Возврат; + КонецЕсли; + + СтрокаРодитель = ТекущиеДанные.ПолучитьРодителя(); + + Если ЗначениеЗаполнено(ТекущиеДанные.Имя) И ЗначениеЗаполнено(ТекущиеДанные.Значение) Тогда + Если ТекущиеДанные.Тип = "Строка" Тогда + Если СтрокаРодитель.СлужебнаяСтрока Тогда + ТекстШага = "Тогда переменная '%1' имеет значение '%2'"; + Иначе + ТекстШага = "Тогда выражение внутреннего языка '" + ТекущиеДанные.ИсточникДанных + ".%1' имеет значение '%2'"; + КонецЕсли; + + ЗначениеПеременной = СтрЗаменить(ТекущиеДанные.Значение, "'", "\'"); + ЗначениеПеременной = СтрЗаменить(ЗначениеПеременной, "|", "\|"); + ШагПроверкиЗначенияПеременной = ПодставитьПараметрыВСтроку(ТекстШага, ТаблоПеременныхДополнитьИмяПеременной(ТекущиеДанные.Имя, ТекущиеДанные), ЗначениеПеременной); + + ИначеЕсли ТекущиеДанные.Тип = "Булево" Тогда + ТекстШага = "Тогда выражение внутреннего языка '%1' Истинно"; + Если ТекущиеДанные.Значение Тогда + ЗначениеПараметра = ТекущиеДанные.ИсточникДанных + "." + ТаблоПеременныхДополнитьИмяПеременной(ТекущиеДанные.Имя, ТекущиеДанные); + Иначе + ЗначениеПараметра = "НЕ " + ТекущиеДанные.ИсточникДанных + "." + ТаблоПеременныхДополнитьИмяПеременной(ТекущиеДанные.Имя, ТекущиеДанные); + КонецЕсли; + ШагПроверкиЗначенияПеременной = ПодставитьПараметрыВСтроку(ТекстШага, ЗначениеПараметра); + + ИначеЕсли ТекущиеДанные.Тип = "Число" Тогда + Если СтрокаРодитель.СлужебнаяСтрока Тогда + ТекстШага = "Тогда переменная '%1' имеет значение %2"; + Иначе + ТекстШага = "Тогда выражение внутреннего языка '" + ТекущиеДанные.ИсточникДанных + ".%1' имеет значение %2"; + КонецЕсли; + + ЗначениеПеременной = XMLСтрока(ТекущиеДанные.Значение); + ШагПроверкиЗначенияПеременной = ПодставитьПараметрыВСтроку(ТекстШага, ТаблоПеременныхДополнитьИмяПеременной(ТекущиеДанные.Имя, ТекущиеДанные), ЗначениеПеременной); + + ИначеЕсли ТекущиеДанные.Тип = "Массив" ИЛИ ТекущиеДанные.Тип = "Структура" ИЛИ ТекущиеДанные.Тип = "Соответствие" Тогда + ТекстШага = "Тогда выражение внутреннего языка '" + ТекущиеДанные.ИсточникДанных + ".%1.Количество()' имеет значение %2"; + ЗначениеПеременной = XMLСтрока(ТекущиеДанные.ПолучитьЭлементы().Количество()); + ШагПроверкиЗначенияПеременной = ПодставитьПараметрыВСтроку(ТекстШага, ТаблоПеременныхДополнитьИмяПеременной(ТекущиеДанные.Имя, ТекущиеДанные), ЗначениеПеременной); + + Иначе + ЗначениеПеременной = XMLСтрока(ТекущиеДанные.Значение); + ШагПроверкиЗначенияПеременной = ПодставитьПараметрыВСтроку(ТекстШага, ТекущиеДанные.Имя, ЗначениеПеременной); + КонецЕсли; + + КонецЕсли; + +КонецПроцедуры + #КонецОбласти #Область ОбработкаСобытийЭлементовФормы