Skip to content

Instantly share code, notes, and snippets.

@VladFrost
Created August 30, 2017 13:37
Show Gist options
  • Save VladFrost/84e889031d1b1a5016374a1763365a61 to your computer and use it in GitHub Desktop.
Save VladFrost/84e889031d1b1a5016374a1763365a61 to your computer and use it in GitHub Desktop.
&НаКлиенте
Перем КонтекстЯдра;
&НаКлиенте
Перем Утверждения;
&НаКлиенте
Процедура Инициализация(КонтекстЯдраПараметр) Экспорт
КонтекстЯдра = КонтекстЯдраПараметр;
Утверждения = КонтекстЯдра.Плагин("БазовыеУтверждения");
КонецПроцедуры
&НаКлиенте
Процедура ЗаполнитьНаборТестов(НаборТестов) Экспорт
НаборТестов.Добавить("Тест_СозданиеВалютыУНФ");
КонецПроцедуры
&НаКлиенте
Процедура Тест_СозданиеВалютыУНФ() Экспорт
ТестКлиент = КонтекстЯдра.Плагин("ТестКлиенты").ТестКлиентПоУмолчанию();
ВключитьНесколькоВалют(ТестКлиент);
ОсновноеОкно = ОсновноеОкно(ТестКлиент);
ОсновноеОкно.ВыполнитьКоманду("e1cib/command/Справочник.Валюты.Команда.Создать");
ФормаНоваяВалюта = ТестКлиент.НайтиОбъект(Тип("ТестируемаяФорма"), "Валюта (создание)");
ПолеСимвольноеПредставление = ФормаНоваяВалюта.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Символьное представление");
Утверждения.ПроверитьТип(ПолеСимвольноеПредставление, Тип("ТестируемоеПолеФормы"), "Не найдено поле ""Символьное представление""");
КонецПроцедуры
&НаКлиенте
Процедура ВключитьНесколькоВалют(ТестКлиент)
ОсновноеОкно = ОсновноеОкно(ТестКлиент);
ОсновноеОкно.ВыполнитьКоманду("e1cib/command/ОбщаяКоманда.БольшеВозможностейДеньги");
ФормаБольшеВозможностей = ТестКлиент.НайтиОбъект(Тип("ТестируемаяФорма"), "Больше возможностей: настройка программы");
ПолеНесколькоВалют = ФормаБольшеВозможностей.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Несколько валют");
Если ПолеНесколькоВалют.ПолучитьПредставлениеДанных() = "Нет" Тогда
ПолеНесколькоВалют.УстановитьОтметку();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Функция ОсновноеОкно(ТестКлиент)
КлиентсткиеОкнаТестируемогоПриложения = ТестКлиент.ПолучитьПодчиненныеОбъекты();
Для Каждого ТекОкно Из КлиентсткиеОкнаТестируемогоПриложения Цикл
Если ТекОкно.Основное Тогда
Возврат ТекОкно;
КонецЕсли;
КонецЦикла;
КонецФункции
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment