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

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

Показов 3349 Комментарии 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,140
Записей в блоге 63

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

Наверх

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

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