тесты_ВалютыУНФ.bsl

&НаКлиенте
Перем КонтекстЯдра;
&НаКлиенте
Перем Утверждения;

&НаКлиенте
Процедура Инициализация(КонтекстЯдраПараметр) Экспорт
    КонтекстЯдра = КонтекстЯдраПараметр;
    Утверждения = КонтекстЯдра.Плагин("БазовыеУтверждения");
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьНаборТестов(НаборТестов) Экспорт
    НаборТестов.Добавить("Тест_СозданиеВалютыУНФ");
КонецПроцедуры

&НаКлиенте
Процедура Тест_СозданиеВалютыУНФ() Экспорт
    
    ТестКлиент = КонтекстЯдра.Плагин("ТестКлиенты").ТестКлиентПоУмолчанию();
    
    ВключитьНесколькоВалют(ТестКлиент);
    
    ОсновноеОкно = ОсновноеОкно(ТестКлиент);
    ОсновноеОкно.ВыполнитьКоманду("e1cib/command/Справочник.Валюты.Команда.Создать");
    ФормаНоваяВалюта = ТестКлиент.НайтиОбъект(Тип("ТестируемаяФорма"), "Валюта (создание)");
    
    ПолеСимвольноеПредставление = ФормаНоваяВалюта.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Символьное представление");
    Утверждения.ПроверитьТип(ПолеСимвольноеПредставление, Тип("ТестируемоеПолеФормы"), "Не найдено поле ""Символьное представление""");
    
КонецПроцедуры

&НаКлиенте
Процедура ВключитьНесколькоВалют(ТестКлиент)
    
    ОсновноеОкно = ОсновноеОкно(ТестКлиент);
    ОсновноеОкно.ВыполнитьКоманду("e1cib/command/ОбщаяКоманда.БольшеВозможностейДеньги");
    ФормаБольшеВозможностей = ТестКлиент.НайтиОбъект(Тип("ТестируемаяФорма"), "Больше возможностей: настройка программы");
    ПолеНесколькоВалют = ФормаБольшеВозможностей.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Несколько валют");
    Если ПолеНесколькоВалют.ПолучитьПредставлениеДанных() = "Нет" Тогда
        ПолеНесколькоВалют.УстановитьОтметку();
    КонецЕсли;
    
КонецПроцедуры

&НаКлиенте
Функция ОсновноеОкно(ТестКлиент)
    КлиентсткиеОкнаТестируемогоПриложения = ТестКлиент.ПолучитьПодчиненныеОбъекты();
    Для Каждого ТекОкно Из КлиентсткиеОкнаТестируемогоПриложения Цикл
        Если ТекОкно.Основное Тогда
            Возврат ТекОкно;
        КонецЕсли;
    КонецЦикла;
КонецФункции