Помогите с тестированием

Форум Программирование Общие вопросы программирования (Dev)

1. user1881423 06.12.22 19:33 Сейчас в теме

Написал код и поставил на форме 2 кнопки чтоб можно было выбрать базу но при выборе базы она не открывается

&НаКлиенте
Процедура ТекстовыйСценарии1(Команда)
ЗапуситьСистему("""Платформа"" ENTERPRISE /F" + ПутьКБазе + " /TESTCLIENT");
КонецПиоцедуры

&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл базы 1С";
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Каталог = "C:\";
Если Диалог.Выбрать() Тогда
Платформа = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры


&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Выберите путь к базе тестирования";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог="";
Если Диалог.Выбрать()Тогда
ПутьКБазе = Диалог.Каталог;
КонецЕсли;

КонецПроцедуры

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. RustamZz 06.12.22 19:38 Сейчас в теме

(1) Конечно не заработает

ЗапуситьСистему

КонецПиоцедуры

3. Vitaly1C8 06.12.22 21:17 Сейчас в теме

(1) 1. Показать код ЗапуситьСистему
2. Убедиться что выбранная база открывается обычным образом

6. user856012 13 11.04.23 13:30 Сейчас в теме

(1)

Написал код

"Синтаксический контроль? Не, не слышал!"

4. XAKEP 06.12.22 22:40 Сейчас в теме

&НаКлиенте
Процедура ТекстовыйСценарии1(Команда)
ЗапуситьСистему("""Платформа"" ENTERPRISE /F" + ПутьКБазе + " /TESTCLIENT");
КонецПиоцедуры

&НаКлиенте
Процедура ПлатформаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Диалог.Заголовок = "Выберите файл базы 1С";
Диалог.ПредварительныйПросмотр = Ложь;
Диалог.МножественныйВыбор = Ложь;
Диалог.ПроверятьСуществованиеФайла = Истина;
Диалог.Каталог = "C:\";
Если Диалог.Выбрать() Тогда
Платформа = Диалог.ПолноеИмяФайла;
КонецЕсли;
КонецПроцедуры


&НаКлиенте
Процедура ПутьКБазеНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
Диалог.Заголовок = "Выберите путь к базе тестирования";
Диалог.МножественныйВыбор = Ложь;
Диалог.Каталог="";
Если Диалог.Выбрать()Тогда
ПутьКБазе = Диалог.Каталог;
КонецЕсли;

КонецПроцедуры

Показать

скорее всего первый абзац пробовали набирать сами
ТекстовыйСценарии1(Команда)
ЗапуситьСистему
КонецПиоцедуры
а потом копи-паст ( без ошибок и понимания )

5. user1889409 11.04.23 13:04 Сейчас в теме

Можно использовать код :

ЗапуститьСистему("C:\Program Files (x86)\1cv8t\8.3.19.1150\bin\1cv8t.exe /F C:\Users\MyUser\Documents\InfoBase41 ENTERPRISE/TESTCLIENT");

Или универсальный код:

ПутьКБазе = ПолучитьБазу(ЭтаФорма.ПутьКБазе); //функция "ПутьКБазе"
Платформа = ПолучитьПлатформу(ЭтаФорма.Платформа); //функция "Платформа"
ЗапуститьСистему(Платформа + " /F" + ПутьКБазе + " ENTERPRISE /TESTCLIENT");

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

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

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

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

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

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

Показать

7. user1826630 11.04.23 14:36 Сейчас в теме

(5) Говорит "Файл не найден..."

Оставьте свое сообщение

E-mail: