Skip to content

Commit 14483e0

Browse files
agaltsoffagaltsoff
committed
???????????.???????????????????????????????????? ???? ????. ????????.
1 parent 2335341 commit 14483e0

File tree

6 files changed

+239
-5
lines changed

6 files changed

+239
-5
lines changed

‎Plugins/ТестКлиенты.epf

890 Bytes
Binary file not shown.

‎src/Plugins/ТестКлиенты/Form/Форма/Форма.bsl

+118-1
Original file line numberDiff line numberDiff line change
@@ -378,11 +378,128 @@
378378

379379
КонецФункции
380380

381+
&НаКлиенте
382+
Процедура УстановитьОтборВСпискеПоРегистратору(ФормаСписка, ЗаголовокСпискаРегистратора, ПредставлениеТипаРегистратора, ОписаниеСтрокиРегистратора)
383+
384+
385+
ТестКлиент= ТестКлиентПоУмолчанию();
386+
387+
КнопкаНастроитьСписок = ФормаСписка.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Настроить список...");
388+
КнопкаНастроитьСписок.Нажать();
389+
390+
391+
ОкноНастройкаСписка = ТестКлиент.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Настройка списка", , 30);
392+
ФормаНастройкаСписка = ОкноНастройкаСписка.НайтиОбъект(Тип("ТестируемаяФорма"), "Настройка списка");
393+
394+
ТаблицаВыбраныеПоля= ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Отбор. Элементы");
395+
396+
ОписаниеСтроки = Новый Соответствие();
397+
ОписаниеСтроки.Вставить("Представление", "Регистратор");
398+
399+
ЕстьРегистратор= ТаблицаВыбраныеПоля.ПерейтиКСтроке(ОписаниеСтроки, НаправлениеПереходаКСтроке.Вниз);
400+
401+
// Добавляем в отбор регистратор когда его там нет
402+
403+
Если Не ЕстьРегистратор Тогда
404+
405+
ТаблицаДоступныеПоля = ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Доступные поля");
406+
407+
ОписаниеСтроки = Новый Соответствие();
408+
ОписаниеСтроки.Вставить("Доступные поля", "Регистратор");
409+
410+
ТаблицаДоступныеПоля.ПерейтиКСтроке(ОписаниеСтроки);
411+
412+
ТаблицаДоступныеПоля.Выбрать();
413+
414+
КонецЕсли;
415+
416+
// Переходим к регистратору
417+
418+
ТаблицаОтборЭлементы = ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), "Отбор. Элементы");
419+
420+
ТаблицаОтборЭлементы.Активизировать();
421+
422+
ОписаниеСтроки = Новый Соответствие();
423+
ОписаниеСтроки.Вставить("Представление", "Регистратор");
424+
ТаблицаОтборЭлементы.ПерейтиКСтроке(ОписаниеСтроки);
425+
426+
// Устанавливаем использование когда оно не установлено
427+
428+
ПолеИспользование = ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Использование");
429+
Если ПолеИспользование.ПолучитьПредставлениеДанных() <> "Да" Тогда
430+
ПолеИспользование.УстановитьОтметку();
431+
КонецЕсли;
432+
433+
ПолеЗначение = ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемоеПолеФормы"), "Значение");
434+
ПолеЗначение.Активизировать();
435+
436+
ТаблицаВыбраныеПоля.ИзменитьСтроку();
437+
438+
ПолеЗначение.Выбрать();
439+
440+
ОкноВыборТипаДанных = ТестКлиент.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), "Выбор типа данных", , 30);
441+
ОкноВыборТипаДанныхФормаВыборТипаДанных = ОкноВыборТипаДанных.НайтиОбъект(Тип("ТестируемаяФорма"), "Выбор типа данных");
442+
443+
ТаблицаТипов = ОкноВыборТипаДанныхФормаВыборТипаДанных.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), , "TypeTree");
444+
445+
ТаблицаТипов.Активизировать();
446+
447+
ОписаниеСтроки = Новый Соответствие();
448+
ОписаниеСтроки.Вставить("", ПредставлениеТипаРегистратора);
449+
ТаблицаТипов.ПерейтиКСтроке(ОписаниеСтроки);
450+
451+
ТаблицаТипов.Выбрать();
452+
453+
ОкноВыборРегистратора = ТестКлиент.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), ЗаголовокСпискаРегистратора, , 30);
454+
ФормаВыборРегистратора = ОкноВыборРегистратора.НайтиОбъект(Тип("ТестируемаяФорма"), ЗаголовокСпискаРегистратора);
455+
456+
ТаблицаДокументов= ФормаВыборРегистратора.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), , "Список");
457+
458+
ТаблицаДокументов.ПерейтиКСтроке(ОписаниеСтрокиРегистратора);
459+
460+
ТаблицаДокументов.Выбрать();
461+
462+
ТаблицаВыбраныеПоля.ЗакончитьРедактированиеСтроки(Ложь);
463+
464+
КнопкаЗавершитьРедактирование = ФормаНастройкаСписка.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), "Завершить редактирование");
465+
КнопкаЗавершитьРедактирование.Нажать();
466+
467+
КонецПроцедуры
468+
381469

382470
#КонецОбласти
383471

384472
#Область ВспомогательныеПроцедуры
385-
473+
474+
&НаКлиенте
475+
Функция НайтиОкноПриложения(ТестПриложение, ТекстЗаголовка= Неопределено, Имя= Неопределено)
476+
Возврат ТестПриложение.НайтиОбъект(Тип("ТестируемоеОкноКлиентскогоПриложения"), ТекстЗаголовка, Имя, 20);
477+
КонецФункции
478+
479+
&НаКлиенте
480+
Функция НайтиФормуОкнаПриложения(ТестПриложение, ТекстЗаголовка= Неопределено, Имя= Неопределено)
481+
ТестОкно= НайтиОкноПриложения(ТестПриложение, ТекстЗаголовка, Имя);
482+
Если ТестОкно = Неопределено Тогда
483+
Возврат ТестОкно;
484+
КонецЕсли;
485+
Возврат ТестОкно.НайтиОбъект(Тип("ТестируемаяФорма"), ТекстЗаголовка, Имя, 20);
486+
КонецФункции
487+
488+
&НаКлиенте
489+
Функция НайтиТаблицуФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
490+
Возврат ТестФорма.НайтиОбъект(Тип("ТестируемаяТаблицаФормы"), ТекстЗаголовка, Имя, 20);
491+
КонецФункции
492+
493+
&НаКлиенте
494+
Функция НайтиПолеФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
495+
Возврат ТестФорма.НайтиОбъект(Тип("ТестируемоеПолеФормы"), ТекстЗаголовка, Имя, 20);
496+
КонецФункции
497+
498+
&НаКлиенте
499+
Функция НайтиКнопкуФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
500+
Возврат ТестФорма.НайтиОбъект(Тип("ТестируемаяКнопкаФормы"), ТекстЗаголовка, Имя, 20);
501+
КонецФункции
502+
386503
&НаСервере
387504
Функция ЭтотОбъектНаСервере()
388505
Возврат РеквизитФормыВЗначение("Объект");

‎src/Plugins/ТестКлиенты/maps.txt

+1-1
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
Form\Форма\Форма.bsl-->4e8e1a4a-a947-419b-95c8-58a411e3ffa4.0 (1 425, 2 077)
1+
Form\Форма\Форма.bsl-->4e8e1a4a-a947-419b-95c8-58a411e3ffa4.0 (1 425, 2 194)

‎src/Plugins/ТестКлиенты/und/4e8e1a4a-a947-419b-95c8-58a411e3ffa4.0

+118-1
Original file line numberDiff line numberDiff line change
@@ -1802,11 +1802,128 @@
18021802

18031803
КонецФункции
18041804

1805+
&НаКлиенте
1806+
Процедура УстановитьОтборВСпискеПоРегистратору(ФормаСписка, ЗаголовокСпискаРегистратора, ПредставлениеТипаРегистратора, ОписаниеСтрокиРегистратора)
1807+
1808+
1809+
ТестКлиент= ТестКлиентПоУмолчанию();
1810+
1811+
КнопкаНастроитьСписок = ФормаСписка.НайтиОбъект(Тип(""ТестируемаяКнопкаФормы""), ""Настроить список..."");
1812+
КнопкаНастроитьСписок.Нажать();
1813+
1814+
1815+
ОкноНастройкаСписка = ТестКлиент.НайтиОбъект(Тип(""ТестируемоеОкноКлиентскогоПриложения""), ""Настройка списка"", , 30);
1816+
ФормаНастройкаСписка = ОкноНастройкаСписка.НайтиОбъект(Тип(""ТестируемаяФорма""), ""Настройка списка"");
1817+
1818+
ТаблицаВыбраныеПоля= ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), ""Отбор. Элементы"");
1819+
1820+
ОписаниеСтроки = Новый Соответствие();
1821+
ОписаниеСтроки.Вставить(""Представление"", ""Регистратор"");
1822+
1823+
ЕстьРегистратор= ТаблицаВыбраныеПоля.ПерейтиКСтроке(ОписаниеСтроки, НаправлениеПереходаКСтроке.Вниз);
1824+
1825+
// Добавляем в отбор регистратор когда его там нет
1826+
1827+
Если Не ЕстьРегистратор Тогда
1828+
1829+
ТаблицаДоступныеПоля = ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), ""Доступные поля"");
1830+
1831+
ОписаниеСтроки = Новый Соответствие();
1832+
ОписаниеСтроки.Вставить(""Доступные поля"", ""Регистратор"");
1833+
1834+
ТаблицаДоступныеПоля.ПерейтиКСтроке(ОписаниеСтроки);
1835+
1836+
ТаблицаДоступныеПоля.Выбрать();
1837+
1838+
КонецЕсли;
1839+
1840+
// Переходим к регистратору
1841+
1842+
ТаблицаОтборЭлементы = ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), ""Отбор. Элементы"");
1843+
1844+
ТаблицаОтборЭлементы.Активизировать();
1845+
1846+
ОписаниеСтроки = Новый Соответствие();
1847+
ОписаниеСтроки.Вставить(""Представление"", ""Регистратор"");
1848+
ТаблицаОтборЭлементы.ПерейтиКСтроке(ОписаниеСтроки);
1849+
1850+
// Устанавливаем использование когда оно не установлено
1851+
1852+
ПолеИспользование = ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемоеПолеФормы""), ""Использование"");
1853+
Если ПолеИспользование.ПолучитьПредставлениеДанных() <> ""Да"" Тогда
1854+
ПолеИспользование.УстановитьОтметку();
1855+
КонецЕсли;
1856+
1857+
ПолеЗначение = ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемоеПолеФормы""), ""Значение"");
1858+
ПолеЗначение.Активизировать();
1859+
1860+
ТаблицаВыбраныеПоля.ИзменитьСтроку();
1861+
1862+
ПолеЗначение.Выбрать();
1863+
1864+
ОкноВыборТипаДанных = ТестКлиент.НайтиОбъект(Тип(""ТестируемоеОкноКлиентскогоПриложения""), ""Выбор типа данных"", , 30);
1865+
ОкноВыборТипаДанныхФормаВыборТипаДанных = ОкноВыборТипаДанных.НайтиОбъект(Тип(""ТестируемаяФорма""), ""Выбор типа данных"");
1866+
1867+
ТаблицаТипов = ОкноВыборТипаДанныхФормаВыборТипаДанных.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), , ""TypeTree"");
1868+
1869+
ТаблицаТипов.Активизировать();
1870+
1871+
ОписаниеСтроки = Новый Соответствие();
1872+
ОписаниеСтроки.Вставить("""", ПредставлениеТипаРегистратора);
1873+
ТаблицаТипов.ПерейтиКСтроке(ОписаниеСтроки);
1874+
1875+
ТаблицаТипов.Выбрать();
1876+
1877+
ОкноВыборРегистратора = ТестКлиент.НайтиОбъект(Тип(""ТестируемоеОкноКлиентскогоПриложения""), ЗаголовокСпискаРегистратора, , 30);
1878+
ФормаВыборРегистратора = ОкноВыборРегистратора.НайтиОбъект(Тип(""ТестируемаяФорма""), ЗаголовокСпискаРегистратора);
1879+
1880+
ТаблицаДокументов= ФормаВыборРегистратора.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), , ""Список"");
1881+
1882+
ТаблицаДокументов.ПерейтиКСтроке(ОписаниеСтрокиРегистратора);
1883+
1884+
ТаблицаДокументов.Выбрать();
1885+
1886+
ТаблицаВыбраныеПоля.ЗакончитьРедактированиеСтроки(Ложь);
1887+
1888+
КнопкаЗавершитьРедактирование = ФормаНастройкаСписка.НайтиОбъект(Тип(""ТестируемаяКнопкаФормы""), ""Завершить редактирование"");
1889+
КнопкаЗавершитьРедактирование.Нажать();
1890+
1891+
КонецПроцедуры
1892+
18051893

18061894
#КонецОбласти
18071895

18081896
#Область ВспомогательныеПроцедуры
1809-
1897+
1898+
&НаКлиенте
1899+
Функция НайтиОкноПриложения(ТестПриложение, ТекстЗаголовка= Неопределено, Имя= Неопределено)
1900+
Возврат ТестПриложение.НайтиОбъект(Тип(""ТестируемоеОкноКлиентскогоПриложения""), ТекстЗаголовка, Имя, 20);
1901+
КонецФункции
1902+
1903+
&НаКлиенте
1904+
Функция НайтиФормуОкнаПриложения(ТестПриложение, ТекстЗаголовка= Неопределено, Имя= Неопределено)
1905+
ТестОкно= НайтиОкноПриложения(ТестПриложение, ТекстЗаголовка, Имя);
1906+
Если ТестОкно = Неопределено Тогда
1907+
Возврат ТестОкно;
1908+
КонецЕсли;
1909+
Возврат ТестОкно.НайтиОбъект(Тип(""ТестируемаяФорма""), ТекстЗаголовка, Имя, 20);
1910+
КонецФункции
1911+
1912+
&НаКлиенте
1913+
Функция НайтиТаблицуФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
1914+
Возврат ТестФорма.НайтиОбъект(Тип(""ТестируемаяТаблицаФормы""), ТекстЗаголовка, Имя, 20);
1915+
КонецФункции
1916+
1917+
&НаКлиенте
1918+
Функция НайтиПолеФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
1919+
Возврат ТестФорма.НайтиОбъект(Тип(""ТестируемоеПолеФормы""), ТекстЗаголовка, Имя, 20);
1920+
КонецФункции
1921+
1922+
&НаКлиенте
1923+
Функция НайтиКнопкуФормы(ТестФорма, ТекстЗаголовка= Неопределено, Имя= Неопределено)
1924+
Возврат ТестФорма.НайтиОбъект(Тип(""ТестируемаяКнопкаФормы""), ТекстЗаголовка, Имя, 20);
1925+
КонецФункции
1926+
18101927
&НаСервере
18111928
Функция ЭтотОбъектНаСервере()
18121929
Возврат РеквизитФормыВЗначение(""Объект"");

‎src/Plugins/ТестКлиенты/und/version

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
{
22
{216,0,
3-
{80309,0}
3+
{80308,0}
44
}
55
}

‎src/Plugins/ТестКлиенты/und/versions

+1-1
Original file line numberDiff line numberDiff line change
@@ -1 +1 @@
1-
{1,9,"",891f49a5-e1b5-4649-bbfe-1ed92f1c932d,"11c5f751-bfaf-480a-92fe-7f30023f2e9a",ebf586c4-17f6-44f3-a583-08ef16445939,"4e8e1a4a-a947-419b-95c8-58a411e3ffa4",ad21b509-4def-446f-98e7-d079d1e85d6f,"4e8e1a4a-a947-419b-95c8-58a411e3ffa4.0",3e75a24c-d71b-42e1-9cff-f5e257543527,"908d0aaf-e4ec-4668-8d14-3e8075d222fd.0",e69e25de-633b-47b9-816e-46159ed0e6ba,"copyinfo",27a07b9c-9848-4b36-aa02-0519414d18b7,"root",96cfa498-9d80-4307-8dc2-4961b7d2f9eb,"version",a5383096-a019-4297-ba0e-c976d27950e6,"versions",491d84ed-7c32-4333-b248-48b2748bd216}
1+
{1,9,"",59eb35e5-05b8-4dda-82d3-f34baee188ae,"11c5f751-bfaf-480a-92fe-7f30023f2e9a",fe92ec02-37aa-4534-9be4-a68910b8aaf4,"4e8e1a4a-a947-419b-95c8-58a411e3ffa4",205f264b-1cff-4813-b7ba-8517869dff95,"4e8e1a4a-a947-419b-95c8-58a411e3ffa4.0",e56f2680-e67e-498a-bd24-09133d812e8d,"908d0aaf-e4ec-4668-8d14-3e8075d222fd.0",e69e25de-633b-47b9-816e-46159ed0e6ba,"copyinfo",5ccfa7cc-ce35-413a-b69d-542589f41dd7,"root",d95751a8-adf8-461c-9764-8cff03b07869,"version",dfbcfac3-f4de-4a8d-ac29-632a94405de9,"versions",18c8920c-c7f2-4501-9d71-dcaee4d37edc}

0 commit comments

Comments
 (0)