feat(data): конструктор движений документа

bia-technologies · Sep 21, 2024 · 9bcb1a8 · 9bcb1a8
1 parent c970efe
commit 9bcb1a8
Show file tree

Hide file tree

Showing 14 changed files with 469 additions and 14 deletions.
diff --git a/...Modules/ЮТКонструкторКоллекций/Module.bsl → ...КоллекцийСлужебныйКлиентСервер/Module.bsl b/...Modules/ЮТКонструкторКоллекций/Module.bsl → ...КоллекцийСлужебныйКлиентСервер/Module.bsl
@@ -1,6 +1,6 @@
 //©///////////////////////////////////////////////////////////////////////////©//
 //
-//  Copyright 2021-2022 BIA-Technologies Limited Liability Company
+//  Copyright 2021-2024 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.
@@ -39,9 +39,9 @@
 		ДобавитьКолонку(Элемент.Ключ);
 	КонецЦикла;
 
-	ЮТКонтекст.УстановитьЗначениеКонтекста(КлючКонтекста(), ОписаниеКоллекции);
+	ЮТКонтекстСлужебный.УстановитьЗначениеКонтекста(КлючКонтекста(), ОписаниеКоллекции);
 
-	Возврат ЮТКонструкторКоллекции;
+	Возврат ЮТКонструкторКоллекцийСлужебныйКлиентСервер;
 
 КонецФункции
 
@@ -54,7 +54,7 @@
 	ОписаниеКоллекции.Колонки.Добавить(ОписаниеКолонки);
 	ЮТОбщий.Инкремент(ОписаниеКоллекции.КоличествоРеквизитов);
 
-	Возврат ЮТКонструкторКоллекции;
+	Возврат ЮТКонструкторКоллекцийСлужебныйКлиентСервер;
 
 КонецФункции
 
@@ -133,7 +133,7 @@
 
 	ОписаниеКоллекции.Данные.Добавить(Запись);
 
-	Возврат ЮТКонструкторКоллекции;
+	Возврат ЮТКонструкторКоллекцийСлужебныйКлиентСервер;
 
 КонецФункции
 
@@ -160,7 +160,7 @@
 //  см. НовыйОписаниеКоллекции
 Функция ОписаниеКоллекции()
 
-	Возврат ЮТКонтекст.ЗначениеКонтекста(КлючКонтекста());
+	Возврат ЮТКонтекстСлужебный.ЗначениеКонтекста(КлючКонтекста());
 
 КонецФункции
 

diff --git a/...укторКоллекций/ЮТКонструкторКоллекций.mdo → ...трукторКоллекцийСлужебныйКлиентСервер.mdo b/...укторКоллекций/ЮТКонструкторКоллекций.mdo → ...трукторКоллекцийСлужебныйКлиентСервер.mdo
@@ -1,9 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <mdclass:CommonModule xmlns:mdclass="http://g5.1c.ru/v8/dt/metadata/mdclass" uuid="77eb74a9-f72f-4221-ae79-5ca4149f0e48">
-  <name>ЮТКонструкторКоллекций</name>
+  <name>ЮТКонструкторКоллекцийСлужебныйКлиентСервер</name>
   <synonym>
     <key>ru</key>
     <value>Конструктор коллекций</value>
   </synonym>
+  <clientManagedApplication>true</clientManagedApplication>
   <server>true</server>
+  <clientOrdinaryApplication>true</clientOrdinaryApplication>
 </mdclass:CommonModule>
diff --git a/exts/yaxunit/src/CommonModules/ЮТКонструкторТестовыхДанныхСлужебный/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТКонструкторТестовыхДанныхСлужебный/Module.bsl
@@ -171,7 +171,7 @@
 
 КонецФункции
 
-Функция ДанныеСтроки(Контекст) Экспорт
+Функция ДанныеСтрокиТабличнойЧасти(Контекст) Экспорт
 
 	Если ПустаяСтрока(Контекст.ТекущаяТабличнаяЧасть) Тогда
 		Возврат Неопределено;
@@ -187,6 +187,16 @@
 
 КонецФункции
 
+Функция ДанныеСтрокиКоллекции(Контекст) Экспорт
+
+	Если ЗначениеЗаполнено(Контекст.Данные) Тогда
+		Возврат Контекст.Данные[Контекст.Данные.ВГраница()];
+	Иначе
+		ВызватьИсключение "Сначала необходимо добавить строку";
+	КонецЕсли;
+
+КонецФункции
+
 Функция ДанныеОбъекта(Контекст) Экспорт
 
 	Возврат Контекст.Данные;
@@ -216,6 +226,22 @@
 
 КонецФункции
 
+Функция ИнициализироватьКонструкторДвижений(Документ, ИмяРегистра) Экспорт
+
+#Если Сервер Или ТолстыйКлиентОбычноеПриложение Тогда
+	Конструктор = Обработки.ЮТКонструкторДвижений.Создать();
+#Иначе
+	//@skip-check use-non-recommended-method
+	Конструктор = ПолучитьФорму("Обработка.ЮТКонструкторДвижений.Форма.КлиентскийКонструктор"); // BSLLS:GetFormMethod-off
+#КонецЕсли
+
+	//@skip-check unknown-method-property
+	Конструктор.Инициализировать(Документ, ИмяРегистра);
+
+	Возврат Конструктор;
+
+КонецФункции
+
 #КонецОбласти
 
 #Область СлужебныеПроцедурыИФункции
@@ -249,6 +275,18 @@
 
 КонецФункции
 
+Функция НовыйКонтекстКонструктораДвижений(Документ, ИмяРегистра) Экспорт
+
+	Контекст = Новый Структура();
+	Контекст.Вставить("Данные", Новый Массив());
+	Контекст.Вставить("Метаданные", ЮТМетаданные.ОписаниеРегистраДвиженийДокумента(Документ, ИмяРегистра));
+	Контекст.Вставить("ДополнительныеСвойства", Новый Структура());
+
+	//@skip-check constructor-function-return-section
+	Возврат Контекст;
+
+КонецФункции
+
 Функция ДанныеТабличнойЧасти(Контекст)
 
 	Возврат Контекст.Данные[Контекст.ТекущаяТабличнаяЧасть];
@@ -292,7 +330,7 @@
 
 Функция Реквизиты(Контекст)
 
-	Если ЗначениеЗаполнено(Контекст.ТекущаяТабличнаяЧасть) Тогда
+	Если ФокусНаТабличнойЧасти(Контекст) Тогда
 		Возврат Контекст.Метаданные.ТабличныеЧасти[Контекст.ТекущаяТабличнаяЧасть];
 	Иначе
 		Возврат Контекст.Метаданные.Реквизиты;
@@ -306,7 +344,7 @@
 
 	Если НЕ Реквизиты.Свойство(ИмяРеквизита) Тогда
 		ИмяОсновнойТаблицы = ЮТМетаданные.НормализованноеИмяТаблицы(Контекст.Метаданные);
-		Если ЗначениеЗаполнено(Контекст.ТекущаяТабличнаяЧасть) Тогда
+		Если ФокусНаТабличнойЧасти(Контекст) Тогда
 			Пояснение = СтрШаблон("Табличная часть `%1.%2` не содержит реквизит `%3`", ИмяОсновнойТаблицы, Контекст.ТекущаяТабличнаяЧасть, ИмяРеквизита);
 		Иначе
 			Пояснение = СтрШаблон("`%1` не содержит реквизит `%2`", ИмяОсновнойТаблицы, ИмяРеквизита);
@@ -321,8 +359,10 @@
 
 Функция ТекущаяЗапись(Контекст)
 
-	Если ЗначениеЗаполнено(Контекст.ТекущаяТабличнаяЧасть) Тогда
-		Возврат ДанныеСтроки(Контекст);
+	Если ФокусНаТабличнойЧасти(Контекст) Тогда
+		Возврат ДанныеСтрокиТабличнойЧасти(Контекст);
+	ИначеЕсли ЭтоКонструкторКоллекции(Контекст) Тогда
+		Возврат ДанныеСтрокиКоллекции(Контекст);
 	Иначе
 		Возврат Контекст.Данные;
 	КонецЕсли;
@@ -336,4 +376,16 @@
 
 КонецПроцедуры
 
+Функция ФокусНаТабличнойЧасти(Контекст)
+
+	Возврат Контекст.Свойство("ТекущаяТабличнаяЧасть") И ЗначениеЗаполнено(Контекст.ТекущаяТабличнаяЧасть);
+
+КонецФункции
+
+Функция ЭтоКонструкторКоллекции(Контекст)
+
+	Возврат ЮТТипыДанныхСлужебный.ЭтоМассива(ТипЗнч(Контекст.Данные));
+
+КонецФункции
+
 #КонецОбласти
diff --git a/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТМетаданные/Module.bsl
@@ -307,6 +307,18 @@
 
 КонецФункции
 
+Функция ОписаниеРегистраДвиженийДокумента(Документ, ИмяРегистра) Экспорт
+
+	ПолноеИмяРегистра = Неопределено;
+
+	Если НЕ РегистрыДвиженийДокумента(Документ).Свойство(ИмяРегистра, ПолноеИмяРегистра) Тогда
+		Возврат Неопределено;
+	КонецЕсли;
+
+	Возврат ОписаниеОбъектаМетаданных(ПолноеИмяРегистра);
+
+КонецФункции
+
 // Возвращает текущую версию тестового движка (YAxUnit)
 // 
 // Возвращаемое значение:

diff --git a/exts/yaxunit/src/CommonModules/ЮТТестовыеДанные/Module.bsl b/exts/yaxunit/src/CommonModules/ЮТТестовыеДанные/Module.bsl
@@ -855,6 +855,12 @@
 
 КонецФункции
 
+Функция КонструкторДвижений(Документ, ИмяРегистра) Экспорт
+
+	Возврат ЮТКонструкторТестовыхДанныхСлужебный.ИнициализироватьКонструкторДвижений(Документ, ИмяРегистра);
+
+КонецФункции
+
 #Если Сервер Или ТолстыйКлиентОбычноеПриложение  Тогда
 // Возвращает конструктор создания объекта XDTO.
 //

diff --git a/exts/yaxunit/src/Configuration/Configuration.mdo b/exts/yaxunit/src/Configuration/Configuration.mdo
@@ -87,8 +87,8 @@
   <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>
@@ -160,6 +160,7 @@
   <dataProcessors>DataProcessor.ЮТHTTPServiceRequest</dataProcessors>
   <dataProcessors>DataProcessor.ЮТHTTPСервисЗапрос</dataProcessors>
   <dataProcessors>DataProcessor.ЮТRecordSet</dataProcessors>
+  <dataProcessors>DataProcessor.ЮТКонструкторДвижений</dataProcessors>
   <dataProcessors>DataProcessor.ЮТКонструкторОбъектаXDTO</dataProcessors>
   <dataProcessors>DataProcessor.ЮТКонструкторТестовыхДанных</dataProcessors>
   <dataProcessors>DataProcessor.ЮТЮнитТесты</dataProcessors>