МойОтбор1 = Новый СписокЗначений;
    
    Если ОдноЧисло Тогда
        
        СтрокаШаблона = "ЧЧЧ1\s{0,2}[mм][mм].?";
        
    Иначе
        
        СтрокаШаблона = "ЧЧЧ1\s{0,2}[xх\*\/]\s{0,2}ЧЧЧ2\s{0,2}[mм][mм].?";
        
    КонецЕсли;
    
    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.MultiLine = ЛОЖЬ; //Многострочный
    RegExp.Global = Истина;
    RegExp.IgnoreCase = Истина; //Регистр верхний/нижний или не учитывать

/////////////////////////////

    RegExp.Pattern = СокрЛП(СтрокаШаблона);
    
    ВыборкаПродуктов = Справочники.Продукт.Выбрать();
    
    Пока ВыборкаПродуктов.Следующий() Цикл
        
        Matches=RegExp.Execute(СокрЛП(ВыборкаПродуктов.Наименование));
        
        Если Matches.Count > 0 Тогда
            
            МойОтбор1.Добавить(ВыборкаПродуктов.Ссылка);
            
        КонецЕсли;
        
    КонецЦикла;
    
    НовыйЗапрос = РеквизитТекстЗапроса + "
    |ГДЕ
    |СправочникПродукт.Ссылка В(&МойОтбор1)";
    
    Список.ПроизвольныйЗапрос = Истина;
    Список.ТекстЗапроса = НовыйЗапрос;
    Список.ОсновнаяТаблица = Список.ОсновнаяТаблица;
    Список.ДинамическоеСчитываниеДанных = Истина;
    
    Список.Параметры.УстановитьЗначениеПараметра("МойОтбор1", МойОтбор1);

    Запрос.УстановитьПараметр("ИскомоеСодержимое", "%"+СокрЛП(ПоискПоИзвлеченномуТексту)+"%");

    Для каждого тек Из тз_Отбора Цикл
        
        НаимСЖ=СтрокаСжать(тек.Наименование);          
        Нашли="";
        
        РезТек=НечеткоеСравнение(НаимСЖ,ИскСЖ,Нашли,Ранг);
        
        РезТек=2*РезТек-СтрДлина(Нашли);
        РезТек=Цел(100*РезТек/СтрДлина(ИскСЖ));
        
        Если РезТек >= Достоверность Тогда
            
            ДобавитьВРезультаты(Нашли,РезТек, Результаты2, тек.Ссылка, тЭлем, Искомое);
            
        КонецЕсли; 
        
        Если ТекущаяДата()>=Лимит Тогда
            
            Сообщение = Новый СообщениеПользователю;
            Сообщение.Текст = "ПРЕРВАНО! Перевищено тайм-аут!";
            Сообщение.Сообщить();
            
            Прервать; 
            
        КонецЕсли;    
        
    КонецЦикла; 

//***************************
&НаСервере
Функция НечеткоеСравнение(Строка1,Строка2,Строка3,Ранг=0)
    
    Дл=СтрДлина(Строка2); 
    
    Если Строка1=Строка2 Тогда
        
        Если Строка3="" Тогда Строка3=Строка1 Иначе Строка3=Строка3+","+Строка1 КонецЕсли;
        
        Возврат(Дл);
        
    КонецЕсли;
    
    Огр=Цел(Дл/10); Если Огр>2 Тогда Огр=2 КонецЕсли;
    От=0;
    
    Если Ранг>0 Тогда
        
        От=Дл-Ранг;
        
    КонецЕсли;
    
    Для Сч1=От По Дл-2 Цикл
        
        Для Сч2=1 По Сч1+1 Цикл
            
            Иск=Сред(Строка2,Сч2,Дл-Сч1);
            
            Если(Найти(Строка1,Иск)<>0) Тогда
                
                Рез=СтрДлина(Иск); 
                
                Если Строка3="" Тогда
                    
                    Строка3=Иск;
                    
                Иначе
                    
                    Строка3=Строка3+","+Иск;
                    
                КонецЕсли;    
                
                Если (Рез>Огр) или ((Строка3<>Иск) и (Рез>2)) Тогда 
                    
                    Стр1=СтрЗаменить(Строка1,Иск,"");
                    Стр2=СтрЗаменить(Строка2,Иск,"");                
                    Рез1=НечеткоеСравнение(Стр1,Стр2,Строка3,Рез);       
                    Рез=Рез+Рез1;
                    
                КонецЕсли;
                
                Возврат(Рез);
                
            КонецЕсли;
            
        КонецЦикла;
        
    КонецЦикла;
    
    Возврат(0);
    
КонецФункции

    ТекстПоиск = "0";
    
    Для Индекс = 1 По ДлинаСтроки - 3 Цикл
        
        ТекстПоиск = ТекстПоиск + " + ВЫБОР КОГДА ИсточникДанных." + ИмяРеквизит + " ПОДОБНО ""%" + Сред(СтрокаПоиска, Индекс, 3) + "%"" ТОГДА 1 ИНАЧЕ 0 КОНЕЦ";
        
    КонецЦикла;
    
    ТекстДерево = Дерево("ИсточникДанных." + ИмяРеквизит, -1, 300);
    
    ТекстРанг = "ВЫБОР КОГДА ПОДСТРОКА(ИсточникДанных." + ИмяРеквизит + ", " + (ДлинаСтроки + 1) + ", 3) = """" ТОГДА " + ДлинаСтроки + " ИНАЧЕ " + ТекстДерево + " КОНЕЦ";
    
    Запрос = Новый Запрос;
    
    Запрос.Текст = "
    |ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 500
    |    ИсточникДанных.Ссылка КАК Ссылка,
    |    ИсточникДанных." + ИмяРеквизит + " КАК Реквизит,
    |    100*(" + ТекстПоиск + ")/(" + ТекстРанг + " - 2) КАК Ранг
    //|ИЗ " + ЭтаФорма.ИмяИсточникДанных + " КАК ИсточникДанных
    |ИЗ Справочник.Продукт КАК ИсточникДанных
    |ГДЕ " + ТекстПоиск + " > 0
    |УПОРЯДОЧИТЬ ПО
    |    Ранг УБЫВ";
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка = РезультатЗапроса.Выбрать();
    
    Результат = "<html><body><table><tr><td><b>Ранг</b></td><td><b>Найденная строка<b></td></tr>";
    
    Пока Выборка.Следующий() Цикл
        
        Индекс = 1;
        НайденнаяСтрока = Выборка.Реквизит;
        
        Пока Индекс < ДлинаСтроки Цикл
            
            Длина = 2;
            
            Пока Индекс + Длина <= ДлинаСтроки Цикл
                
                Если Найти(НайденнаяСтрока, Сред(СтрокаПоиска, Индекс, Длина + 1)) > 0 Тогда
                    
                    Длина = Длина + 1;
                    
                Иначе
                    
                    Прервать;
                    
                КонецЕсли; 
                
            КонецЦикла;
            
            Если Длина > 2 Тогда
                
                Подстрока = Сред(СтрокаПоиска, Индекс, Длина);
                НайденнаяСтрока = СтрЗаменить(НайденнаяСтрока, Подстрока, "<b>" + Подстрока + "</b>");
                
            Иначе
                
                Длина = 0;
                
            КонецЕсли;
            
            Индекс = Индекс + Длина + 1;
            
        КонецЦикла;
        
        Результат = Результат + "<tr><td><button id=" + ЗначениеВСтрокуВнутр(Выборка.Ссылка) + ">...</button>&nbsp;";
        Результат = Результат + Цел(Выборка.Ранг);
        Результат = Результат + "</td><td>";
        Результат = Результат + НайденнаяСтрока;
        Результат = Результат + "</td></tr>";
        
    КонецЦикла;
    
    Результат = Результат + "</table></body></html>";

Функция СведенияОВнешнейОбработке() Экспорт
    
    ПараметрыРегистрации = Новый Структура;
    МассивНазначений = Новый Массив;
    
    Наименование = УказатьНаименованиеВнешнейПечатнойФормы();
    
    МассивНазначений.Добавить(ПолучитьМетаданныеДокументаПечати());
    //может быть - ЗаполнениеОбъекта, ДополнительныйОтчет, СозданиеСвязанныхОбъектов...
    ПараметрыРегистрации.Вставить("Вид", "ПечатнаяФорма");
    ПараметрыРегистрации.Вставить("Назначение", МассивНазначений);
    //имя под которым обработка будет зарегестрирована в справочнике внешних обработок
    ПараметрыРегистрации.Вставить("Наименование", Наименование);
    ПараметрыРегистрации.Вставить("Версия", "1.0");
    ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);
    //так будет выглядеть описание печ.формы для пользователя
    ПараметрыРегистрации.Вставить("Информация", Наименование);
    
    [b]ТаблицаКоманд = ПолучитьТаблицуКоманд();[/b]
    ДобавитьКоманду(ТаблицаКоманд, Наименование, УказатьНаименованиеКомандыПечати(), "ВызовСерверногоМетода", Истина, "ПечатьMXL");
    
    ПараметрыРегистрации.Вставить("Команды", ТаблицаКоманд);
    
    Возврат ПараметрыРегистрации;
    
КонецФункции

[b]Функция ПолучитьТаблицуКоманд()[/b]
    
    Команды = Новый ТаблицаЗначений;
    //как будет выглядеть описание печ.формы для пользователя
    Команды.Колонки.Добавить("Представление", Новый ОписаниеТипов("Строка"));
    //имя макета печ.формы
    Команды.Колонки.Добавить("Идентификатор", Новый ОписаниеТипов("Строка"));
    //ВызовСерверногоМетода
    Команды.Колонки.Добавить("Использование", Новый ОписаниеТипов("Строка"));
    Команды.Колонки.Добавить("ПоказыватьОповещение", Новый ОписаниеТипов("Булево"));
    Команды.Колонки.Добавить("Модификатор", Новый ОписаниеТипов("Строка"));
    
    Возврат Команды;
КонецФункции

Константы.ИмяНужнойКонстанты.Получить()

Справочники.Константы.НужныоеИмяКонстанты.НужныйРеквизитНужногоТипа

Макет1=ПолучитьМакет("макет1");
Макет2=ПолучитьМакет("макет2");
Область1Макета1=Макет1.ПолучитьОбласть("Область1");
Область1Макета2=Макет2.ПолучитьОбласть("Область1");
ТабДокумент.Вывести(Область1Макета1);
ТабДокумент.Вывести(Область1Макета2);

Пакет = Новый ПакетОтображаемыхДокументов;
ЭлементПакета1 = Пакет.Состав.Добавить();

ТабДок = Новый ТабличныйДокумент;
ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;

ЭлементПакета1.Данные = ПоместитьВоВременноеХранилище(ТабДок);

ЭлементПакета2 = Пакет.Состав.Добавить();

ТабДок2 = Новый ТабличныйДокумент;
ТабДок2.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;

ЭлементПакета2.Данные = ПоместитьВоВременноеХранилище(ТабДок2);

Цитата(Ch2025 @ 26.01.25, 15:54)

РольДоступна("НужнаяРоль")

...
    МояСтрока = СтрЗаменить(МояСтрока, "Сентябрь", "Вересень");
    МояСтрока = СтрЗаменить(МояСтрока, "Октябрь", "Жовтень");
...

ХранилищеСистемныхНастроек.Удалить("Отчет.МойОтчет/МойВариантОтчета/ТекущиеПользовательскиеНастройки" ,,"ИмяПользователя")

&НаКлиенте
Процедура Печать(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт 
    
    ДлительнаяОперация=ПечатьВФоне(ОбъектыНазначенияМассив[0]);
    ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
    ПараметрыОжидания.ВыводитьПрогрессВыполнения = Истина;
    ПараметрыОжидания.Интервал = 10; //Небольшое значение - для теста
    
    ДлительныеОперацииКлиент.ОжидатьЗавершение(
    ДлительнаяОперация,
    Новый ОписаниеОповещения("ПечатьЗавершение", ЭтотОбъект),
    ПараметрыОжидания);

КонецПроцедуры

&НаСервере
Функция ПечатьВФоне(СсылкаНаОбъект)
    ОбъектВПФ=РеквизитФормыВЗначение("Объект");
    ////////////СсылкаНаВПФ=Справочники.ДополнительныеОтчетыИОбработки.НайтиПоРеквизиту("ИмяОбъекта","ВПФФоном");
    СсылкаНаВПФ=Параметры.ДополнительнаяОбработкаСсылка;
    Макет=ОбъектВПФ.ПолучитьМакет("МакетПечати");
    
    //Это что вызываем
    ПараметрыЗадания = Новый Структура;
    ПараметрыЗадания.Вставить("ИмяОбработки", "ВнешняяОбработка.ВПФФономИсторияОбъекта");
    ПараметрыЗадания.Вставить("ИмяМетода", "Печать");
    ПараметрыЗадания.Вставить("ПараметрыВыполнения", Новый Структура("СсылкаНаОбъект,Макет", СсылкаНаОбъект,Макет));
    ПараметрыЗадания.Вставить("ЭтоВнешняяОбработка", Истина);
    ПараметрыЗадания.Вставить("ДополнительнаяОбработкаСсылка",СсылкаНаВПФ);
    
    //Это как вызываем
    ПараметрыВыполнения = ДлительныеОперации.ПараметрыВыполненияВФоне(УникальныйИдентификатор);
    ПараметрыВыполнения.НаименованиеФоновогоЗадания = "Запуск длительного формирования ВПФ";;
    ПараметрыВыполнения.ЗапуститьВФоне = Истина;
    ПараметрыВыполнения.ОжидатьЗавершение=0.1;    //Нет смысла ждать!!!
    
    //запускаем выполнение фонового задания
    Возврат ДлительныеОперации.ВыполнитьВФоне("ДлительныеОперации.ВыполнитьПроцедуруМодуляОбъектаОбработки", ПараметрыЗадания, ПараметрыВыполнения);
КонецФункции // ЗапуститьФормированиеВПФ()
 

&НаКлиенте
Процедура ПечатьЗавершение(Результат, ДополнительныеПараметры) Экспорт
     Если Результат = Неопределено Тогда
        Возврат;
    ИначеЕсли Результат.Статус = "Ошибка" Тогда
        ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат.ПодробноеПредставлениеОшибки);
    ИначеЕсли Результат.Статус = "Выполнено" Тогда
        ТабДок=ПолучитьИзВременногоХранилища(Результат.АдресРезультата);
        ТабДок.Показать();
    КонецЕсли;    
КонецПроцедуры

Если СокрЛП(Ст) = "Заробітна плата" Тогда

... = НСтр(.......)

Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
|    Хозрасчетный.Регистратор КАК РегистраторБух,
|    СУММА(Хозрасчетный.Сумма) КАК СуммаБух,
|    партионный .Регистратор КАК РегистраторРег,
|    СУММА(партионный .СуммаВзаиморасчетов) КАК СуммаРег
|ИЗ
|    РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
// Выберем все чтобы попали Регистраторы у которых движения только по одному учетному механизму (бух или Рег)
|        ПОЛНОЕ СОЕДИНЕНИЕ РегистрНакопления.партионный КАК партионный 
|        ПО Хозрасчетный.Регистратор = партионный .Регистратор
|
 // если у одного Регистратора несколько движений получим одно (итоговая сумма) 
// ??? если есть сторнировки ???
|СГРУППИРОВАТЬ ПО                    
|    Хозрасчетный.Регистратор,
|    партионный .Регистратор";

&НаКлиенте
//Замена стандартного выбора элементов
Процедура ХХХХХХХХХХХХХХХНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;

ВариантыВыбора = СписокМоихЗачений();

    Оповещение = Новый ОписаниеОповещения("ВыполнитьПослеВыбораНужного", ЭтотОбъект,  Элемент);

        ПоказатьВыборИзСписка(Оповещение, ВариантыВыбора, Элемент);

//*************

&НаКлиенте
Процедура ВыполнитьПослеВыбораНужного(РезультатВыбора, ДополнительныеПараметры) Экспорт
    
    Если РезультатВыбора = Неопределено Тогда
        Возврат;
    КонецЕсли;
    
    Объект.МойРеквизит= РезультатВыбора.Значение;
    
КонецПроцедуры

&НаСервер
Функция СписокМоихЗачений()
    
    ВариантыВыбора = Новый СписокЗначений();

//заполнить как надо - например запросом
    
    ВариантыВыбора.Добавить(НужноеМнеЗначение_1, "Представление нужного мне значения № 1 для отображения при выборе");

    Возврат ВариантыВыбора;
    
КонецФункции