Ну задача написания нужного запроса сводится к следующим шагам:
Сделаем выборку записей, сгруппировав по дублирующемуся полю. Получим количество дублей, и максимальный id дубля (чтобы знать какой удалять)
Если количество записей больше 1, то запись с максимальным id удалим
В итоге запрос может получится примерно таким:
delete from ls_indications where id in (
select max_id from (
select count(ls) as cnt,max(id) as max_id from ls_indications where period='2025-03-01' group by ls
) as zxc where zxc.cnt>1
)
P.S. Если дублей больше 2-х, то запрос нужно выполнить несколько раз, т.к. он удаляет за один раз только одну дублирующуюся запись. Можно конечно наваять скрипт, который этот недостаток убирает, но смысла обычно нет, проще запрос выполнить несколько раз
Случаются ситуации, что фоновое задание запущенное пользователем, продолжает работать и после выхода самого пользователя из 1С. Как же исключить повторный запуск фонового задания пользователем? Ну и заодно показать текущий прогресс выполнения задания. На самом деле всё оказалось просто. В 1С есть функционал получения полного списка выполняемых в текущий момент фоновых заданий:
ФоновыеЗадания.ПолучитьФоновыеЗадания();
После чего остаётся только пролистать все фоновые задания, идентифицировать нужное задание и передать его идентификатор в обработчик ожидания, который собственно и отображает например прогресс бар:
&НаКлиенте
Процедура ВыгрузкаКвитанцийНаБумаге(Команда)
этаформа.ИндикаторВыгрузкаКвитанций=0;
ЗапуститьФЗВыгрузкиКвитанций();
ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник1",1,ложь);
ПодключитьОбработчикОжидания("ИндикаторВыполненияВыгрузкиКвитанцийИсточник2",1,ложь);
КонецПроцедуры
&НаСервере
Процедура ЗапуститьФЗВыгрузкиКвитанций()
Фоновые = ФоновыеЗадания.ПолучитьФоновыеЗадания();
Для Каждого Фоновое из Фоновые Цикл
если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1" тогда
если Фоновое.Состояние<>СостояниеФоновогоЗадания.ЗавершеноАварийно и Фоновое.Состояние<>СостояниеФоновогоЗадания.Завершено тогда
сообщить("-предыдущее задание еще не завершено!");
объект.ФЗ_ВыгрузкаКвитанций = Фоновое.УникальныйИдентификатор;
возврат;
конецесли;
конецесли;
если Фоновое.ИмяМетода="СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2" тогда
сообщить("-предыдущее задание еще не завершено!");
если Фоновое.Состояние<>СостояниеФоновогоЗадания.ЗавершеноАварийно и Фоновое.Состояние<>СостояниеФоновогоЗадания.Завершено тогда
сообщить("-предыдущее задание еще не завершено!");
объект.ФЗ_ВыгрузкаКвитанций2 = Фоновое.УникальныйИдентификатор;
возврат;
конецесли;
возврат;
конецесли;
конеццикла;
Парм=Новый Структура("Период,ПроверятьНаличиевБД",объект.Период,объект.ПроверятьНаличиевБД);
МассивПараметров = Новый Массив;
МассивПараметров.Добавить(Парм);
ФЗ = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник1",МассивПараметров);
объект.ФЗ_ВыгрузкаКвитанций = ФЗ.УникальныйИдентификатор;
ФЗ2 = ФоновыеЗадания.Выполнить("СК_ГР_ГеоаналитикаЗагрузки.ВыгрузитьКвитанцииВГеоаналитикуИсточник2",МассивПараметров);
объект.ФЗ_ВыгрузкаКвитанций2 = ФЗ2.УникальныйИдентификатор;
КонецПроцедуры
Т.е. если фоновое уже запущено — то просто получаем его идентификатор и отображаем прогресс бар. Если нет — запускаем
Задача: создать инструмент для распределения заявок по дням.
Решение: Наиболее удобным вариант я подумал что будет создание некого «дерева», узлами которого будут даты, а «ветвями» — заявки. Заявки можно будет перетаскивать между датами, тем самым равномерно распределяя нагрузку по дням.
Для того чтобы работать с деревьями, в 1С есть специальный тип: Дерево значений. Основной сущностностью у него являются строки. У каждой строки могут быть реквизиты (колонки). В то-же время каждая строка может иметь «потомков» — другие строки.
Создадим на форме «ДеревоОтключений» с типом «Дерево значений», и добавим у него реквизиты:
И перетащим его на форму. Далее по событию открытия, заполним дерево:
ДО = РеквизитФормыВЗначение("ДеревоОтключений");
ДО.Строки.Очистить();
Для Счетчик = 0 По Число(Сред(КонецМесяца(объект.ПериодОтключения), 1, 2)) Цикл
УДеньМесяца=ДО.Строки.Добавить();
если Счетчик=0 тогда
УДеньМесяца.ДатаОтключения="не распределено";
иначе
УДеньМесяца.ДатаОтключения=Формат(Дата(Год(объект.ПериодОтключения),Месяц(объект.ПериодОтключения),Счетчик),"ДФ=dd.MM.yyyy");
конецесли;
УДеньМесяца.expanded=false;
кол=0;
для каждого стр из МассивОтключаемых[Счетчик] цикл
ссср=УДеньМесяца.Строки.Добавить();
ссср.Отключаемый=стр;
ссср.ЛС=Строка(стр.ЛС);
ссср.Адрес=стр.АдресПотребителя;
кол=кол+1;
конеццикла;
если кол>0 тогда
УДеньМесяца.ЛС=Строка(кол);
конецесли;
КонецЦикла;
ЗначениеВРеквизитФормы(ДО,"ДеревоОтключений");
Получаем такую чудную картинку:
Теперь осталось только запретить перетаскивание во все колонки кроме «ДатаОтключения», чтобы избежать «не правильных» деревьев. Для этого заполним событие «ПриПеретаскивании»:
&НаКлиенте
Процедура ДеревоОтключенийПеретаскивание(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка, Строка, Поле)
//запретим если имя колонки куда тащим отличается от "ДатаОтключения"
если Поле.Имя<>"ДеревоОтключенийДатаОтключения" тогда
СтандартнаяОбработка=ложь;
конецесли;
//запретим если дата отключения пустая
Куда=ДеревоОтключений.НайтиПоИдентификатору(Строка);
если Куда.ДатаОтключения="" тогда
СтандартнаяОбработка=ложь;
конецесли;
//запретим перетаскивание "в корень"
если Куда.ДатаОтключения=ДеревоОтключений.НайтиПоИдентификатору(Элементы.ДеревоОтключений.ТекущаяСтрока).ПолучитьРодителя().ДатаОтключения тогда
СтандартнаяОбработка=ложь;
конецесли;
КонецПроцедуры
Для того чтобы обновить цифру с количеством «веток» в каждом узле, реализовал нечто подобное, разместив в событии «ОкончаниеПеретаскивания»:
&НаКлиенте
Процедура ДеревоОтключенийОкончаниеПеретаскивания(Элемент, ПараметрыПеретаскивания, СтандартнаяОбработка)
ОбновляюКоличествоЛС();
КонецПроцедуры
&НаКлиенте
Функция ОбновляюКоличествоЛС()
ЭлементыДерева = ДеревоОтключений.ПолучитьЭлементы();
для каждого стр из ЭлементыДерева цикл
клв=стр.ПолучитьЭлементы().Количество();
если клв<50 тогда
стр.ЛС=клв;
конецесли;
конеццикла;
КонецФункции
В рекруссию не пошел, т.к. в моём случае заведомо известно, что ветвей не более 1
Сиё может понадобиться, если необходимо ну…например вывести какую-то динамическую информацию на форму, причём со стилями не стандартными для 1С, т.е. штатными средствами 1С не выполнимыми или трудновыполнимыми.
В моём случае, я в это поле просто вывожу динамический список напоминаний. При клике на который открывается соответствующий документ.
Итак, создаём на форме реквизит «Прочие напоминания» с типом строка. Длина -0, т.е. не ограниченная. Затем перетаскиваем реквизит на форму и выбираем вид «Поле HTML документа»:
При открытии формы, заполняем HTML:
&НаСервере
Функция СформироватьСписокНапоминанийНаСервере(Исполнитель)
список_напоминаний=СК_ОбщиеФункции.СформироватьУведомленияОНапоминаемыхДатах(ложь,Исполнитель);
body="<ul>";
для каждого стр из список_напоминаний цикл
body=body+"<li><a href='"+стр.ссылка.номер+"'>"+стр.Пояснение+"</a></li>";
конеццикла;
body=body+"</ul>";
возврат body;
КонецФункции
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ПрочиеНапоминания="<html><head></head><body>"+СформироватьСписокНапоминанийНаСервере(Исполнитель)+"</body></html>";
КонецПроцедуры
Далее отлавливаем клик по полю HTML, и открываем документ:
&НаКлиенте
Процедура ПрочиеНапоминанияПриНажатии(Элемент, ДанныеСобытия, СтандартнаяОбработка)
если ДанныеСобытия.Свойство("href") тогда
РазделёныйМассивСсылки=СтрРазделить(ДанныеСобытия.href,"/");
НомерДокумента=РазделёныйМассивСсылки[РазделёныйМассивСсылки.Количество()-1];
ОткрытьЗначение(ПолучитьСсылкуНаДокумент(НомерДокумента));
конецесли;
СтандартнаяОбработка=ложь;
КонецПроцедуры
