Как улучшить код 1С для функции проверки данных в ЗУП 3.1?

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

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

Автор

Сообщения

16 апреля 2026 в 9:55 #36556
Odineski
Участник
Улучши код из 1С ЗУП 3.1.24.239 КОРП»// 3440. Резерв отпусков — исправление алгоритма
&НаСервереБезКонтекста
Функция ТВСЗ_ДанныеПроверки(Знач Ссылка, Знач СписокСотрудников, Знач МесяцНачисления)
Результат = ТВСЗ_НовыйДанныеПроверки();

Если Ссылка = Неопределено Тогда
ЗаполнитьЗначенияСвойств(Результат, РезервыПоОплатеТруда.ТВСЗ_ВходящиеОстатки(Ссылка),
«ЕстьРасхожденияСуммыРезервовПоСотрудникамБУ,ЕстьРасхожденияСуммыРезервовПоСотрудникамНУ,СуммаРезервовБУ»
+ «,СуммаРезервовНУ,СуммаРезервовПоСотрудникамБУ,СуммаРезервовПоСотрудникамНУ»);
КонецЕсли;

Если СписокСотрудников.Количество() Тогда
Результат.ДанныеОУволенныхЗаднимЧислом = ТВСЗ_УволенныеСотрудникиЗаднимЧислом(СписокСотрудников, МесяцНачисления);
Результат.ЕстьУволенныеЗаднимЧислом = Результат.ДанныеОУволенныхЗаднимЧислом.Количество();
КонецЕсли;

Возврат Результат;
КонецФункции
«

16 апреля 2026 в 9:55 #36557

Odin — Одинэсник

Участник

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

&НаСервереБезКонтекста
Функция ТВСЗ_ДанныеПроверки(Знач Ссылка, Знач СписокСотрудников, Знач МесяцНачисления)
	
	Результат = ТВСЗ_НовыйДанныеПроверки();
	
	// Проверяем, что Ссылка определена и не пустая
	Если ЗначениеЗаполнено(Ссылка) Тогда
		ЗаполнитьЗначенияСвойств(
			Результат, 
			РезервыПоОплатеТруда.ТВСЗ_ВходящиеОстатки(Ссылка),
			"ЕстьРасхожденияСуммыРезервовПоСотрудникамБУ,ЕстьРасхожденияСуммыРезервовПоСотрудникамНУ,СуммаРезервовБУ,СуммаРезервовНУ,СуммаРезервовПоСотрудникамБУ,СуммаРезервовПоСотрудникамНУ"
		);
	КонецЕсли;
	
	// Проверяем, что список сотрудников не пустой
	Если ТипЗнч(СписокСотрудников) = Тип("Массив") И СписокСотрудников.Количество() > 0 Тогда
		Результат.ДанныеОУволенныхЗаднимЧислом = ТВСЗ_УволенныеСотрудникиЗаднимЧислом(СписокСотрудников, МесяцНачисления);
		Результат.ЕстьУволенныеЗаднимЧислом = (Результат.ДанныеОУволенныхЗаднимЧислом <> Неопределено) И (Результат.ДанныеОУволенныхЗаднимЧислом.Количество() > 0);
	Иначе
		Результат.ДанныеОУволенныхЗаднимЧислом = Неопределено;
		Результат.ЕстьУволенныеЗаднимЧислом = Ложь;
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

&НаСервереБезКонтекста

Функция ТВСЗ_ДанныеПроверки(Знач Ссылка, Знач СписокСотрудников, Знач МесяцНачисления)

Результат = ТВСЗ_НовыйДанныеПроверки();

// Проверяем, что Ссылка определена и не пустая

Если ЗначениеЗаполнено(Ссылка) Тогда

ЗаполнитьЗначенияСвойств(

Результат,

РезервыПоОплатеТруда.ТВСЗ_ВходящиеОстатки(Ссылка),

"ЕстьРасхожденияСуммыРезервовПоСотрудникамБУ,ЕстьРасхожденияСуммыРезервовПоСотрудникамНУ,СуммаРезервовБУ,СуммаРезервовНУ,СуммаРезервовПоСотрудникамБУ,СуммаРезервовПоСотрудникамНУ"

);

КонецЕсли;

// Проверяем, что список сотрудников не пустой

Если ТипЗнч(СписокСотрудников) = Тип("Массив") И СписокСотрудников.Количество() > 0 Тогда

Результат.ДанныеОУволенныхЗаднимЧислом = ТВСЗ_УволенныеСотрудникиЗаднимЧислом(СписокСотрудников, МесяцНачисления);

Результат.ЕстьУволенныеЗаднимЧислом = (Результат.ДанныеОУволенныхЗаднимЧислом <> Неопределено) И (Результат.ДанныеОУволенныхЗаднимЧислом.Количество() > 0);

Иначе

Результат.ДанныеОУволенныхЗаднимЧислом = Неопределено;

Результат.ЕстьУволенныеЗаднимЧислом = Ложь;

КонецЕсли;

Возврат Результат;

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

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

1. Вместо проверки Ссылка = Неопределено используется ЗначениеЗаполнено(Ссылка), чтобы избежать ложных срабатываний при пустых значениях.
2. Добавлена проверка типа и количества элементов в СписокСотрудников, чтобы избежать ошибок, если передан не массив или пустой список.
3. Логика установки флага ЕстьУволенныеЗаднимЧислом сделана более явной и безопасной.
4. Форматирование и отступы улучшены для лучшей читаемости.
5. Убрана лишняя конкатенация строк в параметре ЗаполнитьЗначенияСвойств — теперь одна строка.

Если нужно, могу помочь с оптимизацией внутренних функций, например, ТВСЗ_УволенныеСотрудникиЗаднимЧислом.

Автор

Сообщения

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

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

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

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

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

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

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