Тест, не могу сделать тестирование, а именно строку которая отвечает за то что бы пользователь мог выбрать файл
По теме из базы знаний
- Интеграция сценарного тестирования в процесс разработки
- Многопоточный CI-контур для 1С c Packer, Vagrant и Jenkins. Часть 1. Описание системы и обзор инструментария
- Разворачиваем узлы CI через Vagrant, строим сеть из виртуальных машин. Цикл "Многопоточный CI для 1С c Packer, Vagrant и Jenkins", часть 3
- Unit-тесты с помощью 1C:Enterprise Development Tools
- Интеграция Честный Знак и 1C: обмен и синхронизация с маркировками для УТ11,УНФ,КА2,ERP,Розница:Расширение для работы с СУЗ,ГИСМТ,СБИС,Эдо-Лайт
Найденные решения
Не совсем понял ваш вопрос, попробую ответить.
Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов
Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов
&НаКлиенте
Функция ПолучитьПутьКПлатформе(Платформа)
Возврат ЭтаФорма.Платформа;
КонецФункции
&НаКлиенте
Функция ПолучитьПутьКБазе(ПутьКБазе)
Возврат ЭтаФорма.ПутьКБазе;
КонецФункции
Дальше вам нужно обработать путь к выбору файла, для этого вам нужно написать следующий код:
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайлаБазыКлиента", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,Истина,УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,истина,УникальныйИдентификатор);
КонецПроцедуры
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
если не Результат тогда
Возврат;
Конецесли;
Платформа = ВыбранноеИмяФайла;
КонецПроцедуры
Процедура ОбработатьВыборФайлаБазыКлиента(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
если не Результат тогда
Возврат;
Конецесли;
ПутьКБазе = ВыбранноеИмяФайла;
КонецПроцедуры
Далее когда вы преобразуете журнал действий пользователя напишите вверху кода:
ПутьКП = ПолучитьПутьКПлатформе(ЭтаФорма.Платформа);
ПутьКБ = ПолучитьПутьКБазе(ЭтаФорма.ПутьКБазе);
ЗапуститьСистему(ПутьКП + " /F " + ПутьКБ + " ENTERPRISE/TESTCLIENT");
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Не совсем понял ваш вопрос, попробую ответить.
Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов
Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов
&НаКлиенте
Функция ПолучитьПутьКПлатформе(Платформа)
Возврат ЭтаФорма.Платформа;
КонецФункции
&НаКлиенте
Функция ПолучитьПутьКБазе(ПутьКБазе)
Возврат ЭтаФорма.ПутьКБазе;
КонецФункции
Дальше вам нужно обработать путь к выбору файла, для этого вам нужно написать следующий код:
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайлаБазыКлиента", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,Истина,УникальныйИдентификатор);
КонецПроцедуры
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,истина,УникальныйИдентификатор);
КонецПроцедуры
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
если не Результат тогда
Возврат;
Конецесли;
Платформа = ВыбранноеИмяФайла;
КонецПроцедуры
Процедура ОбработатьВыборФайлаБазыКлиента(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
если не Результат тогда
Возврат;
Конецесли;
ПутьКБазе = ВыбранноеИмяФайла;
КонецПроцедуры
Далее когда вы преобразуете журнал действий пользователя напишите вверху кода:
ПутьКП = ПолучитьПутьКПлатформе(ЭтаФорма.Платформа);
ПутьКБ = ПолучитьПутьКБазе(ЭтаФорма.ПутьКБазе);
ЗапуститьСистему(ПутьКП + " /F " + ПутьКБ + " ENTERPRISE/TESTCLIENT");
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот