mirror of
https://github.com/BlizD/Tasks.git
synced 2025-07-13 01:10:21 +02:00
#5 Доработал фича файл "УчетВремениПоЗадачам"
This commit is contained in:
Буслов Дмитрий
Binary file not shown.
@ -57,11 +57,11 @@
|
|||||||
Тогда открылось окно "Основной"
|
Тогда открылось окно "Основной"
|
||||||
И я нажимаю на кнопку "Сформировать"
|
И я нажимаю на кнопку "Сформировать"
|
||||||
И Пауза 2
|
И Пауза 2
|
||||||
Тогда табличный документ формы с именем "ОтчетТабличныйДокумент" стал равен1:
|
Тогда табличный документ формы с именем "ОтчетТабличныйДокумент" стал равен:
|
||||||
| 'Основная задача' | '' | '' | '' | '' | '' | '' | '' | 'Часы план' | 'Часы факт' | 'Часы к оплате' | 'Количество задач' |
|
| 'Основная задача' | '' | '' | '' | '' | '' | '' | '' | 'Часы план' | 'Часы факт' | 'Часы к оплате' | 'Количество задач' |
|
||||||
| 'Статус' | '' | '' | '' | '' | '' | '' | '' | '' | '' | '' | '' |
|
| 'Статус' | '' | '' | '' | '' | '' | '' | '' | '' | '' | '' | '' |
|
||||||
| 'Номер задачи' | 'Задача' | 'Исполнитель' | 'Конфигурация' | 'Важность' | 'Дата создания' | 'Дата передачи исполнителю' | 'Срок исполнения' | '' | '' | '' | '' |
|
| 'Номер задачи' | 'Задача' | 'Исполнитель' | 'Конфигурация' | 'Важность' | 'Дата создания' | 'Дата передачи исполнителю' | 'Срок исполнения' | '' | '' | '' | '' |
|
||||||
| '' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
| '' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
||||||
| 'Зарегистрирована' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
| 'Зарегистрирована' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
||||||
| '1' | 'ЭтоТестоваяЗадача' | '' | '' | 'Обычная' | '19.12.2016 23:17:58' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
| '1' | 'ЭтоТестоваяЗадача' | '' | '' | '' | '19.12.2016 23:17:58' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
||||||
| 'Итого' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
| 'Итого' | '' | '' | '' | '' | '' | '' | '' | '10,00' | '15,00' | '10,00' | '1' |
|
||||||
|
|||||||
@ -28,8 +28,6 @@
|
|||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПолеФормыСИменемСталоРавным(Парам01,Парам02)","ПолеФормыСИменемСталоРавным","Тогда поле формы с именем ""ЧасыФакт"" стало равным '15'");
|
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ПолеФормыСИменемСталоРавным(Парам01,Парам02)","ПолеФормыСИменемСталоРавным","Тогда поле формы с именем ""ЧасыФакт"" стало равным '15'");
|
||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯПодготавливаюКонстантуСНаименованием(Парам01)","ЯПодготавливаюКонстантуСНаименованием","Допустим я подготавливаю константу с наименованием ""узИспользоватьУчетВремени""");
|
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ЯПодготавливаюКонстантуСНаименованием(Парам01)","ЯПодготавливаюКонстантуСНаименованием","Допустим я подготавливаю константу с наименованием ""узИспользоватьУчетВремени""");
|
||||||
|
|
||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,"ТабличныйДокументФормыСИменемСталРавен1(Парам01,ТабПарам)","ТабличныйДокументФормыСИменемСталРавен1","Тогда табличный документ формы с именем ""ОтчетТабличныйДокумент"" стал равен1:");
|
|
||||||
|
|
||||||
Возврат ВсеТесты;
|
Возврат ВсеТесты;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
@ -55,21 +53,170 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
// Процедура выполняется перед началом каждого сценария
|
// Процедура выполняется перед началом каждого сценария
|
||||||
Процедура ПередНачаломСценария() Экспорт
|
Процедура ПередНачаломСценария() Экспорт
|
||||||
|
СостояниеVanessaBehavior = Ванесса.ПолучитьСостояниеVanessaBehavior();
|
||||||
|
ИмяСценария = СостояниеVanessaBehavior.ТекущийСценарий.Имя;
|
||||||
|
Если ИмяСценария = "Проверка вывода ""ЧасыПлан"", ""ЧасыФакт"", ""ЧасыКОплате"" в отчете ""узОтчетПоЗадачам""" Тогда
|
||||||
|
|
||||||
|
ПредставлениеСправочника = "узЗадачи";
|
||||||
|
СоздатьЭлементСправочникаСНаименованиеНаСервере(ПредставлениеСправочника, "ЭтоТестоваяЗадача");
|
||||||
|
ЭлементСправочника = утвПолучитьЭлементГруппуСправочника(ПредставлениеСправочника, , "ЭтоТестоваяЗадача",,ИСТИНА);
|
||||||
|
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, "ЧасыПлан" , 10);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, "ЧасыФакт" , 15);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, "ЧасыКОплате" , 10);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, "ПоказыватьВОтчетахИКанбанДоске", ИСТИНА);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, "ДатаСоздания", Дата(2016,12,19,23,17,58));
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
// Процедура выполняется перед окончанием каждого сценария
|
// Процедура выполняется перед окончанием каждого сценария
|
||||||
Процедура ПередОкончаниемСценария() Экспорт
|
Процедура ПередОкончаниемСценария() Экспорт
|
||||||
|
СостояниеVanessaBehavior = Ванесса.ПолучитьСостояниеVanessaBehavior();
|
||||||
|
ИмяСценария = СостояниеVanessaBehavior.ТекущийСценарий.Имя;
|
||||||
|
Если ИмяСценария = "Проверка вывода ""ЧасыПлан"", ""ЧасыФакт"", ""ЧасыКОплате"" в отчете ""узОтчетПоЗадачам""" Тогда
|
||||||
|
ПредставлениеСправочника = "узЗадачи";
|
||||||
|
ЭлементСправочника = утвПолучитьЭлементГруппуСправочника(ПредставлениеСправочника, , "ЭтоТестоваяЗадача",,ИСТИНА);
|
||||||
|
утвУдалитьЭлементСправочника(ПредставлениеСправочника, ЭлементСправочника);
|
||||||
|
КонецЕсли;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
///////////////////////////////////////////////////
|
///////////////////////////////////////////////////
|
||||||
//Реализация шагов
|
//Реализация шагов
|
||||||
///////////////////////////////////////////////////
|
///////////////////////////////////////////////////
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура СоздатьЭлементСправочникаСНаименованиеНаСервере(ИмяСправочника, Наименование)
|
||||||
|
ЭлементСправочника = Справочники[ИмяСправочника].СоздатьЭлемент();
|
||||||
|
ЭлементСправочника.Наименование = Наименование;
|
||||||
|
ЭлементСправочника.Записать();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Функция утвПолучитьЭлементГруппуСправочника(ИмяСправочника, Код = "", Наименование = "", ИскатьГруппу = Ложь, ДолженБыть = ЛОЖЬ)
|
||||||
|
ПредставлениеПоиска = "";
|
||||||
|
|
||||||
|
Если Истина
|
||||||
|
И ПустаяСтрока(Код)
|
||||||
|
И ПустаяСтрока(Наименование)
|
||||||
|
Тогда
|
||||||
|
|
||||||
|
ВызватьИсключение "Не заполнено ни одно свойство поиска";
|
||||||
|
|
||||||
|
ИначеЕсли Истина
|
||||||
|
И ЗначениеЗаполнено(Код)
|
||||||
|
И ЗначениеЗаполнено(Наименование)
|
||||||
|
Тогда
|
||||||
|
|
||||||
|
ПредставлениеПоиска = "коду """ + Код + """ и наименованию """ + Наименование + """";
|
||||||
|
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Код) Тогда
|
||||||
|
ПредставлениеПоиска = "коду """ + Код + """";
|
||||||
|
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Наименование) Тогда
|
||||||
|
ПредставлениеПоиска = "наименованию """ + Наименование + """";
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ТекстИсключения = "Не нашли #ГруппуИлиЭлемент справочника #ИмяСправочника по #ПредставлениеПоиска";
|
||||||
|
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, "#ГруппуИлиЭлемент" , ?(ИскатьГруппу, "группу", "элемент"));
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, "#ИмяСправочника" , ИмяСправочника);
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, "#ПредставлениеПоиска", ПредставлениеПоиска);
|
||||||
|
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
"ВЫБРАТЬ
|
||||||
|
| Справочник.Ссылка
|
||||||
|
|ИЗ
|
||||||
|
| Справочник.Пользователи КАК Справочник
|
||||||
|
|ГДЕ
|
||||||
|
| &МоиУсловия";
|
||||||
|
|
||||||
|
ТекстМоиУсловия = "";
|
||||||
|
|
||||||
|
Если ИскатьГруппу Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, "Справочник.ЭтоГруппа = &ИскатьГруппу");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(Код) Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, "Справочник.Код = &Код");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(Наименование) Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, "Справочник.Наименование = &Наименование");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ПустаяСтрока(ТекстМоиУсловия) Тогда
|
||||||
|
ТекстМоиУсловия = "ИСТИНА";
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
СтрокаЗаменыСправочника = "Справочник." + ИмяСправочника + " КАК Справочник";
|
||||||
|
|
||||||
|
Запрос.Текст = СтрЗаменить(Запрос.Текст, "&МоиУсловия", ТекстМоиУсловия);
|
||||||
|
Запрос.Текст = СтрЗаменить(Запрос.Текст, "Справочник.Пользователи КАК Справочник", СтрокаЗаменыСправочника);
|
||||||
|
|
||||||
|
Запрос.УстановитьПараметр("ИскатьГруппу", ИскатьГруппу);
|
||||||
|
Запрос.УстановитьПараметр("Код", Код);
|
||||||
|
Запрос.УстановитьПараметр("Наименование", Наименование);
|
||||||
|
|
||||||
|
РезультатЗапроса = Запрос.Выполнить();
|
||||||
|
Если ДолженБыть И РезультатЗапроса.Пустой() Тогда
|
||||||
|
ВызватьИсключение ТекстИсключения;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
|
||||||
|
ВыборкаДетальныеЗаписи.Следующий();
|
||||||
|
|
||||||
|
Возврат ВыборкаДетальныеЗаписи.Ссылка;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура СформироватьТекстУсловияЗапроса(ТекстРезультат, ТекстУсловия)
|
||||||
|
Если НЕ ПустаяСтрока(ТекстРезультат) Тогда
|
||||||
|
ТекстРезультат = ТекстРезультат + " И "
|
||||||
|
КонецЕсли;
|
||||||
|
ТекстРезультат = ТекстРезультат + ТекстУсловия;
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура утвУдалитьЭлементСправочника(ИмяСправочника, ЭлементСправочника)
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
"ВЫБРАТЬ
|
||||||
|
| Справочник.Ссылка
|
||||||
|
|ИЗ
|
||||||
|
| Справочник." + ИмяСправочника + " КАК Справочник
|
||||||
|
|ГДЕ
|
||||||
|
| Справочник.Ссылка = &ЭлементСправочника";
|
||||||
|
|
||||||
|
Запрос.УстановитьПараметр("ЭлементСправочника", ЭлементСправочника);
|
||||||
|
|
||||||
|
РезультатЗапроса = Запрос.Выполнить();
|
||||||
|
Если РезультатЗапроса.Пустой() Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
|
||||||
|
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
|
||||||
|
ЭлементОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
|
||||||
|
|
||||||
|
ЭлементОбъект.Удалить();
|
||||||
|
КонецЦикла;
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ИмяРеквизита, Значение, ЗначениеВХранилище = ЛОЖЬ)
|
||||||
|
СпрОбъект = ЭлементСправочника.ПолучитьОбъект();
|
||||||
|
Если ЗначениеВХранилище Тогда
|
||||||
|
СпрОбъект[ИмяРеквизита] = Новый ХранилищеЗначения(Значение);
|
||||||
|
Иначе
|
||||||
|
СпрОбъект[ИмяРеквизита] = Значение;
|
||||||
|
КонецЕсли;
|
||||||
|
СпрОбъект.Записать();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Функция ПолучитьАктивноеОкноИзТестовоеПриложение()
|
Функция ПолучитьАктивноеОкноИзТестовоеПриложение()
|
||||||
Возврат КонтекстСохраняемый.ТестовоеПриложение.ПолучитьАктивноеОкно();
|
Возврат КонтекстСохраняемый.ТестовоеПриложение.ПолучитьАктивноеОкно();
|
||||||
@ -157,86 +304,4 @@
|
|||||||
Ванесса.ПроверитьРавенство(ДанныеПоля,Результат,"Ожидаемое значение поля.");
|
Ванесса.ПроверитьРавенство(ДанныеПоля,Результат,"Ожидаемое значение поля.");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
|
||||||
//Тогда табличный документ формы с именем "ОтчетТабличныйДокумент" стал равен1:
|
|
||||||
//@ТабличныйДокументФормыСИменемСталРавен1(Парам01,ТабПарам)
|
|
||||||
Процедура ТабличныйДокументФормыСИменемСталРавен1(ИмяРеквизита,ТабПарамБыло,СталПустым = Ложь) Экспорт
|
|
||||||
Нашли = Ложь;
|
|
||||||
МассивФорм = НайтиФормыТекущегоОкна();
|
|
||||||
Для каждого ТекущаяФорма Из МассивФорм Цикл
|
|
||||||
|
|
||||||
ПолеТабДок = ТекущаяФорма.НайтиОбъект(Тип("ТестируемоеПолеФормы"),,ИмяРеквизита);
|
|
||||||
Если ПолеТабДок = Неопределено Тогда
|
|
||||||
Продолжить;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Если ПолеТабДок = Неопределено Тогда
|
|
||||||
Продолжить;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
ТабДокСтало = Ванесса.ПолучитьТабДокИзTestClient(ПолеТабДок);
|
|
||||||
Если СталПустым Тогда
|
|
||||||
Если ТабДокСтало.Количество() = 0 Тогда
|
|
||||||
Возврат;
|
|
||||||
Иначе
|
|
||||||
Стр = "В табличном документе " + ТабДокСтало.Количество() + " строк, а ожидалось, что он пустой.";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
//Ванесса.ПосмотретьЗначение(ТабПарамБыло,Истина);
|
|
||||||
Если ТабДокСтало.Количество() <> ТабПарамБыло.Количество() Тогда
|
|
||||||
Стр = "В табличном документе " + ТабДокСтало.Количество() + " строк, а ожидалось " + ТабПарамБыло.Количество() + " строк.";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Ном = -1;
|
|
||||||
Для каждого СтрСтало Из ТабДокСтало Цикл
|
|
||||||
Ном = Ном + 1;
|
|
||||||
СтрБыло = ТабПарамБыло[Ном];
|
|
||||||
|
|
||||||
Если СтрСтало.Количество() <> СтрБыло.Количество() Тогда
|
|
||||||
Стр = "В табличном документе " + СтрСтало.Количество() + " колонок, а ожидалось " + СтрБыло.Количество() + " колонок.";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
|
|
||||||
НомКол = 0;
|
|
||||||
Для каждого ЗнСтало Из СтрСтало Цикл
|
|
||||||
НомКол = НомКол + 1;
|
|
||||||
ЗнБыло = СтрБыло["Кол" + НомКол];
|
|
||||||
|
|
||||||
Если ЗнСтало <> ЗнБыло Тогда
|
|
||||||
Если ЗнБыло <> "*" Тогда
|
|
||||||
Стр = "В табличном документе в колонке №" + НомКол + " значение= <" + ЗнСтало + "> , а ожидалось <" + ЗнБыло + ">";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
КонецЦикла;
|
|
||||||
КонецЦикла;
|
|
||||||
|
|
||||||
|
|
||||||
Нашли = Истина;
|
|
||||||
Прервать;
|
|
||||||
КонецЦикла;
|
|
||||||
|
|
||||||
Если НЕ Нашли Тогда
|
|
||||||
Стр = "Элемент формы с именем <" + ИмяРеквизита + "> не найден!";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
|
|
||||||
КонецПроцедуры
|
|
||||||
|
|
||||||
&НаКлиенте
|
|
||||||
Функция НайтиФормыТекущегоОкна()
|
|
||||||
Возврат Ванесса.НайтиФормыТекущегоОкнаTestClient();
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
//окончание текста модуля
|
//окончание текста модуля
|
||||||
@ -1 +1 @@
|
|||||||
Form\Форма\Форма.bsl-->70e297e0-e8a2-43bf-8be1-62e408f610a1.0 (46, 287)
|
Form\Форма\Форма.bsl-->70e297e0-e8a2-43bf-8be1-62e408f610a1.0 (46, 352)
|
||||||
|
|||||||
@ -73,8 +73,6 @@
|
|||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,""ПолеФормыСИменемСталоРавным(Парам01,Парам02)"",""ПолеФормыСИменемСталоРавным"",""Тогда поле формы с именем """"ЧасыФакт"""" стало равным '15'"");
|
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,""ПолеФормыСИменемСталоРавным(Парам01,Парам02)"",""ПолеФормыСИменемСталоРавным"",""Тогда поле формы с именем """"ЧасыФакт"""" стало равным '15'"");
|
||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,""ЯПодготавливаюКонстантуСНаименованием(Парам01)"",""ЯПодготавливаюКонстантуСНаименованием"",""Допустим я подготавливаю константу с наименованием """"узИспользоватьУчетВремени"""""");
|
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,""ЯПодготавливаюКонстантуСНаименованием(Парам01)"",""ЯПодготавливаюКонстантуСНаименованием"",""Допустим я подготавливаю константу с наименованием """"узИспользоватьУчетВремени"""""");
|
||||||
|
|
||||||
Ванесса.ДобавитьШагВМассивТестов(ВсеТесты,""ТабличныйДокументФормыСИменемСталРавен1(Парам01,ТабПарам)"",""ТабличныйДокументФормыСИменемСталРавен1"",""Тогда табличный документ формы с именем """"ОтчетТабличныйДокумент"""" стал равен1:"");
|
|
||||||
|
|
||||||
Возврат ВсеТесты;
|
Возврат ВсеТесты;
|
||||||
КонецФункции
|
КонецФункции
|
||||||
|
|
||||||
@ -100,21 +98,170 @@
|
|||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
// Процедура выполняется перед началом каждого сценария
|
// Процедура выполняется перед началом каждого сценария
|
||||||
Процедура ПередНачаломСценария() Экспорт
|
Процедура ПередНачаломСценария() Экспорт
|
||||||
|
СостояниеVanessaBehavior = Ванесса.ПолучитьСостояниеVanessaBehavior();
|
||||||
|
ИмяСценария = СостояниеVanessaBehavior.ТекущийСценарий.Имя;
|
||||||
|
Если ИмяСценария = ""Проверка вывода """"ЧасыПлан"""", """"ЧасыФакт"""", """"ЧасыКОплате"""" в отчете """"узОтчетПоЗадачам"""""" Тогда
|
||||||
|
|
||||||
|
ПредставлениеСправочника = ""узЗадачи"";
|
||||||
|
СоздатьЭлементСправочникаСНаименованиеНаСервере(ПредставлениеСправочника, ""ЭтоТестоваяЗадача"");
|
||||||
|
ЭлементСправочника = утвПолучитьЭлементГруппуСправочника(ПредставлениеСправочника, , ""ЭтоТестоваяЗадача"",,ИСТИНА);
|
||||||
|
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ""ЧасыПлан"" , 10);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ""ЧасыФакт"" , 15);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ""ЧасыКОплате"" , 10);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ""ПоказыватьВОтчетахИКанбанДоске"", ИСТИНА);
|
||||||
|
УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ""ДатаСоздания"", Дата(2016,12,19,23,17,58));
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
// Процедура выполняется перед окончанием каждого сценария
|
// Процедура выполняется перед окончанием каждого сценария
|
||||||
Процедура ПередОкончаниемСценария() Экспорт
|
Процедура ПередОкончаниемСценария() Экспорт
|
||||||
|
СостояниеVanessaBehavior = Ванесса.ПолучитьСостояниеVanessaBehavior();
|
||||||
|
ИмяСценария = СостояниеVanessaBehavior.ТекущийСценарий.Имя;
|
||||||
|
Если ИмяСценария = ""Проверка вывода """"ЧасыПлан"""", """"ЧасыФакт"""", """"ЧасыКОплате"""" в отчете """"узОтчетПоЗадачам"""""" Тогда
|
||||||
|
ПредставлениеСправочника = ""узЗадачи"";
|
||||||
|
ЭлементСправочника = утвПолучитьЭлементГруппуСправочника(ПредставлениеСправочника, , ""ЭтоТестоваяЗадача"",,ИСТИНА);
|
||||||
|
утвУдалитьЭлементСправочника(ПредставлениеСправочника, ЭлементСправочника);
|
||||||
|
КонецЕсли;
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
///////////////////////////////////////////////////
|
///////////////////////////////////////////////////
|
||||||
//Реализация шагов
|
//Реализация шагов
|
||||||
///////////////////////////////////////////////////
|
///////////////////////////////////////////////////
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура СоздатьЭлементСправочникаСНаименованиеНаСервере(ИмяСправочника, Наименование)
|
||||||
|
ЭлементСправочника = Справочники[ИмяСправочника].СоздатьЭлемент();
|
||||||
|
ЭлементСправочника.Наименование = Наименование;
|
||||||
|
ЭлементСправочника.Записать();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Функция утвПолучитьЭлементГруппуСправочника(ИмяСправочника, Код = """", Наименование = """", ИскатьГруппу = Ложь, ДолженБыть = ЛОЖЬ)
|
||||||
|
ПредставлениеПоиска = """";
|
||||||
|
|
||||||
|
Если Истина
|
||||||
|
И ПустаяСтрока(Код)
|
||||||
|
И ПустаяСтрока(Наименование)
|
||||||
|
Тогда
|
||||||
|
|
||||||
|
ВызватьИсключение ""Не заполнено ни одно свойство поиска"";
|
||||||
|
|
||||||
|
ИначеЕсли Истина
|
||||||
|
И ЗначениеЗаполнено(Код)
|
||||||
|
И ЗначениеЗаполнено(Наименование)
|
||||||
|
Тогда
|
||||||
|
|
||||||
|
ПредставлениеПоиска = ""коду """""" + Код + """""" и наименованию """""" + Наименование + """""""";
|
||||||
|
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Код) Тогда
|
||||||
|
ПредставлениеПоиска = ""коду """""" + Код + """""""";
|
||||||
|
|
||||||
|
ИначеЕсли ЗначениеЗаполнено(Наименование) Тогда
|
||||||
|
ПредставлениеПоиска = ""наименованию """""" + Наименование + """""""";
|
||||||
|
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ТекстИсключения = ""Не нашли #ГруппуИлиЭлемент справочника #ИмяСправочника по #ПредставлениеПоиска"";
|
||||||
|
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, ""#ГруппуИлиЭлемент"" , ?(ИскатьГруппу, ""группу"", ""элемент""));
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, ""#ИмяСправочника"" , ИмяСправочника);
|
||||||
|
ТекстИсключения = СтрЗаменить(ТекстИсключения, ""#ПредставлениеПоиска"", ПредставлениеПоиска);
|
||||||
|
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
""ВЫБРАТЬ
|
||||||
|
| Справочник.Ссылка
|
||||||
|
|ИЗ
|
||||||
|
| Справочник.Пользователи КАК Справочник
|
||||||
|
|ГДЕ
|
||||||
|
| &МоиУсловия"";
|
||||||
|
|
||||||
|
ТекстМоиУсловия = """";
|
||||||
|
|
||||||
|
Если ИскатьГруппу Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, ""Справочник.ЭтоГруппа = &ИскатьГруппу"");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(Код) Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, ""Справочник.Код = &Код"");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ЗначениеЗаполнено(Наименование) Тогда
|
||||||
|
СформироватьТекстУсловияЗапроса(ТекстМоиУсловия, ""Справочник.Наименование = &Наименование"");
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
Если ПустаяСтрока(ТекстМоиУсловия) Тогда
|
||||||
|
ТекстМоиУсловия = ""ИСТИНА"";
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
СтрокаЗаменыСправочника = ""Справочник."" + ИмяСправочника + "" КАК Справочник"";
|
||||||
|
|
||||||
|
Запрос.Текст = СтрЗаменить(Запрос.Текст, ""&МоиУсловия"", ТекстМоиУсловия);
|
||||||
|
Запрос.Текст = СтрЗаменить(Запрос.Текст, ""Справочник.Пользователи КАК Справочник"", СтрокаЗаменыСправочника);
|
||||||
|
|
||||||
|
Запрос.УстановитьПараметр(""ИскатьГруппу"", ИскатьГруппу);
|
||||||
|
Запрос.УстановитьПараметр(""Код"", Код);
|
||||||
|
Запрос.УстановитьПараметр(""Наименование"", Наименование);
|
||||||
|
|
||||||
|
РезультатЗапроса = Запрос.Выполнить();
|
||||||
|
Если ДолженБыть И РезультатЗапроса.Пустой() Тогда
|
||||||
|
ВызватьИсключение ТекстИсключения;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
|
||||||
|
ВыборкаДетальныеЗаписи.Следующий();
|
||||||
|
|
||||||
|
Возврат ВыборкаДетальныеЗаписи.Ссылка;
|
||||||
|
КонецФункции
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура СформироватьТекстУсловияЗапроса(ТекстРезультат, ТекстУсловия)
|
||||||
|
Если НЕ ПустаяСтрока(ТекстРезультат) Тогда
|
||||||
|
ТекстРезультат = ТекстРезультат + "" И ""
|
||||||
|
КонецЕсли;
|
||||||
|
ТекстРезультат = ТекстРезультат + ТекстУсловия;
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура утвУдалитьЭлементСправочника(ИмяСправочника, ЭлементСправочника)
|
||||||
|
Запрос = Новый Запрос;
|
||||||
|
Запрос.Текст =
|
||||||
|
""ВЫБРАТЬ
|
||||||
|
| Справочник.Ссылка
|
||||||
|
|ИЗ
|
||||||
|
| Справочник."" + ИмяСправочника + "" КАК Справочник
|
||||||
|
|ГДЕ
|
||||||
|
| Справочник.Ссылка = &ЭлементСправочника"";
|
||||||
|
|
||||||
|
Запрос.УстановитьПараметр(""ЭлементСправочника"", ЭлементСправочника);
|
||||||
|
|
||||||
|
РезультатЗапроса = Запрос.Выполнить();
|
||||||
|
Если РезультатЗапроса.Пустой() Тогда
|
||||||
|
Возврат;
|
||||||
|
КонецЕсли;
|
||||||
|
|
||||||
|
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
|
||||||
|
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
|
||||||
|
ЭлементОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
|
||||||
|
|
||||||
|
ЭлементОбъект.Удалить();
|
||||||
|
КонецЦикла;
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
|
&НаСервере
|
||||||
|
Процедура УстановитьЗначениеРеквизитаСправочника(ЭлементСправочника, ИмяРеквизита, Значение, ЗначениеВХранилище = ЛОЖЬ)
|
||||||
|
СпрОбъект = ЭлементСправочника.ПолучитьОбъект();
|
||||||
|
Если ЗначениеВХранилище Тогда
|
||||||
|
СпрОбъект[ИмяРеквизита] = Новый ХранилищеЗначения(Значение);
|
||||||
|
Иначе
|
||||||
|
СпрОбъект[ИмяРеквизита] = Значение;
|
||||||
|
КонецЕсли;
|
||||||
|
СпрОбъект.Записать();
|
||||||
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
&НаКлиенте
|
||||||
Функция ПолучитьАктивноеОкноИзТестовоеПриложение()
|
Функция ПолучитьАктивноеОкноИзТестовоеПриложение()
|
||||||
Возврат КонтекстСохраняемый.ТестовоеПриложение.ПолучитьАктивноеОкно();
|
Возврат КонтекстСохраняемый.ТестовоеПриложение.ПолучитьАктивноеОкно();
|
||||||
@ -202,88 +349,6 @@
|
|||||||
Ванесса.ПроверитьРавенство(ДанныеПоля,Результат,""Ожидаемое значение поля."");
|
Ванесса.ПроверитьРавенство(ДанныеПоля,Результат,""Ожидаемое значение поля."");
|
||||||
КонецПроцедуры
|
КонецПроцедуры
|
||||||
|
|
||||||
&НаКлиенте
|
|
||||||
//Тогда табличный документ формы с именем ""ОтчетТабличныйДокумент"" стал равен1:
|
|
||||||
//@ТабличныйДокументФормыСИменемСталРавен1(Парам01,ТабПарам)
|
|
||||||
Процедура ТабличныйДокументФормыСИменемСталРавен1(ИмяРеквизита,ТабПарамБыло,СталПустым = Ложь) Экспорт
|
|
||||||
Нашли = Ложь;
|
|
||||||
МассивФорм = НайтиФормыТекущегоОкна();
|
|
||||||
Для каждого ТекущаяФорма Из МассивФорм Цикл
|
|
||||||
|
|
||||||
ПолеТабДок = ТекущаяФорма.НайтиОбъект(Тип(""ТестируемоеПолеФормы""),,ИмяРеквизита);
|
|
||||||
Если ПолеТабДок = Неопределено Тогда
|
|
||||||
Продолжить;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Если ПолеТабДок = Неопределено Тогда
|
|
||||||
Продолжить;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
ТабДокСтало = Ванесса.ПолучитьТабДокИзTestClient(ПолеТабДок);
|
|
||||||
Если СталПустым Тогда
|
|
||||||
Если ТабДокСтало.Количество() = 0 Тогда
|
|
||||||
Возврат;
|
|
||||||
Иначе
|
|
||||||
Стр = ""В табличном документе "" + ТабДокСтало.Количество() + "" строк, а ожидалось, что он пустой."";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
//Ванесса.ПосмотретьЗначение(ТабПарамБыло,Истина);
|
|
||||||
Если ТабДокСтало.Количество() <> ТабПарамБыло.Количество() Тогда
|
|
||||||
Стр = ""В табличном документе "" + ТабДокСтало.Количество() + "" строк, а ожидалось "" + ТабПарамБыло.Количество() + "" строк."";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
Ном = -1;
|
|
||||||
Для каждого СтрСтало Из ТабДокСтало Цикл
|
|
||||||
Ном = Ном + 1;
|
|
||||||
СтрБыло = ТабПарамБыло[Ном];
|
|
||||||
|
|
||||||
Если СтрСтало.Количество() <> СтрБыло.Количество() Тогда
|
|
||||||
Стр = ""В табличном документе "" + СтрСтало.Количество() + "" колонок, а ожидалось "" + СтрБыло.Количество() + "" колонок."";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
|
|
||||||
НомКол = 0;
|
|
||||||
Для каждого ЗнСтало Из СтрСтало Цикл
|
|
||||||
НомКол = НомКол + 1;
|
|
||||||
ЗнБыло = СтрБыло[""Кол"" + НомКол];
|
|
||||||
|
|
||||||
Если ЗнСтало <> ЗнБыло Тогда
|
|
||||||
Если ЗнБыло <> ""*"" Тогда
|
|
||||||
Стр = ""В табличном документе в колонке №"" + НомКол + "" значение= <"" + ЗнСтало + ""> , а ожидалось <"" + ЗнБыло + "">"";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
КонецЦикла;
|
|
||||||
КонецЦикла;
|
|
||||||
|
|
||||||
|
|
||||||
Нашли = Истина;
|
|
||||||
Прервать;
|
|
||||||
КонецЦикла;
|
|
||||||
|
|
||||||
Если НЕ Нашли Тогда
|
|
||||||
Стр = ""Элемент формы с именем <"" + ИмяРеквизита + ""> не найден!"";
|
|
||||||
Сообщить(Стр);
|
|
||||||
ВызватьИсключение Стр;
|
|
||||||
КонецЕсли;
|
|
||||||
|
|
||||||
|
|
||||||
КонецПроцедуры
|
|
||||||
|
|
||||||
&НаКлиенте
|
|
||||||
Функция НайтиФормыТекущегоОкна()
|
|
||||||
Возврат Ванесса.НайтиФормыТекущегоОкнаTestClient();
|
|
||||||
КонецФункции
|
|
||||||
|
|
||||||
//окончание текста модуля",
|
//окончание текста модуля",
|
||||||
{4,1,
|
{4,1,
|
||||||
{9,
|
{9,
|
||||||
|
|||||||
@ -1 +1 @@
|
|||||||
{1,9,"",106fe068-840b-48ec-a8d0-737b07f24023,"70e297e0-e8a2-43bf-8be1-62e408f610a1",443350b1-90fa-458d-a962-ab4f66366540,"70e297e0-e8a2-43bf-8be1-62e408f610a1.0",e23f12ab-193f-4ad8-b3a0-ab7bc1439721,"79a499cc-1782-4a2f-abe7-61ea4d49fd5a",44a02535-75a1-49ac-8561-a6f8e79d21fc,"8aa13ab8-188a-4f59-be4f-031aa5450c90.0",e28145f0-8f5a-4469-9fe5-b1f86fb512b6,"copyinfo",5ba79528-3c57-447b-81ed-f8b0e423cc0f,"root",e1f93eed-18e7-4d09-a6d2-7d776fa2e162,"version",864e949b-75f4-44cd-9ddc-23aca6fb7f50,"versions",0f2201a9-67c6-4c82-8de1-a4f5035dadb0}
|
{1,9,"",89284c42-6724-489f-9883-8cce3cdee355,"70e297e0-e8a2-43bf-8be1-62e408f610a1",19274f22-568a-49ae-a271-765d28360fb7,"70e297e0-e8a2-43bf-8be1-62e408f610a1.0",843b3a2d-c1ff-47e4-aa84-43df6dc181ce,"79a499cc-1782-4a2f-abe7-61ea4d49fd5a",44a02535-75a1-49ac-8561-a6f8e79d21fc,"8aa13ab8-188a-4f59-be4f-031aa5450c90.0",e28145f0-8f5a-4469-9fe5-b1f86fb512b6,"copyinfo",f4280c28-6d59-4663-b398-2ca787dbe4e1,"root",2ab6fa56-2bd9-4b8a-a4a3-cb36f5e9c57a,"version",de9dccc6-294c-4f90-b39c-190e99bc12e3,"versions",1e059ce0-49ee-4b2d-8fae-e3def6d77a80}
|
||||||
Reference in New Issue
Block a user