Цифровые инициативы: что это такое и как они влияют на бизнес

Полезный код 1С

Для чего может быть полезен этот код 1С:Предприятие версии 8.5 [автоматизация создания отчетов].

Этот пример в частности показывает, как можно использовать общий модуль A1sQ из библиотеки A1s для упрощения работы с запросами в 1С.

Примечание: этот код написан под абстрактную конфигурацию, не претендует на полноту и может содержать ошибки, т.к. сгенерирован ИИ.

        // A1sQuery Common Module

        &AtServer
        // Function to define and set up a query
        Function CreateQ(QueryText = Undefined, TempTablesManager = Undefined) Export

            Query = New Query;

            If ValueIsFilled(QueryText) Then
                Query.Text = QueryText;
            EndIf;

            If ValueIsFilled(TempTablesManager) Then
                Try
                    Query.TempTablesManager = TempTablesManager;
                Except EndTry;
            EndIf;

            Return Query;

        EndFunction

        &AtServer
        Function GetParams(Query, PrintParams = False) Export

            Params = Query.FindParameters();

            If PrintParams Then
                ParamNum = 1;
                For Each qp In Params Do
                    A1sS.Print("Param #=" + ParamNum);
                    A1sS.Print("Name=" + qp.Имя + " Type=" + qp.ТипЗначения);
                    ParamNum = ParamNum + 1;
                EndDo;
            EndIf;

            Return Params;

        EndFunction

        #Region A1sQ_GetQParams

        &AtServer
        // Function to analyze query text and extract parameters
        Function GetQParams(QueryText) Export
            // Create a new structure to hold the parameters
            Parameters = New Structure;

            // Find all parameters in the format ¶meter
            Position = 1;
            While Position <= StrLen(QueryText) Do
                // Find the position of the next parameter
                Position = StrFind(QueryText, "&", , Position);
                If Position = 0 Then
                    Break;
                EndIf;

                // Initialize the end position for extracting the parameter name
                EndPosition = Position + 1;
                IsAlphaNumChar = True;

                // Loop to find the end of the parameter name
                While EndPosition <= StrLen(QueryText) And IsAlphaNumChar Do
                    Char = A1sStr.GetChar(QueryText, EndPosition); // Get the current character
                    IsAlphaNumChar = A1sStr.IsAlphaNum(Char); // Check if the character is alphanumeric or underscore
                    If IsAlphaNumChar Then
                        EndPosition = EndPosition + 1; // Move to the next character
                    EndIf;
                EndDo;

                // Extract the parameter name
                StartPos = Position + 1; // Start position for the parameter name
                Length = EndPosition - Position - 1; // Length of the parameter name
                ParameterName = Mid(QueryText, StartPos, Length); // Extract the parameter name

                // Insert the parameter name into the structure
                Parameters.Insert(ParameterName, Undefined);

                // Move to the next position
                Position = EndPosition;
            EndDo;

            // Return the structure with parameters
            Return Parameters;
        EndFunction

        #EndRegion

        #Region A1sQ_ParseParams

        &AtServer
        Function ParseParams(KeyString, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export
            // Split the key string into an array of keys
            Keys = StrSplit(KeyString, ",");

            // Create an array of values
            Values = New Array;
            Values.Add(Value1);
            Values.Add(Value2);
            Values.Add(Value3);
            Values.Add(Value4);
            Values.Add(Value5);
            Values.Add(Value6);
            Values.Add(Value7);
            Values.Add(Value8);

            // Create a structure to hold the parameters
            Parameters = New Structure;

            // Populate the structure with keys and values
            For i = 0 To Keys.Count() - 1 Do
                If Values[i] <> Undefined Then
                    Parameters.Insert(Keys[i], Values[i]);
                EndIf;
            EndDo;

            // Return the structure with parameters
            Return Parameters;
        EndFunction

        #EndRegion

        #Region A1sQ_SetQParams

        &AtServer
        Function SetQParams(Query, Parameters = Undefined) Export

            // Parameters = Key & Value Structure
            If Parameters <> Undefined Then

                // Set the parameters in the query
                For Each Parameter In Parameters Do
                    Query.SetParameter(Parameter.Key, Parameter.Value);
                EndDo;

            EndIf;

            // Return the constructed query
            Return Query;

        EndFunction

        #EndRegion

        #Region A1sQ_BuildQByParams

        &AtServer
        Function BuildQByParams(QueryText, KeyString, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export

            // Create a new query
            Query = New Query;
            Query.Text = QueryText;

            // Get the parameters using ParseParams function
            Parameters = ParseParams(KeyString, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);

            // Set the parameters in the query
            For Each Parameter In Parameters Do
                Query.SetParameter(Parameter.Key, Parameter.Value);
            EndDo;

            // Return the constructed query
            Return Query;
        EndFunction

        #EndRegion

        #Region A1sQ_BuildQ

        &AtServer
        // Функция создает запрос с автоматическим извлечением и заданием параметров
        // Параметры:
        //   QueryText (Строка) - текст запроса
        //   Value1, Value2, ..., Value8 (Произвольный) - значения параметров
        // Возвращаемое значение:
        //   Query (Запрос) - сконструированный запрос
        Function BuildQ(QueryText, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export
            // Извлечение параметров из текста запроса
            Parameters = A1sQ.GetQParams(QueryText);

            // Создание нового запроса
            Query = New Query;
            Query.Text = QueryText;

            // Создание массива значений
            Values = New Array;
            Values.Add(Value1);
            Values.Add(Value2);
            Values.Add(Value3);
            Values.Add(Value4);
            Values.Add(Value5);
            Values.Add(Value6);
            Values.Add(Value7);
            Values.Add(Value8);

            // Задание параметров в запросе
            i = 0;
            For Each ParameterName In Parameters Do
                If i < Values.Count() Then
                    Query.SetParameter(ParameterName.Ключ, Values[i]);
                    i = i + 1;
                EndIf;
            EndDo;

            // Возврат сконструированного запроса
            Return Query;
        EndFunction

        #Region examples_A1sQ_BuildQ

        #Region example_1_A1sQ_BuildQ

        // @example.1.A1sQ.BuildQ {

        //// Текст запроса
        //QueryText =
        //"ВЫБРАТЬ
        //|	АктивностьСеансовПользователей.ИдентификаторЗаданияДляОстановки КАК ИдентификаторЗаданияДляОстановки,
        //|	АктивностьСеансовПользователей.ДатаПоследнейАктивностиУниверсальная КАК ДатаПоследнейАктивностиУниверсальная
        //|ИЗ
        //|	РегистрСведений.АктивностьСеансовПользователей КАК АктивностьСеансовПользователей
        //|ГДЕ
        //|	АктивностьСеансовПользователей.Организация = &Организация
        //|	И АктивностьСеансовПользователей.Пользователь = &Пользователь";

        //// Создание запроса с параметрами
        //Query = BuildQ(QueryText, Источник.Организация, ТекущийПользователь);

        //// Выполнение запроса
        //Выборка = Query.Выполнить().Выбрать();

        // @example.1.A1sQ.BuildQ }

        #EndRegion

        #Region example_2_A1sQ_BuildQ

        // @example.2.A1sQ.BuildQ {

        //// Пример 2
        //QueryText =
        //"ВЫБРАТЬ
        //|	ДругаяТаблица.Параметр1 КАК Параметр1,
        //|	ДругаяТаблица.Параметр2 КАК Параметр2
        //|ИЗ
        //|	РегистрСведений.ДругаяТаблица КАК ДругаяТаблица
        //|ГДЕ
        //|	ДругаяТаблица.Параметр1 = &Параметр1";

        //// Создание запроса с параметрами
        //Query = BuildQ(QueryText, ЗначениеПараметра1);

        //// Выполнение запроса
        //Выборка = Query.Выполнить().Выбрать();

        // @example.2.A1sQ.BuildQ }

        #EndRegion

        #EndRegion

        #EndRegion

        #Region A1sQ_ExecuteQ

        &AtServer
        // Функция создает запрос, задает параметры и выполняет его, возвращая выборку
        // Параметры:
        //   QueryText (Строка) - текст запроса
        //   Value1, Value2, ..., Value8 (Произвольный) - значения параметров
        // Возвращаемое значение:
        //   Выборка (ВыборкаИзРезультатаЗапроса) - результат выполнения запроса
        Function ExecuteQ(QueryText, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export
            // Создание запроса с параметрами
            Query = BuildQ(QueryText, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);

            // Выполнение запроса
            Return Query.Выполнить().Выбрать();
        EndFunction

        #Region examples_A1sQ_ExecuteQ

        #Region example_1_A1sQ_ExecuteQ

        // @example.1.A1sQ.ExecuteQ {

        //// Текст запроса
        //QueryText =
        //"ВЫБРАТЬ
        //|	АктивностьСеансовПользователей.ИдентификаторЗаданияДляОстановки КАК ИдентификаторЗаданияДляОстановки,
        //|	АктивностьСеансовПользователей.ДатаПоследнейАктивностиУниверсальная КАК ДатаПоследнейАктивностиУниверсальная
        //|ИЗ
        //|	РегистрСведений.АктивностьСеансовПользователей КАК АктивностьСеансовПользователей
        //|ГДЕ
        //|	АктивностьСеансовПользователей.Организация = &Организация
        //|	И АктивностьСеансовПользователей.Пользователь = &Пользователь";

        //// Выполнение запроса с параметрами
        //Выборка = ExecuteQ(QueryText, Источник.Организация, ТекущийПользователь);

        // @example.1.A1sQ.ExecuteQ }

        #EndRegion

        #Region example_2_A1sQ_ExecuteQ

        // @example.2.A1sQ.ExecuteQ {

        //// Пример 2
        //QueryText =
        //"ВЫБРАТЬ
        //|	ДругаяТаблица.Параметр1 КАК Параметр1,
        //|	ДругаяТаблица.Параметр2 КАК Параметр2
        //|ИЗ
        //|	РегистрСведений.ДругаяТаблица КАК ДругаяТаблица
        //|ГДЕ
        //|	ДругаяТаблица.Параметр1 = &Параметр1";

        //// Выполнение запроса с параметрами
        //Выборка = ExecuteQ(QueryText, ЗначениеПараметра1);

        // @example.2.A1sQ.ExecuteQ }

        #EndRegion

        #EndRegion

        #EndRegion

        #Region A1sQ_IsEmptyResult

        &AtServer
        // Проверяет, не является ли выборка из запроса пустой.
        //
        // Параметры:
        //   QueryText (Строка) - текст запроса
        //   Value1, Value2, ..., Value8 (Произвольный) - значения параметров
        //
        // Возвращаемое значение:
        //   Булево - Истина, если выборка пуста, Ложь - если в выборке есть данные.
        Function IsEmptyResult(QueryText, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export

            QueryResult = ExecuteQ(QueryText, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);

            Return QueryResult.IsEmpty();

        EndFunction

        #Region example_1_A1sQ_IsEmptyResult

        //If IsEmptyResult("ВЫБРАТЬ ПЕРВЫЕ 1 * ИЗ Справочник.Номенклатура ГДЕ Наименование = &Наименование", "Тестовая номенклатура") Then
        //    // Выборка пуста, записи не найдены
        //    Сообщить("Записи с таким наименованием не найдены.");
        //Else
        //    // Выборка содержит данные
        //    Сообщить("Записи с таким наименованием найдены.");
        //EndIf

        #EndRegion

        #EndRegion

        #Region A1sQ_IsNotEmptyResult

        &AtServer
        // Проверяет, не является ли выборка из запроса не пустой.
        //
        // Параметры:
        //   QueryText (Строка) - текст запроса
        //   Value1, Value2, ..., Value8 (Произвольный) - значения параметров
        //
        // Возвращаемое значение:
        //   Булево - Истина, если выборка не пуста, Ложь - если выборка пуста.
        Function IsNotEmptyResult(QueryText, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export

            QueryResult = ExecuteQ(QueryText, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);

            Return Not QueryResult.IsEmpty();

        EndFunction

        #Region example_1_A1sQ_IsNotEmptyResult

        //If IsNotEmptyResult("ВЫБРАТЬ ПЕРВЫЕ 1 * ИЗ Справочник.Номенклатура ГДЕ Наименование = &Наименование", "Тестовая номенклатура") Then
        //    // Выборка не пуста, записи найдены
        //    Сообщить("Записи с таким наименованием найдены.");
        //Else
        //    // Выборка пуста, записи не найдены
        //    Сообщить("Записи с таким наименованием не найдены.");
        //EndIf

        #EndRegion

        #EndRegion

        #Region A1sQ_Unload

        &AtServer
        // Функция создает запрос, задает параметры и выполняет его, выгружая данные
        // Параметры:
        //   QueryText (Строка) - текст запроса
        //   Value1, Value2, ..., Value8 (Произвольный) - значения параметров
        // Возвращаемое значение:
        //   ТаблицаЗначений (ТаблицаЗначений) - результат выполнения запроса
        Function Unload(QueryText, Value1 = Undefined, Value2 = Undefined, Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined, Value7 = Undefined, Value8 = Undefined) Export
            // Создание запроса с параметрами
            Query = BuildQ(QueryText, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);

            // Выполнение запроса и выгрузка данных
            Return Query.Выполнить().Выгрузить();
        EndFunction

        #Region examples_A1sQ_Unload

        #Region example_1_A1sQ_Unload

        // @example.1.A1sQ.Unload {

        //// Текст запроса
        //QueryText =
        //"ВЫБРАТЬ
        //|	АктивностьСеансовПользователей.ИдентификаторЗаданияДляОстановки КАК ИдентификаторЗаданияДляОстановки,
        //|	АктивностьСеансовПользователей.ДатаПоследнейАктивностиУниверсальная КАК ДатаПоследнейАктивностиУниверсальная
        //|ИЗ
        //|	РегистрСведений.АктивностьСеансовПользователей КАК АктивностьСеансовПользователей
        //|ГДЕ
        //|	АктивностьСеансовПользователей.Организация = &Организация
        //|	И АктивностьСеансовПользователей.Пользователь = &Пользователь";

        //// Выполнение запроса с параметрами и выгрузка данных
        //ТаблицаЗначений = Unload(QueryText, Источник.Организация, ТекущийПользователь);

        // @example.1.A1sQ.Unload }

        #EndRegion

        #Region example_2_A1sQ_Unload

        // @example.2.A1sQ.Unload {

        //// Пример 2
        //QueryText =
        //"ВЫБРАТЬ
        //|	ДругаяТаблица.Параметр1 КАК Параметр1,
        //|	ДругаяТаблица.Параметр2 КАК Параметр2
        //|ИЗ
        //|	РегистрСведений.ДругаяТаблица КАК ДругаяТаблица
        //|ГДЕ
        //|	ДругаяТаблица.Параметр1 = &Параметр1";

        //// Выполнение запроса с параметрами и выгрузка данных
        //ТаблицаЗначений = Unload(QueryText, ЗначениеПараметра1);

        // @example.2.A1sQ.Unload }

        #EndRegion

        #EndRegion

        #EndRegion

        #Region Misc

        // A1sQuery Common Module

        &AtServer
        Function QT(WhatToSelect, FromWhereSelect, Condition = Undefined) Export

            QT = "ВЫБРАТЬ " + WhatToSelect + " ИЗ " + FromWhereSelect;

            If ValueIsFilled(Condition) Then
                QT = QT + " ГДЕ "+ Condition;
            EndIf;

            Return QT;

        EndFunction

        &AtServer
        // Function to escape special characters for LIKE operator in queries
        // АНАЛОГ ДЛЯ ОбщегоНазначения.СформироватьСтрокуДляПоискаВЗапросе
        Function EscapeLike(SearchString) Export
            Result = SearchString;
            Result = StrReplace(Result, "~", "~~");
            Result = StrReplace(Result, "%", "~%");
            Result = StrReplace(Result, "_", "~_");
            Result = StrReplace(Result, "[", "~[");
            Result = StrReplace(Result, "]", "~]");
            Result = StrReplace(Result, "^", "~^");
            Return Result;
        EndFunction

        &AtServer
        // Function to get the query separator text
        // АНАЛОГ ДЛЯ ОбщегоНазначения.РазделительПакетаЗапросов
        Function QuerySeparator() Export
            Return "
            |;
            |
            |////////////////////////////////////////////////////////////////////////////////
            |";
        EndFunction

        &AtServer
        // Function to get the text for combining query results
        // АНАЛОГ ДЛЯ ОбщегоНазначения.ТекстОбъединитьВсе
        Function CombineQT(QueryText1 = Undefined, QueryText2 = Undefined) Export

            UnionText = "
            |
            |ОБЪЕДИНИТЬ ВСЕ
            |
            |";

            If (QueryText1 = Undefined) And (QueryText2 = Undefined) Then

            Return UnionText;

            Else

                Return QueryText1 + UnionText + QueryText2;

            EndIf;

        EndFunction

        //&AtServer
        //Function UnionQueries(QueryText1, QueryText2) Export
        //    Return QueryText1 + CombineQueries() + QueryText2;
        //EndFunction

        &AtServer
        // Function to create a LIKE pattern with percent signs
        Function LikePattern(SearchString) Export
            Return "%" + EscapeLike(SearchString) + "%";
        EndFunction

        #EndRegion

        // ----------------------------------------------------------
        // TEMP TABLES MANAGEMENT
        // ----------------------------------------------------------

        #Region TemporaryTables

        // Получает менеджер временных таблиц для использования в нескольких запросах
        //
        // Возвращаемое значение:
        //  МенеджерВременныхТаблиц - Новый менеджер временных таблиц
        //
        &AtServer
        Function GetTemps() Export
            Return New TempTablesManager;
        EndFunction

        // Создает временную таблицу из запроса
        //
        // Параметры:
        //  QueryText - Строка - Текст запроса
        //  TempTableName - Строка - Имя временной таблицы
        //  Value1...Value8 - Произвольный - Значения параметров запроса
        //
        // Возвращаемое значение:
        //  РезультатЗапроса - Результат создания временной таблицы
        //

        //&AtServer
        //Function CreateTempTable(QueryText, TempTableName, Value1 = Undefined, Value2 = Undefined,
        //	Value3 = Undefined, Value4 = Undefined, Value5 = Undefined, Value6 = Undefined,
        //	Value7 = Undefined, Value8 = Undefined) Export
        //
        //	// Создаем запрос
        //	Query = BuildQ(QueryText, Value1, Value2, Value3, Value4, Value5, Value6, Value7, Value8);
        //
        //	// Добавляем в запрос создание временной таблицы
        //	Query.TempTablesManager = New TempTablesManager;
        //	Query.MoveToTempTable(TempTableName);
        //
        //	//q=new query;
        //	//q.МенеджерВременныхТаблиц = Undefined;
        //
        //	Return Query.Execute();
        //EndFunction

        #EndRegion

        #Region A1sA_GetBalances

        // Функция для получения остатков по заданным параметрам
        Функция GetBalancesQueryText(WhereConditionText = Неопределено, НазваниеРегистраБухгалтерии = "Хозрасчетный") Экспорт

            // Проверяем существование регистра бухгалтерии
            Try

                // Формируем текст запроса
                QueryText =
                "ВЫБРАТЬ
                |   Остатки.Субконто1 КАК Субконто1,
                |   Остатки.Субконто2 КАК Субконто2,
                |   Остатки.Субконто3 КАК Субконто3,
                |   Остатки.Счет КАК СчетУчета,
                |   Остатки.СуммаОстатокДт КАК СуммаДт,
                |   Остатки.СуммаОстатокКт КАК СуммаКт
                |ИЗ
                |   РегистрБухгалтерии." + НазваниеРегистраБухгалтерии + ".Остатки(
                |           &Период,
                |           Счет В ИЕРАРХИИ (&Счета),
                |           ,
                |           Организация = &Организация
                |       ) КАК Остатки
                | ";

                // Если есть дополнительные параметры, добавляем их в условие WHERE
                Если ValueIsFilled(WhereConditionText) Тогда

                    QueryText = QueryText + " " + WhereConditionText;

                КонецЕсли;

            Except
            EndTry;

            Возврат QueryText;

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

        #EndRegion

        #Region A1sA_GetBalances_Example

        // Пример использования функции GetBalancesQueryText
        //QueryText = GetBalancesQueryText("И Остатки.Субконто1 = &Субконто1", "Хозрасчетный");
        //Query = BuildQ(QueryText, Период, Счет, Организация, Субконто1);
        //Выборка = Query.Выполнить().Выбрать();

        #EndRegion