Merge pull request Pr-Mex#2254 from Pr-Mex/fixEngInstructions

Fix English auto instructions

VanessaAutomation/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -29862,7 +29862,7 @@
 Процедура СделатьСкриншотВТекстовойИнструкции(СтруткураШага, ИмяФайлаСкриншота, Каталог, ТекущиеДанныеИнструкции)
 
 	ДелатьСкриншот = 
-		СписокШаговБезСкриншота.Найти(СтруткураШага.Имя) = Неопределено 
+		СписокШаговБезСкриншота.Найти(СтруткураШага.СтрокаРеальнойПроцедуры) = Неопределено 
 		И ЭтотШагНеНужноИгнорировать(СтруткураШага);
 
 	Если ДелатьСкриншот Тогда
@@ -35585,7 +35585,7 @@
 					УШагаВыводитьТолькоСкриншот = Шаг.УШагаВыводитьТолькоСкриншот;
 				КонецЕсли;
 
-				ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.Имя) = Неопределено, Ложь, Истина);
+				ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.СтрокаРеальнойПроцедуры) = Неопределено, Ложь, Истина);
 
 				ОбработатьСлужебныеДирективыАвтоинструкций(Шаг, Сценарий);
 
@@ -35764,7 +35764,7 @@
 					УШагаВыводитьТолькоСкриншот = Шаг.УШагаВыводитьТолькоСкриншот;
 				КонецЕсли;
 
-				ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.Имя) = Неопределено, Ложь, Истина);
+				ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.СтрокаРеальнойПроцедуры) = Неопределено, Ложь, Истина);
 
 				ОбработатьСлужебныеДирективыАвтоинструкций(Шаг, Сценарий);
 
@@ -36099,7 +36099,7 @@
 				УШагаВыводитьТолькоСкриншот = Шаг.УШагаВыводитьТолькоСкриншот;
 			КонецЕсли;
 
-			ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.Имя) = Неопределено, Ложь, Истина);
+			ЭтоШагБезСкриншота = ?(СписокШаговБезСкриншота.Найти(Шаг.СтрокаРеальнойПроцедуры) = Неопределено, Ложь, Истина);
 
 			ОбработатьСлужебныеДирективыАвтоинструкций(Шаг, Сценарий);
 
@@ -44469,16 +44469,16 @@
 	Типы.Добавить(Тип("Строка"));
 	Объект.МетаданныеБиблиотек.ТипЗначения = Новый ОписаниеТипов(Типы);
 
-	СписокШаговБезСкриншота.Добавить("И я добавляю произвольный текст в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю изображение в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю разрыв страницы в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю заголовок в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю якорь в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю гиперссылку в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю горизонтальную линию в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю стили в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю нумерованное оглавление в автоинструкцию");
-	СписокШаговБезСкриншота.Добавить("И я добавляю не нумерованное оглавление в автоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюПроизвольныйТекстВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюИзображениеВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюРазрывСтраницыВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюЗаголовокВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюЯкорьВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюГиперссылкуВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюГоризонтальнуюЛиниюВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюСтилиВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюНумерованноеОглавлениеВАвтоинструкцию");
+	СписокШаговБезСкриншота.Добавить("ЯДобавляюНеНумерованноеОглавлениеВАвтоинструкцию");
 
 	ВыполняласьИнициализацияФормы = Истина;
 

features/Libraries/Автоинструкции/Автоинструкции/Forms/Форма/Ext/Form/Module.bsl

@@ -227,14 +227,18 @@
 	Если Ванесса.Объект.СоздаватьИнструкциюHTML 
 			И Ванесса.Объект.ВариантСтилейHTMLИнструкции <> 3 Тогда
 
-		ДокументHTML = Новый ДокументHTML;
-		УзелАбзац = ДокументHTML.СоздатьЭлемент("p");
-		ДокументHTML.ЭлементДокумента.ДобавитьДочерний(УзелАбзац);
-
-		Для Каждого СтрокаПараметров Из МассивСтрок Цикл
-			УзелТекст = ДокументHTML.СоздатьТекстовыйУзел(СтрокаПараметров);
-			УзелАбзац.ДобавитьДочерний(УзелТекст);
-		КонецЦикла;
+			Попытка                         
+				Текст = Ванесса._СтрСоединить(МассивСтрок, Символы.ПС);
+				ДокументHTML = ПолучитьДокументHTML(Текст);
+			Исключение
+				ДокументHTML = Новый ДокументHTML;
+				УзелАбзац = ДокументHTML.СоздатьЭлемент("p");
+				ДокументHTML.ЭлементДокумента.ДобавитьДочерний(УзелАбзац);
+				Для Каждого СтрокаПараметров Из МассивСтрок Цикл
+					УзелТекст = ДокументHTML.СоздатьТекстовыйУзел(СтрокаПараметров);
+					УзелАбзац.ДобавитьДочерний(УзелТекст);
+				КонецЦикла;
+			КонецПопытки;
 
 		ЗаполнитьПереданныеВШагТаблицы(ПереданныеВШагТаблицы, ДокументHTML, ТипИнструкцииHTML());
 
@@ -777,9 +781,11 @@
 	Иначе
 		УзелСписокСодержания = ДокументHTML.СоздатьЭлемент("ul");
 		УзелСписокСодержания.УстановитьАтрибут("class", "toc_ul");
-	КонецЕсли;
-	УзелСписокСодержания.ТекстовоеСодержимое = "Содержание";
-
+	КонецЕсли;   
+	СписокСодержания = ДокументHTML.СоздатьЭлемент("p");
+	СписокСодержания.УстановитьАтрибут("class", "toc_header");
+	СписокСодержания.ТекстовоеСодержимое = НСтр("en = 'Content'; ru = 'Содержание'");
+	УзелСписокСодержания.ДобавитьДочерний(СписокСодержания); 
 	// Начинаем с 1 т.к. первая строка это заголовки.
 	Для Индекс = 1 По ТабПарам.ВГраница() Цикл
 
@@ -849,11 +855,21 @@
 КонецПроцедуры
 
 Функция ТипИнструкцииMD()
-	Возврат НСтр("ru = 'MD'");
+	Возврат "MD";
 КонецФункции
 
 Функция ТипИнструкцииHTML()
-	Возврат НСтр("ru = 'HTML'");
+	Возврат "HTML";
+КонецФункции
+
+&НаКлиенте
+Функция ПолучитьДокументHTML(СтрокаHTML)
+	ЧтениеHTML = Новый ЧтениеHTML;
+	ЧтениеHTML.УстановитьСтроку(СтрокаHTML);
+	ПостроительDOM = Новый ПостроительDOM;
+	ДокументHTML = ПостроительDOM.Прочитать(ЧтениеHTML);
+	ЧтениеHTML.Закрыть();
+	Возврат ДокументHTML;
 КонецФункции
 
 #КонецОбласти