Тест, не могу сделать тестирование, а именно строку которая отвечает за то что бы пользователь мог выбрать файл

1. DynamicLibrary 09.04.23 16:24 Сейчас в теме
Нужно что бы я могла добавлять ИБ и Само приложение 1с,
я сделала строку, там я хочу добавлять Ссылку "С\User\1c" и через кнопку я могла бы запускать тест
Я не знаю как, какой, код написать
По теме из базы знаний
Найденные решения
3. user1934204 09.04.23 19:40 Сейчас в теме
Не совсем понял ваш вопрос, попробую ответить.

Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов

&НаКлиенте
Функция ПолучитьПутьКПлатформе(Платформа)
Возврат ЭтаФорма.Платформа;
КонецФункции 

&НаКлиенте
Функция ПолучитьПутьКБазе(ПутьКБазе)
Возврат ЭтаФорма.ПутьКБазе;
КонецФункции



Дальше вам нужно обработать путь к выбору файла, для этого вам нужно написать следующий код:

&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайлаБазыКлиента", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,Истина,УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,истина,УникальныйИдентификатор);
КонецПроцедуры

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
	 если не Результат тогда
		Возврат;
	Конецесли;
	Платформа = ВыбранноеИмяФайла;
КонецПроцедуры

Процедура ОбработатьВыборФайлаБазыКлиента(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
      если не Результат тогда
		Возврат;
	Конецесли;
	ПутьКБазе = ВыбранноеИмяФайла;
КонецПроцедуры


Далее когда вы преобразуете журнал действий пользователя напишите вверху кода:
 ПутьКП = ПолучитьПутьКПлатформе(ЭтаФорма.Платформа);
 ПутьКБ = ПолучитьПутьКБазе(ЭтаФорма.ПутьКБазе);
 ЗапуститьСистему(ПутьКП + " /F " + ПутьКБ + " ENTERPRISE/TESTCLIENT");
Показать
DynamicLibrary; +1 Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. user1880116 09.04.23 17:03 Сейчас в теме
Ничего не понятно, но очень интересно.
3. user1934204 09.04.23 19:40 Сейчас в теме
Не совсем понял ваш вопрос, попробую ответить.

Если вы хотите сделать автотестирование вам нужно написать две функции в модуле для автоматического выбора файлов

&НаКлиенте
Функция ПолучитьПутьКПлатформе(Платформа)
Возврат ЭтаФорма.Платформа;
КонецФункции 

&НаКлиенте
Функция ПолучитьПутьКБазе(ПутьКБазе)
Возврат ЭтаФорма.ПутьКБазе;
КонецФункции



Дальше вам нужно обработать путь к выбору файла, для этого вам нужно написать следующий код:

&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайлаБазыКлиента", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,Истина,УникальныйИдентификатор);
КонецПроцедуры

&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , ,истина,УникальныйИдентификатор);
КонецПроцедуры

Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
	 если не Результат тогда
		Возврат;
	Конецесли;
	Платформа = ВыбранноеИмяФайла;
КонецПроцедуры

Процедура ОбработатьВыборФайлаБазыКлиента(Результат, Адрес, ВыбранноеИмяФайла, ДополнительныеПараметры) экспорт
      если не Результат тогда
		Возврат;
	Конецесли;
	ПутьКБазе = ВыбранноеИмяФайла;
КонецПроцедуры


Далее когда вы преобразуете журнал действий пользователя напишите вверху кода:
 ПутьКП = ПолучитьПутьКПлатформе(ЭтаФорма.Платформа);
 ПутьКБ = ПолучитьПутьКБазе(ЭтаФорма.ПутьКБазе);
 ЗапуститьСистему(ПутьКП + " /F " + ПутьКБ + " ENTERPRISE/TESTCLIENT");
Показать
DynamicLibrary; +1 Ответить
4. DynamicLibrary 09.04.23 19:43 Сейчас в теме
(3)Спасибо я именно это и хотела)
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот