From 71e56dcecd86eeca6aae949d0a881cdde52e3fb1 Mon Sep 17 00:00:00 2001 From: mihailkudravcev Date: Thu, 20 Aug 2026 14:49:22 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=9A=5F=D0=9F=D1=80=D0=BE=D0=B2=D0=B5?= =?UTF-8?q?=D1=80=D0=BA=D0=B0=D0=A1=D0=B5=D1=80=D0=B8=D0=B9=201.3.1.100:?= =?UTF-8?q?=20=D0=BF=D0=BE=D0=BC=D0=B5=D1=82=D0=BA=D0=B0=20=D0=B4=D1=83?= =?UTF-8?q?=D0=B1=D0=BB=D0=B5=D0=B9=20=D0=BD=D0=B0=20=D1=83=D0=B4=D0=B0?= =?UTF-8?q?=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5=20(#15)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Co-authored-by: Cursor --- CHANGELOG.md | 7 ++++ VERSION | 2 +- src/ConfigDumpInfo.xml | 1 + src/Configuration.xml | 2 +- src/DataProcessors/РК_ПроверкаСерий.xml | 39 +++++++++++++++++++ .../РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml | 15 +++++++ .../Forms/Форма/Ext/Form/Module.bsl | 24 ++++++++++++ 7 files changed, 88 insertions(+), 2 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index f9b647c..9f41c81 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -4,6 +4,13 @@ --- +## 1.3.1.100 (2026-08-20) + +### РК_ПроверкаСерий — пометка дублей на удаление (#15) + +- Добавлен сохраняемый реквизит формы `Помечать дубли серии на удаление`. +- При объединении (не в режиме теста), если настройка включена, после `ЗаменитьСсылки` не-мастер серии помечаются на удаление. + ## 1.3.1.99 (2026-08-20) ### РК_ЗагрузкаЦен — актуальные цены из исходной ИБ (#18) diff --git a/VERSION b/VERSION index 247872d..03fa7fa 100644 --- a/VERSION +++ b/VERSION @@ -1 +1 @@ -1.3.1.99 +1.3.1.100 diff --git a/src/ConfigDumpInfo.xml b/src/ConfigDumpInfo.xml index 53c5163..80b8d60 100644 --- a/src/ConfigDumpInfo.xml +++ b/src/ConfigDumpInfo.xml @@ -261,6 +261,7 @@ + diff --git a/src/Configuration.xml b/src/Configuration.xml index 96258fe..10ae581 100644 --- a/src/Configuration.xml +++ b/src/Configuration.xml @@ -62,7 +62,7 @@ Role.РК_ОсновнаяРоль - 1.3.1.99 + 1.3.1.100 Language.Русский diff --git a/src/DataProcessors/РК_ПроверкаСерий.xml b/src/DataProcessors/РК_ПроверкаСерий.xml index 3eeae5b..09aeca4 100644 --- a/src/DataProcessors/РК_ПроверкаСерий.xml +++ b/src/DataProcessors/РК_ПроверкаСерий.xml @@ -119,6 +119,45 @@ Auto + + + ПомечатьДублиСерииНаУдаление + + + ru + Помечать дубли серии на удаление + + + + + xs:boolean + + false + + + + + ru + После замены ссылок помечать не-мастер серии группы на удаление + + + false + + false + false + + + DontCheck + Items + + + Auto + Auto + + + Auto + + diff --git a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml index 3bc9b8f..5ebc8fb 100644 --- a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml +++ b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form.xml @@ -26,6 +26,20 @@ + + Объект.ПомечатьДублиСерииНаУдаление + Right + + + ru + После успешной замены ссылок помечать не-мастер серии на удаление + + + ShowRight + Auto + + + <v8:item> @@ -587,6 +601,7 @@ <MainAttribute>true</MainAttribute> <Save> <Field>Объект.ГоденДоПоУмолчанию</Field> + <Field>Объект.ПомечатьДублиСерииНаУдаление</Field> </Save> </Attribute> <Attribute name="ТекстПоследнейОшибки" id="2"> diff --git a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl index 7f5ca98..6bb5d76 100644 --- a/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl +++ b/src/DataProcessors/РК_ПроверкаСерий/Forms/Форма/Ext/Form/Module.bsl @@ -1628,8 +1628,15 @@ СтрГруппа.Объединено = Истина; Результат.ОбъединеноСсылок = Результат.ОбъединеноСсылок + Заменяемые.Количество(); Результат.ОбъединеноГрупп = Результат.ОбъединеноГрупп + 1; + Если Объект.ПомечатьДублиСерииНаУдаление Тогда + СтрГруппа.Комментарий = "Тест: ссылки заменены, дубли были бы помечены на удаление (" + + Формат(Заменяемые.Количество(), "ЧН=0; ЧГ=0") + ")"; + КонецЕсли; Иначе ОбщегоНазначения.ЗаменитьСсылки(Заменяемые); + Если Объект.ПомечатьДублиСерииНаУдаление Тогда + ПометитьДублиСерииНаУдаление(Заменяемые); + КонецЕсли; СтрГруппа.Объединено = Истина; Результат.ОбъединеноСсылок = Результат.ОбъединеноСсылок + Заменяемые.Количество(); Результат.ОбъединеноГрупп = Результат.ОбъединеноГрупп + 1; @@ -1645,4 +1652,21 @@ КонецФункции +&НаСервере +Процедура ПометитьДублиСерииНаУдаление(Заменяемые) + + Для Каждого КлючИЗначение Из Заменяемые Цикл + СерияДубль = КлючИЗначение.Ключ; + Если Не ЗначениеЗаполнено(СерияДубль) Тогда + Продолжить; + КонецЕсли; + ОбСерии = СерияДубль.ПолучитьОбъект(); + Если ОбСерии = Неопределено Или ОбСерии.ПометкаУдаления Тогда + Продолжить; + КонецЕсли; + ОбСерии.УстановитьПометкуУдаления(Истина); + КонецЦикла; + +КонецПроцедуры + #КонецОбласти