1c/yaxunit
1
0
Fork 0
mirror of https://github.com/bia-technologies/yaxunit.git synced 2025-01-08 13:06:32 +02:00
Code Issues Releases Activity

Форматирование

Browse Source
This commit is contained in:
alkoleft 2023-08-11 22:27:46 +03:00
parent 6e1031928c
commit cf0cb91f83
6 changed files with 174 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
exts/yaxunit/src/CommonModules/ЮТПреобразования/Module.bsl Normal file
View File

@ -0,0 +1,25 @@
//©///////////////////////////////////////////////////////////////////////////©//
//
// Copyright 2021-2023 BIA-Technologies Limited Liability Company
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
// http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//
//©///////////////////////////////////////////////////////////////////////////©//
#Область СлужебныйПрограммныйИнтерфейс
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
#КонецОбласти

9
exts/yaxunit/src/CommonModules/ЮТПреобразования/ЮТПреобразования.mdo Normal file
View File

@ -0,0 +1,9 @@
<?xml version="1.0" encoding="UTF-8"?>
<mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="3183c284-253d-4826-9b75-d540f433c4c1">
<name>ЮТПреобразования</name>
<synonym>
<key>ru</key>
<value>Преобразования</value>
</synonym>
<server>true</server>
</mdclass:CommonModule>

28
exts/yaxunit/src/CommonModules/ЮТТестовыеДанные/Module.bsl
View File

@ -577,19 +577,17 @@
// * ФикцияОбязательныхПолей - Булево - По умолчанию - Ложь // * ФикцияОбязательныхПолей - Булево - По умолчанию - Ложь
// * ОбменДаннымиЗагрузка - Булево - По умолчанию - Истина // * ОбменДаннымиЗагрузка - Булево - По умолчанию - Истина
// Возвращаемое значение: // Возвращаемое значение:
// см. ЮТТестовыеДанные_ТаблицыЗначений.ТаблицаЗначенийИзМассиваСтруктур // см. ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений
Функция ТаблицаЗначенийИзТабличногоДокумента(ТабличныйДокумент, ОписанияТипов, КэшЗначений = Неопределено, Функция ТаблицаЗначенийИзТабличногоДокумента(ТабличныйДокумент, ОписанияТипов, КэшЗначений = Неопределено,
ЗаменяемыеЗначения = Неопределено, ПараметрыСозданияОбъектов = Неопределено) Экспорт ЗаменяемыеЗначения = Неопределено, ПараметрыСозданияОбъектов = Неопределено) Экспорт
Параметры = ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений(ПараметрыСозданияОбъектов); Параметры = ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений(ПараметрыСозданияОбъектов);
ИсточникДанных = СтруктурыТабличногоДокумента(ТабличныйДокумент); ИсточникДанных = СтруктурыТабличногоДокумента(ТабличныйДокумент);
ТаблицаЗначений = ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений( ТаблицаЗначений = ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений(ИсточникДанных,
ИсточникДанных, ОписанияТипов,
ОписанияТипов, КэшЗначений,
КэшЗначений, ЗаменяемыеЗначения,
ЗаменяемыеЗначения, Параметры);
Параметры
);
Возврат ТаблицаЗначений; Возврат ТаблицаЗначений;
@ -605,19 +603,17 @@
// * ФикцияОбязательныхПолей - Булево - По умолчанию - Ложь // * ФикцияОбязательныхПолей - Булево - По умолчанию - Ложь
// * ОбменДаннымиЗагрузка - Булево - По умолчанию - Истина // * ОбменДаннымиЗагрузка - Булево - По умолчанию - Истина
// Возвращаемое значение: // Возвращаемое значение:
// см. ЮТТестовыеДанные_ТаблицыЗначений.ТаблицаЗначенийИзМассиваСтруктур // см. ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений
Функция ТаблицаЗначенийИзТаблицыMarkDown(Строки, ОписанияТипов, КэшЗначений = Неопределено, Функция ТаблицаЗначенийИзТаблицыMarkDown(Строки, ОписанияТипов, КэшЗначений = Неопределено,
ЗаменяемыеЗначения = Неопределено, ПараметрыСозданияОбъектов = Неопределено) Экспорт ЗаменяемыеЗначения = Неопределено, ПараметрыСозданияОбъектов = Неопределено) Экспорт
Параметры = ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений(ПараметрыСозданияОбъектов); Параметры = ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений(ПараметрыСозданияОбъектов);
ИсточникДанных = ТаблицаMarkDown(Строки); ИсточникДанных = ТаблицаMarkDown(Строки);
ТаблицаЗначений = ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений( ТаблицаЗначений = ЮТТестовыеДанные_ТаблицыЗначений.ТипизированнаяТаблицаЗначений(ИсточникДанных,
ИсточникДанных, ОписанияТипов,
ОписанияТипов, КэшЗначений,
КэшЗначений, ЗаменяемыеЗначения,
ЗаменяемыеЗначения, Параметры);
Параметры
);
Возврат ТаблицаЗначений; Возврат ТаблицаЗначений;

254
exts/yaxunit/src/CommonModules/ЮТТестовыеДанные_ТаблицыЗначений/Module.bsl
View File

@ -19,44 +19,48 @@
#Область СлужебныйПрограммныйИнтерфейс #Область СлужебныйПрограммныйИнтерфейс
// Возвращает таблицу значений, заполненную из массива структур // Возвращает таблицу значений, заполненную из массива структур
// Параметры: //
// Данные - Массив из Структура - Значения для преобразования в таблицу // Параметры:
// ОписанияТипов - Соответствие из Строка - Соответствие имен колонок таблицы к типам значений // Данные - Массив из Структура - Значения для преобразования в таблицу
// КэшЗначений - Соответствие из Произвольный - Соответствие для хранения создаваемых значений // ОписанияТипов - Соответствие из Строка - Соответствие имен колонок таблицы к типам значений
// ЗаменяемыеЗначения - Соответствие из Строка - Значения, использующиеся для замены // КэшЗначений - Соответствие из Произвольный - Соответствие для хранения создаваемых значений
// Параметры - см. ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений // ЗаменяемыеЗначения - Соответствие из Строка - Значения, использующиеся для замены
// Возвращаемое значение: // Параметры - см. ЮТТестовыеДанные_ТаблицыЗначений.ПараметрыЗаполненияТаблицыЗначений
// ТаблицаЗначений // Возвращаемое значение:
Функция ТипизированнаяТаблицаЗначений(Данные, ОписанияТипов, КэшЗначений = Неопределено, // ТаблицаЗначений
ЗаменяемыеЗначения = Неопределено, Параметры = Неопределено) Экспорт Функция ТипизированнаяТаблицаЗначений(Данные,
ОписанияТипов,
КэшЗначений = Неопределено,
ЗаменяемыеЗначения = Неопределено,
Параметры = Неопределено) Экспорт
Если Не ЗначениеЗаполнено(Данные) Тогда Если Не ЗначениеЗаполнено(Данные) Тогда
Возврат Новый ТаблицаЗначений; Возврат Новый ТаблицаЗначений;
КонецЕсли; КонецЕсли;
ИменаКолонок = ЮТОбщий.ВыгрузитьЗначения(Данные[0], "Ключ"); ИменаКолонок = ЮТОбщий.ВыгрузитьЗначения(Данные[0], "Ключ");
НедостающиеКолонки = НедостающиеКолонкиДанных(ИменаКолонок, ОписанияТипов); НедостающиеКолонки = НедостающиеКолонкиДанных(ИменаКолонок, ОписанияТипов);
Если ЗначениеЗаполнено(НедостающиеКолонки) Тогда Если ЗначениеЗаполнено(НедостающиеКолонки) Тогда
ТекстИсключения = "Отсутствуют данные для ожидаемых колонок: " + СтрСоединить(НедостающиеКолонки, ","); ТекстИсключения = "Отсутствуют данные для ожидаемых колонок: " + СтрСоединить(НедостающиеКолонки, ",");
Вызватьисключение ТекстИсключения; ВызватьИсключение ТекстИсключения;
КонецЕсли; КонецЕсли;
Если ЗаменяемыеЗначения = Неопределено Тогда Если ЗаменяемыеЗначения = Неопределено Тогда
ЗаменяемыеЗначения = Новый Соответствие; ЗаменяемыеЗначения = Новый Соответствие;
КонецЕсли; КонецЕсли;
Если Параметры = Неопределено Тогда Если Параметры = Неопределено Тогда
Параметры = ПараметрыЗаполненияТаблицыЗначений(); Параметры = ПараметрыЗаполненияТаблицыЗначений();
КонецЕсли; КонецЕсли;
ПараметрыСозданияОбъектовМетаданных = Параметры.СозданиеОбъектовМетаданных; ПараметрыСозданияОбъектовМетаданных = Параметры.СозданиеОбъектовМетаданных;
СведенияОбъектовМетаданных = СведенияОбъектовМетаданныхИзОписанийТипов(ИменаКолонок, ОписанияТипов); СведенияОбъектовМетаданных = СведенияОбъектовМетаданныхИзОписанийТипов(ИменаКолонок, ОписанияТипов);
СведенияОРеквизитахОбъектов = СведенияРеквизитовОбъектовМетаданных(ИменаКолонок, СведенияОбъектовМетаданных); СведенияОРеквизитахОбъектов = СведенияРеквизитовОбъектовМетаданных(ИменаКолонок, СведенияОбъектовМетаданных);
ТаблицаЗначений = ИнициализированнаяТаблицаЗначений(ИменаКолонок, ОписанияТипов); ТаблицаЗначений = ИнициализированнаяТаблицаЗначений(ИменаКолонок, ОписанияТипов);
ИнициализироватьКэшЗначенийОбъектовМетаданных(КэшЗначений, ИменаКолонок, СведенияОбъектовМетаданных); ИнициализироватьКэшЗначенийОбъектовМетаданных(КэшЗначений, ИменаКолонок, СведенияОбъектовМетаданных);
Для Каждого Источник Из Данные Цикл Для Каждого Источник Из Данные Цикл
@ -71,8 +75,8 @@
Если Не ЗначениеЗаполнено(ЗначениеИсточника) Тогда Если Не ЗначениеЗаполнено(ЗначениеИсточника) Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
СведенияОбъекта = СведенияОбъектовМетаданных.Получить(ИмяКолонки); СведенияОбъекта = СведенияОбъектовМетаданных.Получить(ИмяКолонки);
ЗаменяемоеЗначение = ЗаменяемыеЗначения.Получить(ЗначениеИсточника); ЗаменяемоеЗначение = ЗаменяемыеЗначения.Получить(ЗначениеИсточника);
@ -89,71 +93,64 @@
Если ЗначениеТаблицы = Неопределено Тогда Если ЗначениеТаблицы = Неопределено Тогда
ЗначенияРеквизитовОбъекта = ПолучитьЗначенияРеквизитовПоУмолчанию( ЗначенияРеквизитовОбъекта = ПолучитьЗначенияРеквизитовПоУмолчанию(ОписаниеОбъектаМетаданных, ЗначениеИсточника);
ОписаниеОбъектаМетаданных,
ЗначениеИсточника
);
СведенияРеквизитовОбъекта = СведенияОРеквизитахОбъектов.Получить(ИмяКолонки); СведенияРеквизитовОбъекта = СведенияОРеквизитахОбъектов.Получить(ИмяКолонки);
Если СведенияРеквизитовОбъекта <> Неопределено Тогда Если СведенияРеквизитовОбъекта <> Неопределено Тогда
ДополнитьЗначенияРеквизитовОбъекта( ДополнитьЗначенияРеквизитовОбъекта(ЗначенияРеквизитовОбъекта,
ЗначенияРеквизитовОбъекта, СведенияРеквизитовОбъекта,
СведенияРеквизитовОбъекта, Источник,
Источник, КэшЗначений,
КэшЗначений, ЗаменяемыеЗначения,
ЗаменяемыеЗначения, ПараметрыСозданияОбъектовМетаданных);
ПараметрыСозданияОбъектовМетаданных
);
КонецЕсли; КонецЕсли;
ЗначениеТаблицы = ЗначениеОбъектаМетаданных( ЗначениеТаблицы = ЗначениеОбъектаМетаданных(ОписаниеОбъектаМетаданных,
ОписаниеОбъектаМетаданных, Менеджер,
Менеджер, ЗначенияРеквизитовОбъекта,
ЗначенияРеквизитовОбъекта, ПараметрыСозданияОбъектовМетаданных);
ПараметрыСозданияОбъектовМетаданных
);
КэшЗначений[Менеджер].Вставить(ЗначениеИсточника, ЗначениеТаблицы); КэшЗначений[Менеджер].Вставить(ЗначениеИсточника, ЗначениеТаблицы);
КонецЕсли; КонецЕсли;
Иначе Иначе
ЗначениеТаблицы = ПривестиЗначение(ОписаниеТипа, ЗначениеИсточника); ЗначениеТаблицы = ПривестиЗначение(ОписаниеТипа, ЗначениеИсточника);
КонецЕсли; КонецЕсли;
НоваяСтрока[ИмяКолонки] = ЗначениеТаблицы; НоваяСтрока[ИмяКолонки] = ЗначениеТаблицы;
КонецЦикла; КонецЦикла;
КонецЦикла; КонецЦикла;
Возврат ТаблицаЗначений; Возврат ТаблицаЗначений;
КонецФункции КонецФункции
// Возвращает фиксированную структуру параметров для заполнения таблицы значений // Возвращает фиксированную структуру параметров для заполнения таблицы значений
// Параметры: // Параметры:
// СозданиеОбъектовМетаданных - Структура: // СозданиеОбъектовМетаданных - Структура:
// * ФикцияОбязательныхПолей - Булево // * ФикцияОбязательныхПолей - Булево
// * ОбменДаннымиЗагрузка - Булево // * ОбменДаннымиЗагрузка - Булево
// Возвращаемое значение: // Возвращаемое значение:
// ФиксированнаяСтруктура: // ФиксированнаяСтруктура:
// * СозданиеОбъектовМетаданных - ФиксированнаяСтруктура: // * СозданиеОбъектовМетаданных - ФиксированнаяСтруктура:
// * ФикцияОбязательныхПолей - Булево, // * ФикцияОбязательныхПолей - Булево
// * ОбменДаннымиЗагрузка - Булево // * ОбменДаннымиЗагрузка - Булево
Функция ПараметрыЗаполненияТаблицыЗначений(СозданиеОбъектовМетаданных = Неопределено) Экспорт Функция ПараметрыЗаполненияТаблицыЗначений(СозданиеОбъектовМетаданных = Неопределено) Экспорт
ФикцияОбязательныхПолей = Ложь; ФикцияОбязательныхПолей = Ложь;
ОбменДаннымиЗагрузка = Истина; ОбменДаннымиЗагрузка = Истина;
Если ТипЗнч(СозданиеОбъектовМетаданных) = Тип("Структура") Тогда Если ТипЗнч(СозданиеОбъектовМетаданных) = Тип("Структура") Тогда
ЮТОбщий.ЗначениеСтруктуры(СозданиеОбъектовМетаданных, "ФикцияОбязательныхПолей", ФикцияОбязательныхПолей); ФикцияОбязательныхПолей = ЮТОбщий.ЗначениеСтруктуры(СозданиеОбъектовМетаданных, "ФикцияОбязательныхПолей", ФикцияОбязательныхПолей);
ЮТОбщий.ЗначениеСтруктуры(СозданиеОбъектовМетаданных, "ОбменДаннымиЗагрузка", ОбменДаннымиЗагрузка); ОбменДаннымиЗагрузка = ЮТОбщий.ЗначениеСтруктуры(СозданиеОбъектовМетаданных, "ОбменДаннымиЗагрузка", ОбменДаннымиЗагрузка);
КонецЕсли; КонецЕсли;
СозданиеОбъектовМетаданных = Новый Структура; СозданиеОбъектовМетаданных = Новый Структура;
СозданиеОбъектовМетаданных.Вставить("ФикцияОбязательныхПолей", ФикцияОбязательныхПолей); СозданиеОбъектовМетаданных.Вставить("ФикцияОбязательныхПолей", ФикцияОбязательныхПолей);
@ -176,14 +173,14 @@
ОжидаемыеКолонки = ЮТОбщий.ВыгрузитьЗначения(ОписанияТипов, "Ключ"); ОжидаемыеКолонки = ЮТОбщий.ВыгрузитьЗначения(ОписанияТипов, "Ключ");
Для Каждого ИмяКолонки Из ОжидаемыеКолонки Цикл Для Каждого ИмяКолонки Из ОжидаемыеКолонки Цикл
Если ИменаКолонок.Найти(ИмяКолонки) = Неопределено Тогда Если ИменаКолонок.Найти(ИмяКолонки) = Неопределено Тогда
НедостающиеКолонки.Добавить(ИмяКолонки); НедостающиеКолонки.Добавить(ИмяКолонки);
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Возврат НедостающиеКолонки; Возврат НедостающиеКолонки;
КонецФункции КонецФункции
Функция СведенияОбъектовМетаданныхИзОписанийТипов(ИменаКолонок, ОписанияТипов) Функция СведенияОбъектовМетаданныхИзОписанийТипов(ИменаКолонок, ОписанияТипов)
МенеджерыЗначений = Новый Соответствие; МенеджерыЗначений = Новый Соответствие;
@ -196,16 +193,16 @@
Если ОписаниеОбъектаМетаданных = Неопределено Тогда Если ОписаниеОбъектаМетаданных = Неопределено Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
Менеджер = МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных); Менеджер = МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных);
Сведения = Новый Структура; Сведения = Новый Структура;
Сведения.Вставить("Менеджер", Менеджер); Сведения.Вставить("Менеджер", Менеджер);
Сведения.Вставить("ОписаниеОбъектаМетаданных", ОписаниеОбъектаМетаданных); Сведения.Вставить("ОписаниеОбъектаМетаданных", ОписаниеОбъектаМетаданных);
МенеджерыЗначений.Вставить(ИмяКолонки, Сведения); МенеджерыЗначений.Вставить(ИмяКолонки, Сведения);
КонецЦикла; КонецЦикла;
Возврат МенеджерыЗначений; Возврат МенеджерыЗначений;
@ -225,17 +222,17 @@
Если ОбъектМетаданных = Неопределено Тогда Если ОбъектМетаданных = Неопределено Тогда
Возврат ОписаниеОбъектаМетаданных; Возврат ОписаниеОбъектаМетаданных;
КонецЕсли; КонецЕсли;
Если Метаданные.Перечисления.Содержит(ОбъектМетаданных) Тогда Если Метаданные.Перечисления.Содержит(ОбъектМетаданных) Тогда
ОписаниеОбъектаМетаданных = Новый Структура; ОписаниеОбъектаМетаданных = Новый Структура;
ОписаниеОбъектаМетаданных.Вставить("Имя", ОбъектМетаданных.Имя); ОписаниеОбъектаМетаданных.Вставить("Имя", ОбъектМетаданных.Имя);
Иначе Иначе
ОписаниеОбъектаМетаданных = ЮтМетаданные.ОписаниеОбъектМетаданных(ОбъектМетаданных.ПолноеИмя()); ОписаниеОбъектаМетаданных = ЮтМетаданные.ОписаниеОбъектМетаданных(ОбъектМетаданных.ПолноеИмя());
КонецЕсли; КонецЕсли;
Возврат ОписаниеОбъектаМетаданных; Возврат ОписаниеОбъектаМетаданных;
КонецФункции КонецФункции
Функция ТипИзОписанияТипа(ОписаниеТипа) Функция ТипИзОписанияТипа(ОписаниеТипа)
@ -243,18 +240,15 @@
Если ОписаниеТипа = Неопределено Тогда Если ОписаниеТипа = Неопределено Тогда
Возврат Неопределено; Возврат Неопределено;
КонецЕсли; КонецЕсли;
Если ТипЗнч(ОписаниеТипа) <> Тип("ОписаниеТипов") Или Не ЗначениеЗаполнено(ОписаниеТипа.Типы()) Тогда Если ТипЗнч(ОписаниеТипа) <> Тип("ОписаниеТипов") Или Не ЗначениеЗаполнено(ОписаниеТипа.Типы()) Тогда
Вызватьисключение ЮТОбщий.НеподдерживаемыйПараметрМетода( ВызватьИсключение ЮТОбщий.НеподдерживаемыйПараметрМетода("ЮТТестовыеДанные_ТаблицыЗначений.ТипИзОписанияТипа", ОписаниеТипа);
"ЮТТестовыеДанные_ТаблицыЗначений.ТипИзОписанияТипа",
ОписаниеТипа
);
КонецЕсли; КонецЕсли;
Возврат ОписаниеТипа.Типы()[0]; Возврат ОписаниеТипа.Типы()[0];
КонецФункции КонецФункции
Функция МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных) Функция МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных)
Если Метаданные.Перечисления.Найти(ОписаниеОбъектаМетаданных.Имя) <> Неопределено Тогда Если Метаданные.Перечисления.Найти(ОписаниеОбъектаМетаданных.Имя) <> Неопределено Тогда
@ -273,7 +267,7 @@
Возврат Менеджер; Возврат Менеджер;
КонецФункции КонецФункции
Функция СведенияРеквизитовОбъектовМетаданных(ИменаКолонок, СведенияОбъектовМетаданных) Функция СведенияРеквизитовОбъектовМетаданных(ИменаКолонок, СведенияОбъектовМетаданных)
ПодстрокиДляЗамены = ЮТТестовыеДанныеСлужебный.ПодстрокиДляЗаменыВИменахСвойств(); ПодстрокиДляЗамены = ЮТТестовыеДанныеСлужебный.ПодстрокиДляЗаменыВИменахСвойств();
@ -288,43 +282,43 @@
Если СведенияОбъектаМетаданных = Неопределено Тогда Если СведенияОбъектаМетаданных = Неопределено Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
ОписаниеОбъектаМетаданных = СведенияОбъектаМетаданных.ОписаниеОбъектаМетаданных; ОписаниеОбъектаМетаданных = СведенияОбъектаМетаданных.ОписаниеОбъектаМетаданных;
МассивСведений = Новый Массив; МассивСведений = Новый Массив;
Для Каждого ИмяКолонки Из ИменаКолонок Цикл Для Каждого ИмяКолонки Из ИменаКолонок Цикл
Если СтрНайти(ИмяКолонки, ИмяКолонкиОбъекта) = 0 Или СтрНайти(ИмяКолонки, ПодстрокаЗаменыТочки) = 0 Тогда Если СтрНайти(ИмяКолонки, ИмяКолонкиОбъекта) = 0 Или СтрНайти(ИмяКолонки, ПодстрокаЗаменыТочки) = 0 Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
Массив = СтрРазделить(ИмяКолонки, ПодстрокаЗаменыТочки, Ложь); Массив = СтрРазделить(ИмяКолонки, ПодстрокаЗаменыТочки, Ложь);
Если Массив.Количество() <> 2 Тогда Если Массив.Количество() <> 2 Тогда
Продолжить; Продолжить;
Иначе Иначе
РеквизитОбъекта = Неопределено; РеквизитОбъекта = Неопределено;
ОписаниеОбъектаМетаданных.Реквизиты.Свойство(Массив[1], РеквизитОбъекта); ОписаниеОбъектаМетаданных.Реквизиты.Свойство(Массив[1], РеквизитОбъекта);
Если РеквизитОбъекта <> Неопределено Тогда Если РеквизитОбъекта <> Неопределено Тогда
Сведения = Новый Структура; Сведения = Новый Структура;
Сведения.Вставить("Идентификатор", ИмяКолонки); Сведения.Вставить("Идентификатор", ИмяКолонки);
Сведения.Вставить("ИмяРеквизита", РеквизитОбъекта.Имя); Сведения.Вставить("ИмяРеквизита", РеквизитОбъекта.Имя);
Сведения.Вставить("ОписаниеТипа", РеквизитОбъекта.Тип); Сведения.Вставить("ОписаниеТипа", РеквизитОбъекта.Тип);
МассивСведений.Добавить(Сведения); МассивСведений.Добавить(Сведения);
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Если ЗначениеЗаполнено(МассивСведений) Тогда Если ЗначениеЗаполнено(МассивСведений) Тогда
СведенияРеквизитовОбъекта.Вставить(ИмяКолонкиОбъекта, МассивСведений); СведенияРеквизитовОбъекта.Вставить(ИмяКолонкиОбъекта, МассивСведений);
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Возврат СведенияРеквизитовОбъекта; Возврат СведенияРеквизитовОбъекта;
КонецФункции КонецФункции
Функция ИнициализированнаяТаблицаЗначений(ИменаКолонок, ОписанияТипов) Функция ИнициализированнаяТаблицаЗначений(ИменаКолонок, ОписанияТипов)
@ -338,11 +332,11 @@
Если ОписаниеТипаКолонки = Неопределено Тогда Если ОписаниеТипаКолонки = Неопределено Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
ТаблицаЗначений.Колонки.Добавить(ИмяКолонки, ОписаниеТипаКолонки); ТаблицаЗначений.Колонки.Добавить(ИмяКолонки, ОписаниеТипаКолонки);
КонецЦикла; КонецЦикла;
Возврат ТаблицаЗначений; Возврат ТаблицаЗначений;
КонецФункции КонецФункции
@ -352,20 +346,20 @@
Если Не ЗначениеЗаполнено(КэшЗначений) Тогда Если Не ЗначениеЗаполнено(КэшЗначений) Тогда
КэшЗначений = Новый Соответствие; КэшЗначений = Новый Соответствие;
КонецЕсли; КонецЕсли;
Для Каждого ИмяКолонки Из ИменаКолонок Цикл Для Каждого ИмяКолонки Из ИменаКолонок Цикл
СведенияОбъекта = СведенияОбъектовМетаданных.Получить(ИмяКолонки); СведенияОбъекта = СведенияОбъектовМетаданных.Получить(ИмяКолонки);
Если СведенияОбъекта = Неопределено Тогда Если СведенияОбъекта = Неопределено Тогда
Продолжить; Продолжить;
КонецЕсли; КонецЕсли;
Менеджер = СведенияОбъекта.Менеджер; Менеджер = СведенияОбъекта.Менеджер;
Если КэшЗначений.Получить(Менеджер) = Неопределено Тогда Если КэшЗначений.Получить(Менеджер) = Неопределено Тогда
КэшЗначений.Вставить(Менеджер, Новый Соответствие); КэшЗначений.Вставить(Менеджер, Новый Соответствие);
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
КонецПроцедуры КонецПроцедуры
@ -378,8 +372,8 @@
ИначеЕсли ОписаниеОбъектаМетаданных.ОписаниеТипа.Имя = "Справочник" Тогда ИначеЕсли ОписаниеОбъектаМетаданных.ОписаниеТипа.Имя = "Справочник" Тогда
ИмяРеквизита = "Наименование"; ИмяРеквизита = "Наименование";
Если ОписаниеОбъектаМетаданных.Реквизиты.Свойство(ИмяРеквизита) = Неопределено Тогда Если ОписаниеОбъектаМетаданных.Реквизиты.Свойство(ИмяРеквизита) = Неопределено Тогда
ИмяРеквизита = "Код"; ИмяРеквизита = "Код";
КонецЕсли; КонецЕсли;
ЗначенияРеквизитовПоУмолчанию.Вставить(ИмяРеквизита, Значение); ЗначенияРеквизитовПоУмолчанию.Вставить(ИмяРеквизита, Значение);
КонецЕсли; КонецЕсли;
@ -387,9 +381,13 @@
КонецФункции КонецФункции
Функция ДополнитьЗначенияРеквизитовОбъекта(Результат, СведенияРеквизитов, Источник, КешЗначений, ЗаменяемыеЗначения, Функция ДополнитьЗначенияРеквизитовОбъекта(Результат,
ПараметрыСозданияОбъектовМетаданных) СведенияРеквизитов,
Источник,
КешЗначений,
ЗаменяемыеЗначения,
ПараметрыСозданияОбъектовМетаданных)
Для Каждого Сведения Из СведенияРеквизитов Цикл Для Каждого Сведения Из СведенияРеквизитов Цикл
ЗначениеИсточника = Источник[Сведения.Идентификатор]; ЗначениеИсточника = Источник[Сведения.Идентификатор];
@ -397,50 +395,50 @@
Если ЗначениеЗаполнено(ЗначениеИсточника) Тогда Если ЗначениеЗаполнено(ЗначениеИсточника) Тогда
ЗаменяемоеЗначение = ЗаменяемыеЗначения.Получить(ЗначениеИсточника); ЗаменяемоеЗначение = ЗаменяемыеЗначения.Получить(ЗначениеИсточника);
ОписаниеОбъектаМетаданных = ОписаниеОбъектМетаданныхПоОписаниюТипа(Сведения.ОписаниеТипа); ОписаниеОбъектаМетаданных = ОписаниеОбъектМетаданныхПоОписаниюТипа(Сведения.ОписаниеТипа);
Если ЗаменяемоеЗначение <> Неопределено Тогда Если ЗаменяемоеЗначение <> Неопределено Тогда
ЗначениеРеквизита = ЗаменяемоеЗначение; ЗначениеРеквизита = ЗаменяемоеЗначение;
ИначеЕсли ОписаниеОбъектаМетаданных = Неопределено Тогда ИначеЕсли ОписаниеОбъектаМетаданных = Неопределено Тогда
ЗначениеРеквизита = Сведения.ОписаниеТипа.ПривестиЗначение(ЗначениеИсточника); ЗначениеРеквизита = Сведения.ОписаниеТипа.ПривестиЗначение(ЗначениеИсточника);
Иначе
Менеджер = МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных); Иначе
Менеджер = МенеджерОбъектаИзОписанияОбъектаМетаданных(ОписаниеОбъектаМетаданных);
ЗначенияМенеджера = КешЗначений[Менеджер]; ЗначенияМенеджера = КешЗначений[Менеджер];
Если ЗначенияМенеджера = Неопределено Тогда Если ЗначенияМенеджера = Неопределено Тогда
ЗначенияМенеджера = Новый Соответствие; ЗначенияМенеджера = Новый Соответствие;
КешЗначений.Вставить(Менеджер, ЗначенияМенеджера); КешЗначений.Вставить(Менеджер, ЗначенияМенеджера);
КонецЕсли; КонецЕсли;
ЗначениеРеквизита = ЗначенияМенеджера.Получить(ЗначениеИсточника); ЗначениеРеквизита = ЗначенияМенеджера.Получить(ЗначениеИсточника);
Если ЗначениеРеквизита = Неопределено Тогда Если ЗначениеРеквизита = Неопределено Тогда
ЗначенияРеквизитовОбъекта = ПолучитьЗначенияРеквизитовПоУмолчанию( ЗначенияРеквизитовОбъекта = ПолучитьЗначенияРеквизитовПоУмолчанию(
ОписаниеОбъектаМетаданных, ОписаниеОбъектаМетаданных,
ЗначениеИсточника ЗначениеИсточника
); );
ЗначениеРеквизита = ЗначениеОбъектаМетаданных( ЗначениеРеквизита = ЗначениеОбъектаМетаданных(
ОписаниеОбъектаМетаданных, ОписаниеОбъектаМетаданных,
Менеджер, Менеджер,
ЗначенияРеквизитовОбъекта, ЗначенияРеквизитовОбъекта,
ПараметрыСозданияОбъектовМетаданных ПараметрыСозданияОбъектовМетаданных
); );
КешЗначений[Менеджер].Вставить(ЗначениеИсточника, ЗначениеРеквизита); КешЗначений[Менеджер].Вставить(ЗначениеИсточника, ЗначениеРеквизита);
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
Иначе Иначе
ЗначениеРеквизита = Неопределено; ЗначениеРеквизита = Неопределено;
КонецЕсли; КонецЕсли;
@ -454,27 +452,27 @@
Функция ЗначениеОбъектаМетаданных(ОписаниеОбъектаМетаданных, Менеджер, ЗначенияРеквизитов, Параметры) Функция ЗначениеОбъектаМетаданных(ОписаниеОбъектаМетаданных, Менеджер, ЗначенияРеквизитов, Параметры)
Если Метаданные.Перечисления.Найти(ОписаниеОбъектаМетаданных.Имя) <> Неопределено Тогда Если Метаданные.Перечисления.Найти(ОписаниеОбъектаМетаданных.Имя) <> Неопределено Тогда
Значение = Менеджер[ЗначенияРеквизитов.Значение]; Значение = Менеджер[ЗначенияРеквизитов.Значение];
Иначе Иначе
КонструкторОбъекта = ЮТест.Данные().КонструкторОбъекта(Менеджер); КонструкторОбъекта = ЮТест.Данные().КонструкторОбъекта(Менеджер);
Для Каждого ДанныеЗначения Из ЗначенияРеквизитов Цикл Для Каждого ДанныеЗначения Из ЗначенияРеквизитов Цикл
КонструкторОбъекта.Установить(ДанныеЗначения.Ключ, ДанныеЗначения.Значение); КонструкторОбъекта.Установить(ДанныеЗначения.Ключ, ДанныеЗначения.Значение);
КонецЦикла; КонецЦикла;
Если Параметры.ФикцияОбязательныхПолей Тогда Если Параметры.ФикцияОбязательныхПолей Тогда
КонструкторОбъекта.ФикцияОбязательныхПолей(); КонструкторОбъекта.ФикцияОбязательныхПолей();
КонецЕсли; КонецЕсли;
Значение = КонструкторОбъекта.Записать(, Параметры.ОбменДаннымиЗагрузка); Значение = КонструкторОбъекта.Записать(, Параметры.ОбменДаннымиЗагрузка);
КонецЕсли; КонецЕсли;
Возврат Значение; Возврат Значение;
КонецФункции КонецФункции
Функция ПривестиЗначение(ОписаниеТипа, Значение) Функция ПривестиЗначение(ОписаниеТипа, Значение)
@ -482,8 +480,8 @@
Если ОписаниеТипа.СодержитТип(Тип("Дата")) Тогда Если ОписаниеТипа.СодержитТип(Тип("Дата")) Тогда
Результат = ПривестиЗначениеКДате(ОписаниеТипа, Значение); Результат = ПривестиЗначениеКДате(ОписаниеТипа, Значение);
ИначеЕсли ОписаниеТипа.СодержитТип(Тип("Число")) Тогда ИначеЕсли ОписаниеТипа.СодержитТип(Тип("Число")) Тогда
Результат = ПривестиЗначениеКЧислу(ОписаниеТипа, Значение); Результат = ПривестиЗначениеКЧислу(ОписаниеТипа, Значение);
Иначе Иначе
Результат = ОписаниеТипа.ПривестиЗначение(Значение); Результат = ОписаниеТипа.ПривестиЗначение(Значение);
КонецЕсли; КонецЕсли;
@ -509,7 +507,7 @@
Если ЗначениеЗаполнено(СтрокаДаты) Тогда Если ЗначениеЗаполнено(СтрокаДаты) Тогда
Прервать; Прервать;
КонецЕсли; КонецЕсли;
МассивЧастейДат = СтрРазделить(Значение, Разделитель); МассивЧастейДат = СтрРазделить(Значение, Разделитель);
Если МассивЧастейДат.Количество() = 3 Тогда Если МассивЧастейДат.Количество() = 3 Тогда
Если СтрДлина(МассивЧастейДат[2]) = 4 Тогда Если СтрДлина(МассивЧастейДат[2]) = 4 Тогда
@ -517,12 +515,12 @@
ИначеЕсли СтрДлина(МассивЧастейДат[0]) = 4 Тогда ИначеЕсли СтрДлина(МассивЧастейДат[0]) = 4 Тогда
СтрокаДаты = МассивЧастейДат[0] + МассивЧастейДат[1] + МассивЧастейДат[2]; СтрокаДаты = МассивЧастейДат[0] + МассивЧастейДат[1] + МассивЧастейДат[2];
Иначе Иначе
СтрокаДаты = "20" + МассивЧастейДат[2] + МассивЧастейДат[1] + МассивЧастейДат[0]; СтрокаДаты = "20" + МассивЧастейДат[2] + МассивЧастейДат[1] + МассивЧастейДат[0];
КонецЕсли; КонецЕсли;
КонецЕсли; КонецЕсли;
КонецЦикла; КонецЦикла;
Результат = ОписаниеТипа.ПривестиЗначение(СтрокаДаты); Результат = ОписаниеТипа.ПривестиЗначение(СтрокаДаты);
Возврат Результат; Возврат Результат;
@ -535,7 +533,7 @@
Если ЗначениеЗаполнено(Результат) Тогда Если ЗначениеЗаполнено(Результат) Тогда
Возврат Результат; Возврат Результат;
КонецЕсли; КонецЕсли;
Значение = СтрЗаменить(Значение, " ", ""); Значение = СтрЗаменить(Значение, " ", "");
Результат = ОписаниеТипа.ПривестиЗначение(Значение); Результат = ОписаниеТипа.ПривестиЗначение(Значение);

2
exts/yaxunit/src/CommonModules/ЮТТестовыеДанныеСлужебный/Module.bsl
View File

@ -123,7 +123,7 @@
ЗаменяемыеПодстроки = Новый Соответствие; ЗаменяемыеПодстроки = Новый Соответствие;
ЗаменяемыеПодстроки.Вставить(".", "_tchk_"); ЗаменяемыеПодстроки.Вставить(".", "_tchk_");
Возврат ЗаменяемыеПодстроки; Возврат ЗаменяемыеПодстроки;
КонецФункции КонецФункции

1
exts/yaxunit/src/Configuration/Configuration.mdo
View File

@ -87,6 +87,7 @@
<commonModules>CommonModule.ЮТПодражательСлужебный</commonModules> <commonModules>CommonModule.ЮТПодражательСлужебный</commonModules>
<commonModules>CommonModule.ЮТПредикаты</commonModules> <commonModules>CommonModule.ЮТПредикаты</commonModules>
<commonModules>CommonModule.ЮТПредикатыКлиентСервер</commonModules> <commonModules>CommonModule.ЮТПредикатыКлиентСервер</commonModules>
<commonModules>CommonModule.ЮТПреобразования</commonModules>
<commonModules>CommonModule.ЮТРасширения</commonModules> <commonModules>CommonModule.ЮТРасширения</commonModules>
<commonModules>CommonModule.ЮТРегистрацияОшибок</commonModules> <commonModules>CommonModule.ЮТРегистрацияОшибок</commonModules>
<commonModules>CommonModule.ЮТСобытия</commonModules> <commonModules>CommonModule.ЮТСобытия</commonModules>