написать в диалогвыборафайла после конец цикла ПутьКФайлу = ИмяФайла;
//Удаляем все элементы справочника перед загрузкой
Выборка = Справочники.Комплектующие.Выбрать();
Пока Выборка.Следующий() Цикл
ОбъектСправочника = Выборка.ПолучитьОбъект();
ОбъектСправочника.Удалить();
КонецЦикла;
//Загружаем в справочник строки из Excel
Файл = Новый Файл(ПутьКФайлу);
Excel = Новый COMОбъект("Excel.Application");
Excel.Workbooks.Open(ПутьКФайлу);
Sheet = Excel.WorkSheets(1);
Для НомерСтроки = 2 По 11 Цикл
НовыйКомплектующий = Справочники.Комплектующие.СоздатьЭлемент();
НовыйКомплектующий.Код = Sheet.Cells(НомерСтроки,1).value;
НовыйКомплектующий.Наименование = Sheet.Cells(НомерСтроки,2).value;
**** писать дальше
НовыйКомплектующий.Записать();
КонецЦикла;
Excel.Quit();
- делаем выгрузку с основной базы
- В основной базе запускаем сервис=> Запись журнала действия пользователя
- Записываем действия допустим кликаем по справочнику и заполняем поэтапно.
- Не закрывая скрипт копируем открываем файл новый файл обработка в задании
- Преобразовываем xml код в 1с выбираем галку первую остальные не выбираем (используется текст)
- Создаем базу Менеджер тестиования и создаем обработку добвляем форму и 2 реквизита Платформа и Путь к базе и кнопку тест 1 и тд кидаем обработчики код ниже
- Вставляем код в обработчики собюытий и скрипт записи журнала в тестовый сценарий 1 без процедуры просто код
- Основную базу настраиваем как Клиент тестирования а менеджер тестирования БД как менеджер тестирвоания делаяя это в параметрах Запуск 1С предпириятия ->дополгнительные
- Запускаем тест выбюиравем платформу в progemam failes x 86 =>1c8t=>8.3.22.160.+>bin=>1cs8st.exe
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл базы 1С";
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Каталог = "c:\";
Если Диалог.Выбрать() Тогда
Платформа = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Выберите путь к базе данных для тестирования";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог = "";
Если Диалог.Выбрать() Тогда
ПутьКБазе = Диалог.Каталог;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ТестовыйСценарий1(Команда)
ЗапуститьСистему("""Платформа"" ENTERPRISE /F " + ПутьКБазе + " /TESTCLIENT");
скрипт клиента тестирования без процедуры,только код
КонецПроцедуры