Написал код и поставил на форме 2 кнопки чтоб можно было выбрать базу но при выборе базы она не открывается
&НаКлиенте
Процедура ТекстовыйСценарии1(Команда)
ЗапуситьСистему("""Платформа"" ENTERPRISE /F" + ПутьКБазе + " /TESTCLIENT");
КонецПиоцедуры
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл базы 1С";
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Каталог = "C:\";
Если Диалог.Выбрать() Тогда
Платформа = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Выберите путь к базе тестирования";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог="";
Если Диалог.Выбрать()Тогда
ПутьКБазе = Диалог.Каталог;
КонецЕсли;
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Как объять необъятное, или советы по тестированию
- Разработка и сценарное тестирование с Vanessa-ADD. Концепция, теория и сквозной пример создания сценария
- Тестирование интеграций между системами
- Каждому проекту – сценарные тесты! Быстрый старт в тестирование с помощью СППР
- YAxUnit или модульное тестирование в 1С
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаКлиенте
Процедура ТекстовыйСценарии1(Команда)
ЗапуситьСистему("""Платформа"" ENTERPRISE /F" + ПутьКБазе + " /TESTCLIENT");
КонецПиоцедуры
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл базы 1С";
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Каталог = "C:\";
Если Диалог.Выбрать() Тогда
Платформа = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Выберите путь к базе тестирования";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог="";
Если Диалог.Выбрать()Тогда
ПутьКБазе = Диалог.Каталог;
КонецЕсли;
КонецПроцедуры
Показатьскорее всего первый абзац пробовали набирать сами
ТекстовыйСценарии1(Команда)
ЗапуситьСистему
КонецПиоцедуры
а потом копи-паст ( без ошибок и понимания )
Можно использовать код :
ЗапуститьСистему("C:\Program Files (x86)\1cv8t\8.3.19.1150\bin\1cv8t.exe /F C:\Users\MyUser\Documents\InfoBase41 ENTERPRISE/TESTCLIENT");
Или универсальный код:
ПутьКБазе = ПолучитьБазу(ЭтаФорма.ПутьКБазе); //функция "ПутьКБазе"
Платформа = ПолучитьПлатформу(ЭтаФорма.Платформа); //функция "Платформа"
ЗапуститьСистему(Платформа + " /F" + ПутьКБазе + " ENTERPRISE /TESTCLIENT");
ЗапуститьСистему("C:\Program Files (x86)\1cv8t\8.3.19.1150\bin\1cv8t.exe /F C:\Users\MyUser\Documents\InfoBase41 ENTERPRISE/TESTCLIENT");
Или универсальный код:
ПутьКБазе = ПолучитьБазу(ЭтаФорма.ПутьКБазе); //функция "ПутьКБазе"
Платформа = ПолучитьПлатформу(ЭтаФорма.Платформа); //функция "Платформа"
ЗапуститьСистему(Платформа + " /F" + ПутьКБазе + " ENTERPRISE /TESTCLIENT");
&НаКлиенте
Функция ПолучитьПлатформу(Платформа)
Возврат ЭтаФорма.Платформа; //Получение ссылки платформы
КонецФункции
&НаКлиенте
Функция ПолучитьБазу(ПутьКБазе)
Возврат ЭтаФорма.ПутьКБазе; //Функция получения ссылки
КонецФункции
&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайла", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , , Истина, УникальныйИдентификатор);
КонецПроцедуры
Процедура ОбработатьВыборФайла(Результат, Адрес, ВыбранноеИмяФайла, дополнительныеПараметры) Экспорт
Если не Результат Тогда //Выборка файла из системы
Возврат;
конецесли;
Платформа = ВыбранноеИмяФайла;
КонецПроцедуры
&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
Оповещение = Новый ОписаниеОповещения("ОбработатьВыборФайлаБазыКлиента", ЭтотОбъект);
НачатьПомещениеФайла(Оповещение, , , Истина, УникальныйИдентификатор);
КонецПроцедуры
Процедура ОбработатьВыборФайлаБазыКлиента(Результат, адрес, выбранноеИмяФайла, дополнительныеПараметры) Экспорт
Если не Результат Тогда //Выборка файла из системы
Возврат;
Конецесли;
ПутьКБазе = ВыбранноеИмяФайла;
КонецПроцедуры;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот