Контроль заполнения и очистка дат в зависимости от значения перечислений

Запись от Maks размещена 12.04.2026 в 07:06. Обновил(-а) Maks 19.04.2026 в 14:56

Показов 3373 Комментарии 0

Метки 1с, даты, ка2, перечисления

Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2.
Задача: реализовать контроль корректности заполнения дат назначения сотрудников в зависимости от их статуса (Перечисления.СтатусСотрудника):
Для постоянного назначения(Перечисления.СтатусСотрудника .Постоянно) даты начала и окончания обнуляются (не используются);
Для временного назначения(Перечисления.СтатусСотрудника .Временно):
- обязательно требуется дата начала и дата окончания;
- проверяется, что дата начала ≤ даты окончания;
При изменении статуса автоматически:
- если статус становится не "временно"(Перечисления.СтатусСотрудника .Временно) — даты очищаются.

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    СтатусВременно = ПредопределенноеЗначение("Перечисление.СтатусСотрудника.Временно");
    СтатусПостоянно = ПредопределенноеЗначение("Перечисление.СтатусСотрудника.Постоянно");  
    Для Каждого Строка Из Объект.Сотрудники Цикл   
        Статус = Строка.СтатусНазначения;
        // Обнуляем дату окончания, если статус сотрудника "Постоянно"
        Если Статус = СтатусПостоянно Тогда
            Строка.ДатаНачала = Дата(1,1,1);
            Строка.ДатаОкончания = Дата(1,1,1);
            Продолжить;
        КонецЕсли;
        // Контроль заполнения дат, если статус сотрудника "Временно"
        Если Статус = СтатусВременно Тогда
            Если НЕ ЗначениеЗаполнено(Строка.ДатаНачала) Тогда
                Отказ = Истина;
                Сообщить("Необходимо указать дату начала!");
                Возврат;
            КонецЕсли;
            Если НЕ ЗначениеЗаполнено(Строка.ДатаОкончания) Тогда
                Отказ = Истина;
                Сообщить("Необходимо указать дату окончания!");
                Возврат;
            КонецЕсли;
        КонецЕсли;
        // Контроль разности дат
        Если ЗначениеЗаполнено(Строка.ДатаНачала)
           И ЗначениеЗаполнено(Строка.ДатаОкончания)
           И НачалоДня(Строка.ДатаНачала) > НачалоДня(Строка.ДатаОкончания) Тогда
            Отказ = Истина;
            Сообщить("Дата начала не может быть больше даты окончания!");            
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
 
&НаКлиенте
Процедура СотрудникиСтатусНазначенияПриИзменении(Элемент)     
    ТД = Элементы.Сотрудники.ТекущиеДанные;
    Если ТД = Неопределено Тогда
        Возврат;
    КонецЕсли;    
    СтатусВременно = ПредопределенноеЗначение("Перечисление.СтатусСотрудника.Временно");
    // Очищаем даты планирования, если статус сотрудника отличен от статуса "Временно"
    Если ТД.СтатусНазначения <> СтатусВременно Тогда
        ТД.ДатаНачала = Дата(1,1,1);  
        ТД.ДатаОкончания = Дата(1,1,1);
    КонецЕсли;     
КонецПроцедуры

Метки 1с, даты, ка2, перечисления

Размещено в 1С

« Подстановка значения реквизита справочника в табличную часть документа Главная страница Оптимизация кода на разграничение прав доступа к элементам формы »

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

Всего комментариев 0

Комментарии

Maks

Регистрация 13.03.2013
Адрес Тюменская область
Сообщений 19,164
Записей в блоге 63

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

Наверх

Сообщение форума

Отменить изменения