|
26 | 26 |
|
27 | 27 | НужноИсключениеЕслиНеНайденоДокументов = Ложь; |
28 | 28 |
|
29 | | - Если НЕ СоздатьФорму_ПолучениеФорм() Тогда |
30 | | - Возврат; |
31 | | - КонецЕсли; |
32 | | - |
33 | | - СоздатьИменаОсновныхФорм(); |
34 | | - |
35 | | - ВыводитьСообщенияВЖурналРегистрации = Истина; |
| 29 | + Если НЕ СоздатьФорму_ПолучениеФорм() Тогда |
| 30 | + Возврат; |
| 31 | + КонецЕсли; |
36 | 32 |
|
37 | | - Для Каждого МетаОбъект Из Метаданные.Справочники Цикл |
38 | | - Если ПравоДоступа("Редактирование", МетаОбъект) Тогда |
39 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуСуществующегоЭлементаСправочника", ПолучитьСписокИсключений_Справочники_Существующие(), |
40 | | - мИменаОсновныхФорм_Объекты, "Существующие элементы"); |
41 | | - КонецЕсли; |
42 | | - |
43 | | - Если ПравоДоступа("ИнтерактивноеДобавление", МетаОбъект) Тогда |
44 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоЭлементаСправочника", ПолучитьСписокИсключений_Справочники_Новые(), |
45 | | - мИменаОсновныхФорм_Объекты, "Новые элементы"); |
46 | | - КонецЕсли; |
| 33 | + НаборТестов.СтрогийПорядокВыполнения(); |
| 34 | + |
| 35 | + СоздатьИменаОсновныхФорм(); |
| 36 | + |
| 37 | + ВыводитьСообщенияВЖурналРегистрации = Истина; |
| 38 | + |
| 39 | + Для Каждого МетаОбъект Из Метаданные.Справочники Цикл |
| 40 | + Если ПравоДоступа("Редактирование", МетаОбъект) Тогда |
| 41 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуСуществующегоЭлементаСправочника", ПолучитьСписокИсключений_Справочники_Существующие(), |
| 42 | + мИменаОсновныхФорм_Объекты, "Существующие элементы"); |
| 43 | + КонецЕсли; |
47 | 44 |
|
48 | | - Если ПравоДоступа("Добавление", МетаОбъект) Тогда |
49 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоЭлементаСправочникаСоздаваемогоКопированием", ПолучитьСписокИсключений_Справочники_Новые(), |
50 | | - мИменаОсновныхФорм_Объекты, "Новые через копирование элементы"); |
51 | | - КонецЕсли; |
52 | | - |
53 | | - ДобавитьТестДляМетаданного_ОдинОбъект(НаборТестов, МетаОбъект, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Справочники_Списки(), мИменаОсновныхФорм_Списки); |
54 | | - КонецЦикла; |
| 45 | + Если ПравоДоступа("ИнтерактивноеДобавление", МетаОбъект) Тогда |
| 46 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоЭлементаСправочника", ПолучитьСписокИсключений_Справочники_Новые(), |
| 47 | + мИменаОсновныхФорм_Объекты, "Новые элементы"); |
| 48 | + КонецЕсли; |
55 | 49 |
|
56 | | - Для Каждого МетаОбъект Из Метаданные.Документы Цикл |
57 | | - Если ПравоДоступа("Редактирование", МетаОбъект) Тогда |
58 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуСуществующегоДокумента", ПолучитьСписокИсключений_Документы_Существующие(), |
59 | | - мИменаОсновныхФорм_Объекты, "Существующие документы"); |
| 50 | + Если ПравоДоступа("Добавление", МетаОбъект) Тогда |
| 51 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоЭлементаСправочникаСоздаваемогоКопированием", ПолучитьСписокИсключений_Справочники_Новые(), |
| 52 | + мИменаОсновныхФорм_Объекты, "Новые через копирование элементы"); |
| 53 | + КонецЕсли; |
| 54 | + |
| 55 | + ДобавитьТестДляМетаданного_ОдинОбъект(НаборТестов, МетаОбъект, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Справочники_Списки(), мИменаОсновныхФорм_Списки); |
| 56 | + КонецЦикла; |
| 57 | + |
| 58 | + Для Каждого МетаОбъект Из Метаданные.Документы Цикл |
| 59 | + Если ПравоДоступа("Редактирование", МетаОбъект) Тогда |
| 60 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуСуществующегоДокумента", ПолучитьСписокИсключений_Документы_Существующие(), |
| 61 | + мИменаОсновныхФорм_Объекты, "Существующие документы"); |
60 | 62 |
|
61 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ПеренестиДокументНаТекущийДень_и_ОткрытьЕгоФорму", ПолучитьСписокИсключений_Документы_ПеренестиДату(), |
62 | | - мИменаОсновныхФорм_Объекты, "Перенос документа на текущий день"); |
63 | | - КонецЕсли; |
64 | | - |
65 | | - Если ПравоДоступа("ИнтерактивноеДобавление", МетаОбъект) Тогда |
66 | | - ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоДокумента", ПолучитьСписокИсключений_Документы_Новые(), |
67 | | - мИменаОсновныхФорм_Объекты, "Новые документы"); |
68 | | - КонецЕсли; |
| 63 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ПеренестиДокументНаТекущийДень_и_ОткрытьЕгоФорму", ПолучитьСписокИсключений_Документы_ПеренестиДату(), |
| 64 | + мИменаОсновныхФорм_Объекты, "Перенос документа на текущий день"); |
| 65 | + КонецЕсли; |
69 | 66 |
|
70 | | - ДобавитьТестДляМетаданного_ОдинОбъект(НаборТестов, МетаОбъект, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Документы_Списки(), мИменаОсновныхФорм_Списки); |
71 | | - КонецЦикла; |
72 | | - |
73 | | - ДобавитьТестПоМенеджеруМетаданных(НаборТестов, Метаданные.Отчеты, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Отчеты(), мИменаОсновныхФорм); |
74 | | - ДобавитьТестПоМенеджеруМетаданных(НаборТестов, Метаданные.Обработки, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Обработки(), мИменаОсновныхФорм); |
| 67 | + Если ПравоДоступа("ИнтерактивноеДобавление", МетаОбъект) Тогда |
| 68 | + ДобавитьТестДляОдногоМетаданного_Объекты(НаборТестов, МетаОбъект, "Тест_ОткрытьФормуНовогоДокумента", ПолучитьСписокИсключений_Документы_Новые(), |
| 69 | + мИменаОсновныхФорм_Объекты, "Новые документы"); |
| 70 | + КонецЕсли; |
| 71 | + |
| 72 | + ДобавитьТестДляМетаданного_ОдинОбъект(НаборТестов, МетаОбъект, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Документы_Списки(), мИменаОсновныхФорм_Списки); |
| 73 | + КонецЦикла; |
| 74 | + |
| 75 | + ДобавитьТестПоМенеджеруМетаданных(НаборТестов, Метаданные.Отчеты, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Отчеты(), мИменаОсновныхФорм); |
| 76 | + ДобавитьТестПоМенеджеруМетаданных(НаборТестов, Метаданные.Обработки, "ТестДолжен_ОткрытьФорму_ПоМетаФорме", ПолучитьСписокИсключений_Обработки(), мИменаОсновныхФорм); |
75 | 77 |
|
76 | 78 | КонецПроцедуры |
77 | 79 |
|
|
0 commit comments