From 6b4bb7cf4d336b268abde0b4db2625f5bb8ab6e0 Mon Sep 17 00:00:00 2001 From: DenisUshakov <59319861+DenisUshakov@users.noreply.github.com> Date: Wed, 17 Apr 2024 12:00:10 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD?= =?UTF-8?q?=D0=B8=D0=B5=20=D0=B7=D0=B0=D0=BF=D1=80=D0=BE=D1=81=D0=B0=20?= =?UTF-8?q?=D0=B4=D0=B8=D0=BD=D0=B0=D0=BC=D0=B8=D1=87=D0=B5=D1=81=D0=BA?= =?UTF-8?q?=D0=BE=D0=B3=D0=BE=20=D1=81=D0=BF=D0=B8=D1=81=D0=BA=D0=B0=20?= =?UTF-8?q?=D1=87=D0=B5=D1=80=D0=B5=D0=B7=20=D1=81=D1=85=D0=B5=D0=BC=D1=83?= =?UTF-8?q?=20=D0=B7=D0=B0=D0=BF=D1=80=D0=BE=D1=81=D0=BE=D0=B2=20(#44)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * Добавлены изменения для удобной работы с запросом и пример --- .../Ext/Form.xml" | 12 +- .../Ext/Form/Module.bsl" | 11 + .../Ext/Module.bsl" | 2 +- ...0\270\321\201\321\202\320\270\320\272.xml" | 27 + .../Ext/Module.bsl" | 70 ++ ...1\200\320\276\321\201\320\276\320\262.xml" | 23 + .../Ext/Module.bsl" | 799 ++++++++++++++++++ src/Configuration.xml | 2 + 8 files changed, 939 insertions(+), 7 deletions(-) create mode 100644 "src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272.xml" create mode 100644 "src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272/Ext/Module.bsl" create mode 100644 "src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262.xml" create mode 100644 "src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" diff --git "a/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form.xml" "b/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form.xml" index 092a0ab3..637e33c9 100644 --- "a/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form.xml" +++ "b/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form.xml" @@ -17,6 +17,9 @@ + + ПриСозданииНаСервере + @@ -136,7 +139,6 @@ ПредопределенныеЗначения.ЭтоГруппа КАК ЭтоГруппа, ПредопределенныеЗначения.Код КАК Код, ПредопределенныеЗначения.Наименование КАК Наименование, - ПредопределенныеЗначения.ТипЗначения КАК ТипЗначения, ВЫБОР КОГДА ПредопределенныеЗначения.Пароль ТОГДА "Пароль" @@ -144,17 +146,15 @@ ТОГДА "Список" ИНАЧЕ ПредопределенныеЗначения.Значение КОНЕЦ КАК Значение, - ПредопределенныеЗначения.Пароль КАК Пароль, ПредопределенныеЗначения.СписокЗначений КАК СписокЗначений, ПредопределенныеЗначения.Комментарий КАК Комментарий, + ПредопределенныеЗначения.ИдентификаторНастройки КАК ИдентификаторНастройки, + ПредопределенныеЗначения.ТипЗначения КАК ТипЗначения, ПредопределенныеЗначения.ЗначенияЭлементов.( Ссылка КАК Ссылка, НомерСтроки КАК НомерСтроки, Значение КАК Значение - ) КАК ЗначенияЭлементов, - ПредопределенныеЗначения.Предопределенный КАК Предопределенный, - ПредопределенныеЗначения.ИмяПредопределенныхДанных КАК ИмяПредопределенныхДанных, - ПредопределенныеЗначения.ИдентификаторНастройки КАК ИдентификаторНастройки + ) КАК ЗначенияЭлементов ИЗ ПланВидовХарактеристик.__ПредопределенныеЗначения КАК ПредопределенныеЗначения</QueryText> <MainTable>ChartOfCharacteristicTypes.__ПредопределенныеЗначения</MainTable> diff --git "a/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form/Module.bsl" "b/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form/Module.bsl" index 25418e7a..151384e5 100644 --- "a/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form/Module.bsl" +++ "b/src/ChartsOfCharacteristicTypes/__\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Forms/\320\244\320\276\321\200\320\274\320\260\320\241\320\277\320\270\321\201\320\272\320\260/Ext/Form/Module.bsl" @@ -1,6 +1,13 @@  #Область ОбработчикиСобытийФормы +&НаСервере +Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка) + + __МодификацияКонфигурацииПереопределяемый.ПриСозданииНаСервере(ЭтотОбъект, Отказ, СтандартнаяОбработка); + +КонецПроцедуры + #КонецОбласти #Область ОбработчикиКомандФормы @@ -20,3 +27,7 @@ КонецПроцедуры #КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +#КонецОбласти diff --git "a/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271/Ext/Module.bsl" "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271/Ext/Module.bsl" index bb103f30..bd909175 100644 --- "a/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271/Ext/Module.bsl" +++ "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271/Ext/Module.bsl" @@ -547,7 +547,7 @@ ПостфиксМодуля = МассивПодимен.Получить(0); - //Удалим класс + // Удалим класс МассивПодимен.Удалить(0); Если КолЭлементов > 2 Тогда // Удалим слово "Форма" diff --git "a/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272.xml" "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272.xml" new file mode 100644 index 00000000..aab396ff --- /dev/null +++ "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272.xml" @@ -0,0 +1,27 @@ +<?xml version="1.0" encoding="UTF-8"?> +<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.16"> + <CommonModule uuid="000b4dd8-5d4b-4a83-9da6-eb27ab90262f"> + <Properties> + <Name>__МодификацияКонфигурацииПереопределяемыйПланВидовХарактеристик</Name> + <Synonym> + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Модификация конфигурации переопределяемый план видов характеристик</v8:content> + </v8:item> + <v8:item> + <v8:lang>en</v8:lang> + <v8:content>Configuration modification redefined document</v8:content> + </v8:item> + </Synonym> + <Comment/> + <Global>false</Global> + <ClientManagedApplication>false</ClientManagedApplication> + <Server>true</Server> + <ExternalConnection>true</ExternalConnection> + <ClientOrdinaryApplication>false</ClientOrdinaryApplication> + <ServerCall>false</ServerCall> + <Privileged>false</Privileged> + <ReturnValuesReuse>DontUse</ReturnValuesReuse> + </Properties> + </CommonModule> +</MetaDataObject> \ No newline at end of file diff --git "a/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272/Ext/Module.bsl" "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272/Ext/Module.bsl" new file mode 100644 index 00000000..c1ad650d --- /dev/null +++ "b/src/CommonModules/__\320\234\320\276\320\264\320\270\321\204\320\270\320\272\320\260\321\206\320\270\321\217\320\232\320\276\320\275\321\204\320\270\320\263\321\203\321\200\320\260\321\206\320\270\320\270\320\237\320\265\321\200\320\265\320\276\320\277\321\200\320\265\320\264\320\265\320\273\321\217\320\265\320\274\321\213\320\271\320\237\320\273\320\260\320\275\320\222\320\270\320\264\320\276\320\262\320\245\320\260\321\200\320\260\320\272\321\202\320\265\321\200\320\270\321\201\321\202\320\270\320\272/Ext/Module.bsl" @@ -0,0 +1,70 @@ +// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8, +// включая доработку типовых конфигураций. +// +// Copyright 2017-2024 First BIT 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. +// +// +// URL: https://github.com/firstBitSportivnaya/PSSL/ +// e-mail: ivssmirnov@1bit.com +// Версия: 1.0.0.1 +// +// Требования: платформа 1С версии 8.3.17 и выше + +//////////////////////////////////////////////////////////////////////////////// +// Формы (сервер): для серверных функций обработок форм планов видов характеристик + +#Область ПрограммныйИнтерфейс + +// Процедура носит ознакомительный характер по работе с подсистемой "__РаботаСФормами", не переносить. +// +Процедура __ПредопределенныеЗначенияФормаСпискаПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка, ДополнительныеПараметры = Неопределено) Экспорт + + #Область ДемоПример + + #Область РаботаСЭлементамиФормы + + Список = Форма.Список; + Если Список.ПроизвольныйЗапрос Тогда + Элементы = Форма.Элементы; + Список.ТекстЗапроса = __СхемыЗапросов.ДобавитьПолеВыборкиВЗапрос(Список.ТекстЗапроса, + "Пароль", "Пароль",,, Истина); + + Если ДополнительныеПараметры <> Неопределено И ДополнительныеПараметры.Свойство("Предопределенный") Тогда + ВыраженияПолей = Новый СписокЗначений; + ВыраженияПолей.Добавить("Предопределенный", "Предопределенный"); + ВыраженияПолей.Добавить("ИмяПредопределенныхДанных", "ИмяПредопределенныхДанных"); + Список.ТекстЗапроса = __СхемыЗапросов.ДобавитьПоляВыборкиВЗапрос(Список.ТекстЗапроса, + ВыраженияПолей,,,, Истина); + + __РаботаСФормами.СоздатьПоле(Форма, "Предопределенный", Элементы.Список, + "Предопределенный", 2, "Список.Предопределенный"); + __РаботаСФормами.СоздатьПоле(Форма, "ИмяПредопределенныхДанных", Элементы.Список, + "Имя предопределенных данных", 1, "Список.Предопределенный"); + КонецЕсли; + + __РаботаСФормами.СоздатьПоле(Форма, "Пароль", Элементы.Список, "Пароль", 2, "Список.Пароль"); + КонецЕсли; + + #КонецОбласти + + #КонецОбласти //ДемоПример + +КонецПроцедуры + +#КонецОбласти + +#Область СлужебныеПроцедурыИФункции + +#КонецОбласти \ No newline at end of file diff --git "a/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262.xml" "b/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262.xml" new file mode 100644 index 00000000..94de609a --- /dev/null +++ "b/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262.xml" @@ -0,0 +1,23 @@ +<?xml version="1.0" encoding="UTF-8"?> +<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.16"> + <CommonModule uuid="edefce4a-714f-474d-a936-75c3ab0712f5"> + <Properties> + <Name>__СхемыЗапросов</Name> + <Synonym> + <v8:item> + <v8:lang>ru</v8:lang> + <v8:content>Схемы запросов</v8:content> + </v8:item> + </Synonym> + <Comment/> + <Global>false</Global> + <ClientManagedApplication>false</ClientManagedApplication> + <Server>true</Server> + <ExternalConnection>true</ExternalConnection> + <ClientOrdinaryApplication>false</ClientOrdinaryApplication> + <ServerCall>false</ServerCall> + <Privileged>false</Privileged> + <ReturnValuesReuse>DontUse</ReturnValuesReuse> + </Properties> + </CommonModule> +</MetaDataObject> \ No newline at end of file diff --git "a/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" "b/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" new file mode 100644 index 00000000..f513c7d8 --- /dev/null +++ "b/src/CommonModules/__\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" @@ -0,0 +1,799 @@ +// Библиотека проектных подсистем для упрощения разработки архитектуры на 1С: Предприятие 8, +// включая доработку типовых конфигураций. +// +// Copyright 2017-2024 First BIT 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. +// +// +// URL: https://github.com/firstBitSportivnaya/PSSL/ +// e-mail: ivssmirnov@1bit.com +// Версия: 1.0.0.1 +// +// Требования: платформа 1С версии 8.3.17 и выше + +#Область ПрограммныйИнтерфейс + +// Возвращает схему запроса по значению переданного индекса в пакете запросов. +// +// Параметры: +// СхемаЗапроса - СхемаЗапроса - схема запроса. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// +// Возвращаемое значение: +// ЗапросВыбораСхемыЗапроса, ЗапросУничтоженияТаблицыСхемыЗапроса - измененный текст запроса или запрос. +// +Функция ЗапросПакетаЗапросов(Знач СхемаЗапроса, ИндексЗапросаВПакете = Неопределено) Экспорт + Перем ЗапросПакетаЗапросов; + + ПакетЗапросов = СхемаЗапроса.ПакетЗапросов; + + Если ИндексЗапросаВПакете = Неопределено Тогда + ИндексЗапросаВПакете = ПакетЗапросов.Количество() - 1; + КонецЕсли; + + ЗапросПакетаЗапросов = ПакетЗапросов.Получить(ИндексЗапросаВПакете); + + Возврат ЗапросПакетаЗапросов; +КонецФункции + +// Добавляет новое поле в конец секции выборки переданного запроса +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыражениеПоля - Строка - выражение поля для секции выборки. +// ПсевдонимПоля - Строка - псевдоним поля для секции выборки. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// РасширениеЯзыкаЗапросовСКД - Булево - Истина, когда требуется дополнительно добавить поле в секцию +// ВЫБРАТЬ расширения языка запросов СКД. +// ЗаменятьСуществующееПоле - Булево - Истина, когда требуется дополнительно добавить поле в запрос даже +// если оно было добавлено ранее. Прежнее поле будет удалено. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция ДобавитьПолеВыборкиВЗапрос(Знач Запрос, ВыражениеПоля, ПсевдонимПоля = "", Знач ИндексЗапросаВПакете = Неопределено, РасширениеЯзыкаЗапросовСКД = Ложь, ЗаменятьСуществующееПоле = Ложь) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить поля в запрос уничтожения таблицы.'; + |en = 'Cannot add fields to the table removal query.'"); + КонецЕсли; + + Колонки = ИзменяемыйЗапрос.Колонки; + // Проверка, что колонка была добавлена ранее + КолонкаПоПсевдониму = Колонки.Найти(ПсевдонимПоля); + КолонкаУжеДобавлена = (КолонкаПоПсевдониму <> Неопределено); + + Если КолонкаУжеДобавлена И ЗаменятьСуществующееПоле Тогда + Колонки.Удалить(Колонки.Индекс(КолонкаПоПсевдониму)); + КонецЕсли; + + Для ИндексОператора = 0 По ИзменяемыйЗапрос.Операторы.Количество() - 1 Цикл + + Для Каждого Источник Из ИзменяемыйЗапрос.Операторы[ИндексОператора].Источники Цикл + Если ТипЗнч(Источник.Источник) = Тип("ОписаниеВременнойТаблицыСхемыЗапроса") + И Не СтрНайти(ВыражениеПоля, Источник.Источник.Псевдоним) = 0 Тогда + ИмяПоля = СтрЗаменить(ВыражениеПоля, Источник.Источник.Псевдоним + ".", ""); + Источник.Источник.ДоступныеПоля.Добавить(ИмяПоля); + КонецЕсли; + КонецЦикла; + + ВыбираемыеПоля = ИзменяемыйЗапрос.Операторы[ИндексОператора].ВыбираемыеПоля; + + НовоеПоле = ВыбираемыеПоля.Добавить(ВыражениеПоля); + + НоваяКолонка = Колонки.Найти(НовоеПоле); + Если ЗначениеЗаполнено(ПсевдонимПоля) Тогда + НоваяКолонка.Псевдоним = ПсевдонимПоля; + КонецЕсли; + + // Только в первом запросе могут быть поля для СКД + Если ИндексОператора = 0 И РасширениеЯзыкаЗапросовСКД Тогда + ВыражениеСодержитПараметр = СтрНайти(ВыражениеПоля, "&"); + + Если ИзменяемыйЗапрос.ПоляВыбораКомпоновкиДанных.Найти(ПсевдонимПоля) = Неопределено Тогда + ПолеКД = ИзменяемыйЗапрос.ПоляВыбораКомпоновкиДанных.Добавить(ПсевдонимПоля); // ПолеВыбораКомпоновкиДанныхСхемыЗапроса - + ПолеКД.Псевдоним = ПсевдонимПоля; + ПолеКД.ИспользоватьРеквизиты = Не ВыражениеСодержитПараметр; + КонецЕсли; + КонецЕсли; + + КонецЦикла; + + // Удалим "мусор" схемы запроса + НомерПоля = 1; + ИскомаяПодстрока = " КАК Поле" + НомерПоля; + НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0; + Пока НайденоМусорноеПоле Цикл + ТекстЗапроса = СтрЗаменить(ТекстЗапроса, ИскомаяПодстрока, ""); + + НомерПоля = НомерПоля + 1; + ИскомаяПодстрока = " КАК Поле" + НомерПоля; + НайденоМусорноеПоле = СтрНайти(ТекстЗапроса, ИскомаяПодстрока) > 0; + КонецЦикла; + + НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = НовыйТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = НовыйТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Добавляет новое поле в конец секции выборки переданного запроса +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыраженияПолей - СписокЗначений - выражения полей для секции выборки. +// * Значение - Строка - Выражение поля для секции выборки +// * Представление - Строка - Псевдоним поля, может быть не заполнен +// ПсевдонимПоля - Строка - псевдоним поля для секции выборки. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// РасширениеЯзыкаЗапросовСКД - Булево - Истина, когда требуется дополнительно добавить поле в секцию +// ВЫБРАТЬ расширения языка запросов СКД. +// ЗаменятьСуществующееПоле - Булево - Истина, когда требуется дополнительно добавить поле в запрос даже +// если оно было добавлено ранее. Прежнее поле будет удалено. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция ДобавитьПоляВыборкиВЗапрос(Знач Запрос, ВыраженияПолей, Знач ИндексЗапросаВПакете = Неопределено, РасширениеЯзыкаЗапросовСКД = Ложь, ЗаменятьСуществующееПоле = Ложь) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить поля в запрос уничтожения таблицы.'; + |en = 'Cannot add fields to the table removal query.'"); + КонецЕсли; + + Колонки = ИзменяемыйЗапрос.Колонки; + + Для Каждого Выражение Из ВыраженияПолей Цикл + // Проверка, что колонка была добавлена ранее + КолонкаПоПсевдониму = Колонки.Найти(Выражение.Представление); + КолонкаУжеДобавлена = (КолонкаПоПсевдониму <> Неопределено); + + Если КолонкаУжеДобавлена И ЗаменятьСуществующееПоле Тогда + Колонки.Удалить(Колонки.Индекс(КолонкаПоПсевдониму)); + КонецЕсли; + КонецЦикла; + + Для ИндексОператора = 0 По ИзменяемыйЗапрос.Операторы.Количество() - 1 Цикл + + Для Каждого Источник Из ИзменяемыйЗапрос.Операторы[ИндексОператора].Источники Цикл + Для Каждого Выражение Из ВыраженияПолей Цикл + Если ТипЗнч(Источник.Источник) = Тип("ОписаниеВременнойТаблицыСхемыЗапроса") + И Не СтрНайти(Выражение.Значение, Источник.Источник.Псевдоним) = 0 Тогда + ИмяПоля = СтрЗаменить(Выражение.Значение, Источник.Источник.Псевдоним + ".", ""); + Источник.Источник.ДоступныеПоля.Добавить(ИмяПоля); + КонецЕсли; + КонецЦикла; + КонецЦикла; + + ВыбираемыеПоля = ИзменяемыйЗапрос.Операторы[ИндексОператора].ВыбираемыеПоля; + + Для Каждого Выражение Из ВыраженияПолей Цикл + НовоеПоле = ВыбираемыеПоля.Добавить(Выражение.Значение); + + НоваяКолонка = Колонки.Найти(НовоеПоле); + Если ЗначениеЗаполнено(Выражение.Представление) Тогда + НоваяКолонка.Псевдоним = Выражение.Представление; + КонецЕсли; + КонецЦикла; + + // Только в первом запросе могут быть поля для СКД + Если ИндексОператора = 0 И РасширениеЯзыкаЗапросовСКД Тогда + Для Каждого Выражение Из ВыраженияПолей Цикл + ВыражениеСодержитПараметр = СтрНайти(Выражение.Значение, "&"); + + Если ИзменяемыйЗапрос.ПоляВыбораКомпоновкиДанных.Найти(Выражение.Представление) = Неопределено Тогда + ПолеКД = ИзменяемыйЗапрос.ПоляВыбораКомпоновкиДанных.Добавить(Выражение.Представление); // ПолеВыбораКомпоновкиДанныхСхемыЗапроса - + ПолеКД.Псевдоним = Выражение.Представление; + ПолеКД.ИспользоватьРеквизиты = Не ВыражениеСодержитПараметр; + КонецЕсли; + КонецЦикла; + КонецЕсли; + + КонецЦикла; + + НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + // Удалим "мусор" схемы запроса + НомерПоля = 1; + ИскомаяПодстрока = " КАК Поле" + НомерПоля; + НайденоМусорноеПоле = СтрНайти(НовыйТекстЗапроса, ИскомаяПодстрока) > 0; + Пока НайденоМусорноеПоле Цикл + НовыйТекстЗапроса = СтрЗаменить(НовыйТекстЗапроса, ИскомаяПодстрока, ""); + + НомерПоля = НомерПоля + 1; + ИскомаяПодстрока = " КАК Поле" + НомерПоля; + НайденоМусорноеПоле = СтрНайти(НовыйТекстЗапроса, ИскомаяПодстрока) > 0; + КонецЦикла; + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = НовыйТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = НовыйТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Устанавливает в секцию ВЫБРАТЬ ключевые слова "ПЕРВЫЕ N". +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// КоличествоПолучаемыхЗаписей - Число - количество первых записей, которые необходимо выбрать. +// - Неопределено - ключевые слова "ПЕРВЫЕ N" будут исключены из секции ВЫБРАТЬ. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция УстановитьКоличествоПолучаемыхЗаписей(Знач Запрос, Знач КоличествоПолучаемыхЗаписей, Знач ИндексЗапросаВПакете = Неопределено) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить количество выбираемых записей в запрос уничтожения таблицы.'; + |en = 'Cannot add the number of selected entries to the table removal query.'"); + КонецЕсли; + + ОператорВыбрать = ИзменяемыйЗапрос.Операторы[0]; + + ОператорВыбрать.КоличествоПолучаемыхЗаписей = КоличествоПолучаемыхЗаписей; + + ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = ТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = ТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Устанавливает в секцию ВЫБРАТЬ ключевое слово "РАЗРЕШЕННЫЕ". +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыбиратьРазрешенные - Булево - признак, выбирать ли только разрешенные записи. +// Истина - будет добавлено ключевое слово "РАЗРЕШЕННЫЕ" в секцию ВЫБРАТЬ. +// Ложь - будет исключено ключевое слово "РАЗРЕШЕННЫЕ" в секцию ВЫБРАТЬ. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция УстановитьВыборкуРазрешенныхЗаписей(Знач Запрос, Знач ВыбиратьРазрешенные, Знач ИндексЗапросаВПакете = Неопределено) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить количество выбираемых записей в запрос уничтожения таблицы.'; + |en = 'Cannot add the number of selected entries to the table removal query.'"); + КонецЕсли; + + ИзменяемыйЗапрос.ВыбиратьРазрешенные = ВыбиратьРазрешенные; + + ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = ТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = ТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +Функция УстановитьВыборкуРазрешенныхЗаписейВоВсемЗапросе(Знач Запрос, Знач ВыбиратьРазрешенные) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ПакетЗапросов = СхемаЗапроса.ПакетЗапросов; + КоличествоПакетов = ПакетЗапросов.Количество(); + Если КоличествоПакетов > 0 Тогда + Для ИндексЗапросаВПакете = 0 По КоличествоПакетов - 1 Цикл + ИзменяемыйЗапрос = ПакетЗапросов.Получить(ИндексЗапросаВПакете); + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + Продолжить; + КонецЕсли; + ИзменяемыйЗапрос.ВыбиратьРазрешенные = ВыбиратьРазрешенные; + КонецЦикла; + КонецЕсли; + + ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = ТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = ТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Добавляет выражение условия в параметры виртуальных таблиц +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыражениеУсловия - Строка - выражение условия для секции параметров виртуальной таблицы. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция ДобавитьУсловиеВЗапрос(Знач Запрос, ВыражениеУсловия, Знач ИндексЗапросаВПакете = Неопределено) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + Если Не ТипЗнч(ВыражениеУсловия) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 2'; + |en = 'Incorrect type of parameter 2'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить параметр в запрос уничтожения таблицы.'; + |en = 'Cannot add parameter to the table removal query.'"); + КонецЕсли; + + // Подстановка выражения во все источники с параметрами + ЧастиВыражения = Новый Массив; + Для Каждого ОператорЗапроса Из ИзменяемыйЗапрос.Операторы Цикл + Для Каждого ИсточникОператора Из ОператорЗапроса.Источники Цикл + + ЧастиВыражения.Очистить(); + + Подзапрос = ИсточникОператора.Источник; + + Если ТипЗнч(Подзапрос) = Тип("ВложенныйЗапросСхемыЗапроса") Тогда + + ТекстЗапросаИсточника = Подзапрос.Запрос.ПолучитьТекстЗапроса(); + ТекстЗапросаИсточника = ДобавитьУсловиеВЗапрос(ТекстЗапросаИсточника, ВыражениеУсловия); + Подзапрос.Запрос.УстановитьТекстЗапроса(ТекстЗапросаИсточника); + + ИначеЕсли ТипЗнч(Подзапрос) = Тип("ТаблицаСхемыЗапроса") Тогда + + ПараметрыИсточника = Подзапрос.Параметры; + КоличествоПараметров = ПараметрыИсточника.Количество(); + + Если КоличествоПараметров = 0 Тогда + Продолжить; + КонецЕсли; + + // В виртуальных таблицах РБ 3 параметр с конца используется для условий по измерениям. + Если СтрНачинаетсяС(ИсточникОператора.Источник.ИмяТаблицы, "РегистрБухгалтерии") Тогда + ПоследнийПараметрИсточника = ПараметрыИсточника[КоличествоПараметров - 3]; + Иначе + ПоследнийПараметрИсточника = ПараметрыИсточника[КоличествоПараметров - 1]; + КонецЕсли; + + ИсходноеВыражение = Строка(ПоследнийПараметрИсточника.Выражение); + Если ЗначениеЗаполнено(ИсходноеВыражение) Тогда + ЧастиВыражения.Добавить(ИсходноеВыражение); + КонецЕсли; + ЧастиВыражения.Добавить(ВыражениеУсловия); + + ПоследнийПараметрИсточника.Выражение = Новый ВыражениеСхемыЗапроса(СтрСоединить(ЧастиВыражения, " И ")); + + КонецЕсли; + + КонецЦикла; + КонецЦикла; + + ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + // Удалим "мусор" схемы запроса + Для НомерПоля = 1 По 9 Цикл + ТекстЗапроса = СтрЗаменить(ТекстЗапроса, " КАК Поле" + НомерПоля, ""); + КонецЦикла; + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = ТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = ТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Добавляет новое соединение с источником данных. +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ПсевдонимИсточника - Строка - псевдоним источника, к которому необходимо присоединить таблицу. +// ОписаниеСоединения - см. ОписаниеСоединения +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// ЗаменятьСуществующееСоединение - Булево - если Истина, то существующее соединение удаляется, если Ложь - вызывается исключение. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция ДобавитьСоединениеВЗапрос(Знач Запрос, ПсевдонимИсточника, ОписаниеСоединения, + Знач ИндексЗапросаВПакете = Неопределено, ЗаменятьСуществующееСоединение = Ложь) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'"); + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить поля в запрос уничтожения таблицы.'; + |en = 'Cannot add fields to the table removal query.'"); + КонецЕсли; + + Для Каждого ТекОператор Из ИзменяемыйЗапрос.Операторы Цикл + + Источник = ТекОператор.Источники.НайтиПоПсевдониму(ПсевдонимИсточника); + Если Источник = Неопределено Тогда + + ТекстИсключения = НСтр("ru = 'В запросе отсутствует источник с псевдонимом ""%1""'; + |en = 'The query does not contain the ""%1"" alias'"); + ТекстИсключения = СтрШаблон(ТекстИсключения, ПсевдонимИсточника); + + ВызватьИсключение ТекстИсключения; + + КонецЕсли; + + Соединение = Источник.Соединения.НайтиПоИмени(ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы); + Если Не Соединение = Неопределено + И Не ЗаменятьСуществующееСоединение Тогда + + ТекстИсключения = НСтр("ru = 'В запросе уже присутствует соединение с таблицей ""%1""'; + |en = 'The query already contains the ""%1"" table connection'"); + ТекстИсключения = СтрШаблон(ТекстИсключения, ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы); + + ВызватьИсключение ТекстИсключения; + + ИначеЕсли Не Соединение = Неопределено + И ЗаменятьСуществующееСоединение Тогда + Источник.Соединения.Удалить(Источник.Соединения.Индекс(Соединение)); + КонецЕсли; + + Соединение = Источник.Соединения.НайтиПоПсевдониму(ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + Если Не Соединение = Неопределено + И Не ЗаменятьСуществующееСоединение Тогда + + ТекстИсключения = НСтр("ru = 'В запросе уже присутствует соединение с псевдонимом ""%1""'; + |en = 'The query already contains the ""%1"" alias connection'"); + ТекстИсключения = СтрШаблон(ТекстИсключения, ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + + ВызватьИсключение ТекстИсключения; + + ИначеЕсли Не Соединение = Неопределено + И ЗаменятьСуществующееСоединение Тогда + Источник.Соединения.Удалить(Источник.Соединения.Индекс(Соединение)); + КонецЕсли; + + ИсточникСоединения = ТекОператор.Источники.НайтиПоИмени(ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы); + Если ИсточникСоединения = Неопределено Тогда + + // Если таблица не описана в запросе, необходимо добавить ее описание + Если ИзменяемыйЗапрос.ДоступныеТаблицы.Найти(ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы) = Неопределено Тогда + + Если Не ЗначениеЗаполнено(ОписаниеСоединения.ОписаниеТаблицы.ТипТаблицы) Тогда + ВызватьИсключение НСтр("ru = 'Не задан тип присоединяемой таблицы.'; + |en = 'Type of the table to attach is not specified.'"); + КонецЕсли; + + Если ОписаниеСоединения.ОписаниеТаблицы.ТипТаблицы = Тип("ВложеннаяТаблицаСхемыЗапроса") Тогда + + Если Не ЗначениеЗаполнено(ОписаниеСоединения.ОписаниеТаблицы.ТекстЗапроса) Тогда + ВызватьИсключение НСтр("ru = 'Не задан текст запроса присоединяемой таблицы.'; + |en = 'Query text of the table to attach is not specified.'"); + КонецЕсли; + + ИсточникСоединения = + ТекОператор.Источники.Добавить( + ОписаниеСоединения.ОписаниеТаблицы.ТипТаблицы, + ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + + ИсточникСоединения.Источник.Запрос.УстановитьТекстЗапроса(ОписаниеСоединения.ОписаниеТаблицы.ТекстЗапроса); + + ИначеЕсли ОписаниеСоединения.ОписаниеТаблицы.ТипТаблицы = Тип("ОписаниеВременнойТаблицыСхемыЗапроса") Тогда + + Если Не ЗначениеЗаполнено(ОписаниеСоединения.ОписаниеТаблицы.ДоступныеПоля) Тогда + ВызватьИсключение НСтр("ru = 'Не задано описание полей присоединяемой таблицы.'; + |en = 'Field details of the table to attach are not specified.'"); + КонецЕсли; + + ИсточникСоединения = + ТекОператор.Источники.Добавить( + ОписаниеСоединения.ОписаниеТаблицы.ТипТаблицы, + ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы, + ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + + Для Каждого ТекПоле Из ОписаниеСоединения.ОписаниеТаблицы.ДоступныеПоля Цикл + ИсточникСоединения.Источник.ДоступныеПоля.Добавить(ТекПоле); + КонецЦикла; + + Иначе + ВызватьИсключение НСтр("ru = 'Указано неправильное имя присоединяемой таблицы.'; + |en = 'Incorrect name of the table to attach is specified.'"); + КонецЕсли; + + Иначе + ИсточникСоединения = + ТекОператор.Источники.Добавить( + ОписаниеСоединения.ОписаниеТаблицы.ИмяТаблицы, + ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + КонецЕсли; + + ИсточникСоединения.Соединения.Очистить(); + + КонецЕсли; + + Если Источник.Соединения.Добавить(ИсточникСоединения, ОписаниеСоединения.Условие) Тогда + Соединение = Источник.Соединения.НайтиПоПсевдониму(ОписаниеСоединения.ОписаниеТаблицы.ПсевдонимТаблицы); + Если ЗначениеЗаполнено(ОписаниеСоединения.ТипСоединения) Тогда + Соединение.ТипСоединения = ОписаниеСоединения.ТипСоединения; + КонецЕсли; + Иначе + ВызватьИсключение НСтр("ru = 'Не удалось добавить соединение.'; + |en = 'Cannot add the connection.'"); + КонецЕсли; + + КонецЦикла; + + НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = НовыйТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = НовыйТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +// Удаляет поля из запроса. +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ПсевдонимыПолей - Строка, Массив - строка псевдонимов полей, разделенных запятой, либо массив псевдонимов полей. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то удаляется во всех запросах пакета. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция УдалитьПоляИзЗапроса(Знач Запрос, ПсевдонимыПолей, Знач ИндексЗапросаВПакете = Неопределено) Экспорт + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; + |en = 'Incorrect type of parameter 1'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + Если ТипЗнч(ПсевдонимыПолей) = Тип("Строка") Тогда + УдаляемыеПоля = СтрРазделить(ПсевдонимыПолей, ",", Ложь); + Иначе + УдаляемыеПоля = ПсевдонимыПолей; + КонецЕсли; + + Если ИндексЗапросаВПакете = Неопределено Тогда + ИзменяемыеЗапросы = СхемаЗапроса.ПакетЗапросов; + Иначе + ИзменяемыеЗапросы = Новый Массив; + ИзменяемыеЗапросы.Добавить(ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете)); + КонецЕсли; + + Для Каждого ИзменяемыйЗапрос Из ИзменяемыеЗапросы Цикл + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + Продолжить; + КонецЕсли; + + Колонки = ИзменяемыйЗапрос.Колонки; + + Для Каждого ТекПоле Из УдаляемыеПоля Цикл + + Поле = Колонки.Найти(ТекПоле); + Если Не Поле = Неопределено Тогда + Колонки.Удалить(Колонки.Индекс(Поле)); + КонецЕсли; + + КонецЦикла; + + КонецЦикла; + + НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = НовыйТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = НовыйТекстЗапроса; + КонецЕсли; + + Возврат Запрос; + +КонецФункции + +#Область Конструкторы + +// Возвращает описание добавляемого соединения. +// +// Параметры: +// ОписаниеТаблицы - см. ОписаниеТаблицы +// Условие - Строка - условие соединения +// ТипСоединения - Неопределено, ТипСоединенияСхемыЗапроса - тип соединения +// +// Возвращаемое значение: +// Структура: +// *ОписаниеТаблицы - см. ОписаниеТаблицы +// *Условие - Строка +// *ТипСоединения - ТипСоединенияСхемыЗапроса +// +Функция ОписаниеСоединения(ОписаниеТаблицы, Условие, ТипСоединения = Неопределено) Экспорт + + Описание = Новый Структура; + Описание.Вставить("ОписаниеТаблицы", ОписаниеТаблицы); + Описание.Вставить("Условие", Условие); + Описание.Вставить("ТипСоединения", ТипСоединения); + + Возврат Описание; + +КонецФункции + +// Описание таблицы схемы запроса +// +// Параметры: +// ТипТаблицы - Тип +// ИмяТаблицы - Строка +// ПсевдонимТаблицы - Строка +// ДоступныеПоля - Строка, Массив из Строка - доступные поля +// ТекстЗапроса - Строка +// +// Возвращаемое значение: +// Структура - Описание таблицы: +// *ТипТаблицы - Тип +// *ИмяТаблицы - Строка +// *ПсевдонимТаблицы - Строка +// *ДоступныеПоля - Массив из Строка +// *ТекстЗапроса - Строка +// +Функция ОписаниеТаблицы(ТипТаблицы, ИмяТаблицы, ПсевдонимТаблицы, ДоступныеПоля = Неопределено, ТекстЗапроса = Неопределено) Экспорт + + // ++ Обход ошибки отстутствия модуля БСП, не переносить + СтроковыеФункцииКлиентСервер = Неопределено; + // -- Обход ошибки отстутствия модуля БСП, не переносить + + Описание = Новый Структура; + Описание.Вставить("ТипТаблицы", ТипТаблицы); + Описание.Вставить("ИмяТаблицы", ИмяТаблицы); + Описание.Вставить("ПсевдонимТаблицы", ПсевдонимТаблицы); + Описание.Вставить("ТекстЗапроса", ТекстЗапроса); + + Если ТипЗнч(ДоступныеПоля) = Тип("Строка") Тогда + Описание.Вставить( + "ДоступныеПоля", + СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок( + ДоступныеПоля, ",", Истина, Истина)); + Иначе + Описание.Вставить("ДоступныеПоля", ДоступныеПоля); + КонецЕсли; + + Возврат Описание; + +КонецФункции + +#КонецОбласти + +#КонецОбласти diff --git a/src/Configuration.xml b/src/Configuration.xml index 52befe22..d9f26704 100644 --- a/src/Configuration.xml +++ b/src/Configuration.xml @@ -280,6 +280,7 @@ <CommonModule>__МодификацияКонфигурацииКлиентСерверПереопределяемый</CommonModule> <CommonModule>__МодификацияКонфигурацииПереопределяемый</CommonModule> <CommonModule>__МодификацияКонфигурацииПереопределяемыйДокумент</CommonModule> + <CommonModule>__МодификацияКонфигурацииПереопределяемыйПланВидовХарактеристик</CommonModule> <CommonModule>__ОбщегоНазначенияВызовСервера</CommonModule> <CommonModule>__ОбщегоНазначенияКлиент</CommonModule> <CommonModule>__ОбщегоНазначенияКлиентСервер</CommonModule> @@ -308,6 +309,7 @@ <CommonModule>__СправочникиПриКопировании</CommonModule> <CommonModule>__СтроковыеФункцииКлиентСервер</CommonModule> <CommonModule>__СтроковыеФункцииСлужебныйКлиентСервер</CommonModule> + <CommonModule>__СхемыЗапросов</CommonModule> <CommonModule>__ТипСоответствияОбъектовИБПереопределяемый</CommonModule> <EventSubscription>__ДокументыОбработкаЗаполнения</EventSubscription> <EventSubscription>__ДокументыОбработкаПроведения</EventSubscription>