Как исправить алгоритм контроля итогов по сотрудникам и организации в 1С?

В этой теме 1 ответ, 2 участника, последнее обновление 7 часов, 28 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

20 апреля 2026 в 11:46 #36678
Odineski
Участник
// 3440. Резерв отпусков — исправление алгоритма
&НаКлиенте
Процедура ТВСЗ_КонтрольИтоговПоСотрудникамИОрганизации()

Перем ЕстьОшибка, ИменаСверяемыхИтогов, ИмяРеквизита, ИтогСумма, ИтогСуммаПоСотрудникам, Разница, ТекстПредупреждения,
Шаблон;

ЕстьОшибка = Ложь;
ТекстПредупреждения = Новый Массив;
ТекстПредупреждения.Добавить(НСтр(«ru = ‘Найдено расхождение оценочных обязательств по сотрудникам с общими суммами по организации'»));

ИменаСверяемыхИтогов = НовыйИменаСверяемыхИтогов();
Для Каждого ИмяРеквизита Из ИменаСверяемыхИтогов Цикл

ИтогСумма = Объект.ОценочныеОбязательства.Итог(ИмяРеквизита.Ключ);
ИтогСуммаПоСотрудникам = Объект.ОценочныеОбязательстваПоСотрудникам.Итог(ИмяРеквизита.Ключ);
Разница = ИтогСумма — ИтогСуммаПоСотрудникам;
Если Разница <> 0 Тогда
ЕстьОшибка = Истина;
Шаблон = НСтр(«ru = ‘Разница в »%1» по колонке »%2» между:
|»%3» (по организация) и »%4» (по сотрудникам)'»);
ТекстПредупреждения.Добавить(СтрШаблон(Шаблон, Разница, ИмяРеквизита.Значение, ИтогСумма, ИтогСуммаПоСотрудникам));
КонецЕсли;

КонецЦикла;
ТекстПредупреждения.Добавить(НСтр(«ru = ‘Исправьте даную ошибку для согласования данных по оценочным обязательствам'»));

Если ЕстьОшибка Тогда
ПоказатьПредупреждение(Неопределено, СтрСоединить(ТекстПредупреждения, Символы.ПС), ,
НСтр(«ru = ‘Внимание ошибка контроля итогов'»));
КонецЕсли;

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

20 апреля 2026 в 11:46 #36679

Odin — Одинэсник

Участник

Вот улучшенный и более читаемый вариант твоей процедуры с небольшими доработками:

&НаКлиенте
Процедура ТВСЗ_КонтрольИтоговПоСотрудникамИОрганизации()

    ЕстьОшибка = Ложь;
    ТекстПредупреждения = Новый Массив;
    ТекстПредупреждения.Добавить("Найдено расхождение оценочных обязательств по сотрудникам с общими суммами по организации");

    ИменаСверяемыхИтогов = НовыйИменаСверяемыхИтогов();

    Для Каждого ИмяРеквизита Из ИменаСверяемыхИтогов Цикл

        ИтогСумма              = Объект.ОценочныеОбязательства.Итог(ИмяРеквизита.Ключ);
        ИтогСуммаПоСотрудникам = Объект.ОценочныеОбязательстваПоСотрудникам.Итог(ИмяРеквизита.Ключ);
        Разница                = ИтогСумма - ИтогСуммаПоСотрудникам;

        // Сравниваем с учетом небольшой погрешности для чисел с плавающей точкой
        Если Абс(Разница) > 0.0001 Тогда
            ЕстьОшибка = Истина;
            Шаблон = "Разница в '%1' по колонке '%2' между:" + Символы.ПС +
                      "'%3' (по организации) и '%4' (по сотрудникам)";
            ТекстПредупреждения.Добавить(СтрШаблон(Шаблон, Формат(Разница, "ЧГ=15; ЧД=2"), ИмяРеквизита.Значение, 
                Формат(ИтогСумма, "ЧГ=15; ЧД=2"), Формат(ИтогСуммаПоСотрудникам, "ЧГ=15; ЧД=2")));
        КонецЕсли;

    КонецЦикла;

    ТекстПредупреждения.Добавить("Исправьте данную ошибку для согласования данных по оценочным обязательствам");

    Если ЕстьОшибка Тогда
        ПоказатьПредупреждение(Неопределено, СтрСоединить(ТекстПредупреждения, Символы.ПС), , "Внимание: ошибка контроля итогов");
    КонецЕсли;

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

&НаКлиенте

Процедура ТВСЗ_КонтрольИтоговПоСотрудникамИОрганизации()

ЕстьОшибка = Ложь;

ТекстПредупреждения = Новый Массив;

ТекстПредупреждения.Добавить("Найдено расхождение оценочных обязательств по сотрудникам с общими суммами по организации");

ИменаСверяемыхИтогов = НовыйИменаСверяемыхИтогов();

Для Каждого ИмяРеквизита Из ИменаСверяемыхИтогов Цикл

ИтогСумма = Объект.ОценочныеОбязательства.Итог(ИмяРеквизита.Ключ);

ИтогСуммаПоСотрудникам = Объект.ОценочныеОбязательстваПоСотрудникам.Итог(ИмяРеквизита.Ключ);

Разница = ИтогСумма - ИтогСуммаПоСотрудникам;

// Сравниваем с учетом небольшой погрешности для чисел с плавающей точкой

Если Абс(Разница) > 0.0001 Тогда

ЕстьОшибка = Истина;

Шаблон = "Разница в '%1' по колонке '%2' между:" + Символы.ПС +

"'%3' (по организации) и '%4' (по сотрудникам)";

ТекстПредупреждения.Добавить(СтрШаблон(Шаблон, Формат(Разница, "ЧГ=15; ЧД=2"), ИмяРеквизита.Значение,

Формат(ИтогСумма, "ЧГ=15; ЧД=2"), Формат(ИтогСуммаПоСотрудникам, "ЧГ=15; ЧД=2")));

КонецЕсли;

КонецЦикла;

ТекстПредупреждения.Добавить("Исправьте данную ошибку для согласования данных по оценочным обязательствам");

Если ЕстьОшибка Тогда

ПоказатьПредупреждение(Неопределено, СтрСоединить(ТекстПредупреждения, Символы.ПС), , "Внимание: ошибка контроля итогов");

КонецЕсли;

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

Что улучшено:

— Добавлена проверка с учетом погрешности (0.0001) для сравнения чисел с плавающей точкой, чтобы избежать ложных срабатываний из-за незначительных расхождений.
— Использован Формат для вывода чисел с двумя знаками после запятой и выравниванием, чтобы предупреждения были более читаемыми.
— Убраны лишние переносы строк в шаблоне, заменены на Символы.ПС для корректного переноса.
— Немного улучшена читаемость кода (отступы, пробелы).

Если хочешь, могу помочь с оптимизацией функции НовыйИменаСверяемыхИтогов() или других частей.

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?