Глобальный контекст.ПоказатьВводДаты

ПоказатьВводДаты: выбрать собственный день доставки и посчитать итог

Выбираем только дату с 6 по 12 октября 2026. Для собственного расчёта после 7 октября доставка 100, иначе 0; реальные заказы не затрагиваются.

Подготовка

1. В отдельной учебной базе платформы 8.5.1.1343 создайте внешнюю обработку УчебнаяФорма85 с пустой управляемой основной формой. Используйте тонкий клиент Windows.

2. В свойствах формы → События назначьте ПриСозданииНаСервере. Вставьте полный модуль урока, включая клиентские и серверные помощники, на уровне модуля.

3. Не создавайте вручную ЗначениеПримера, ПолеПримера и кнопку: код создаёт их полностью. Каждый урок запускайте в отдельной копии своей формы.

4. Сохраните свою EPF и откройте её в учебной базе. Собственное количество начинается с 3, цена книги задана в коде как 250; исходный расчёт равен 750.

5. Связанный реквизит помечен как СохраняемыеДанные для изучения поведения формы. Это признак реквизита формы, а не автоматическая запись книги, файла или документа в базу.

6. Команда расчёта имеет ИзменяетСохраняемыеДанные = Ложь. Уроки изменяют только свой интерфейс и значения собственной формы, не конфигурацию и не рабочие данные.

7. Запуск и вид в 1С не проверены. Компоновку, сочетания клавиш и расположение команд осмотрите вручную в указанном клиенте; не переносите настройки на рабочие формы без отдельной проверки.

8. В этой партии каждое окно ввода запускает собственная кнопка УчебноеДействие. Изучайте один полный модуль за раз; никакие значения ввода не исполняются как код.

Перем АктивныйЗапрос;

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Новые = Новый Массив;
    ТипРеквизита = Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(2, 0, ДопустимыйЗнак.Неотрицательный));
    Новые.Добавить(Новый РеквизитФормы("ЗначениеПримера", ТипРеквизита, "", "Количество книг", Истина));
    ЭтаФорма.ИзменитьРеквизиты(Новые);
    ЭтаФорма.ЗначениеПримера = 3;
    Поле = Элементы.Добавить("ПолеПримера", Тип("ПолеФормы"));
    Поле.Вид = ВидПоляФормы.ПолеВвода;
    Поле.ПутьКДанным = "ЗначениеПримера";
    Поле.Заголовок = "Количество собственных книг";


    КомандаДействия = ЭтаФорма.Команды.Добавить("УчебноеДействие");
    КомандаДействия.Действие = "УчебноеДействие";
    КомандаДействия.Заголовок = "Выполнить собственный учебный шаг";
    КомандаДействия.Подсказка = "Действие только над данными учебной формы";
    КомандаДействия.ИзменяетСохраняемыеДанные = Ложь;
    Кнопка = Элементы.Добавить("КнопкаУчебноеДействие", Тип("КнопкаФормы"));
    Кнопка.ИмяКоманды = КомандаДействия.Имя;
    Кнопка.Заголовок = КомандаДействия.Заголовок;
КонецПроцедуры

&НаКлиенте
Процедура УчебноеДействие(Команда)
    ДоВвода = ЗначениеПримера;
    Маркер = Новый УникальныйИдентификатор;
    КонтекстВвода = Новый Структура("Маркер,ДоВвода", Маркер, ДоВвода);
    АктивныйЗапрос = Маркер;
    Оповещение = Новый ОписаниеОповещения("ПослеСобственногоВвода", ЭтаФорма, КонтекстВвода);
    Попытка
        ПоказатьВводДаты(Оповещение, Дата(2026, 10, 6), "День собственной доставки: с 6 по 12 октября 2026", ЧастиДаты.Дата);
    Исключение
        АктивныйЗапрос = Неопределено;
        ВызватьИсключение;
    КонецПопытки;
    Сообщить("Запрос ввода сделан; результат обрабатывается только в процедуре завершения");

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

&НаКлиенте
Процедура ПроверитьСобственноеКоличество()
    Если ТипЗнч(ЗначениеПримера) <> Тип("Число") Тогда
        ВызватьИсключение "Собственное количество должно быть числом";
    КонецЕсли;
    Если ЗначениеПримера < 1 ИЛИ ЗначениеПримера > 10 ИЛИ ЗначениеПримера <> Цел(ЗначениеПримера) Тогда
        ВызватьИсключение "Нужно собственное целое количество от 1 до 10";
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура ПослеСобственногоВвода(Введено, ДополнительныеПараметры) Экспорт
    Если Не ЭтаФорма.Открыта() Тогда
        Возврат;
    КонецЕсли;
    Если ДополнительныеПараметры.Маркер <> АктивныйЗапрос Тогда
        Сообщить("Устаревший ответ собственного диалога не применяется");
        Возврат;
    КонецЕсли;
    АктивныйЗапрос = Неопределено;
    ДоВвода = ДополнительныеПараметры.ДоВвода;
    Если Введено = Неопределено Тогда
        Сообщить("Отмена: собственные данные не менялись");
        Возврат;
    КонецЕсли;
    Если ЗначениеПримера <> ДоВвода Тогда
        Сообщить("Количество изменилось за время диалога. Повторите ввод для актуальной заявки");
        Возврат;
    КонецЕсли;
    Если ТипЗнч(Введено) <> Тип("Дата") Тогда
        ВызватьИсключение "Для собственной доставки нужна дата";
    КонецЕсли;
    День = НачалоДня(Введено);
    Если День < Дата(2026, 10, 6) Или День > Дата(2026, 10, 12) Тогда
        ВызватьИсключение "Для урока выберите день с 6 по 12 октября 2026 включительно";
    КонецЕсли;
    ПроверитьСобственноеКоличество();
    Доставка = 0;
    Если День > Дата(2026, 10, 7) Тогда
        Доставка = 100;
    КонецЕсли;
    СуммаКниг = ЗначениеПримера * 250;
    Итого = СуммаКниг + Доставка;
    Сообщить(Итого - Доставка = СуммаКниг);
    Сообщить(ЗначениеПримера = ДоВвода);
    Сообщить(СтрШаблон("Собственный день %1; книги %2; доставка %3; итого %4", Формат(День, "ДФ=yyyy-MM-dd"), СуммаКниг, Доставка, Итого));

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

Разбор по шагам

1. Передать фиксированную собственную дату 6 октября 2026 и ЧастиДаты.Дата. Это не текущий момент компьютера и не дата рабочего документа.

2. Ввод возвращается в экспортную клиентскую процедуру вместе с маркером и снимком своего количества.

3. Отмену обрабатывать до НачалоДня. Подтверждённое значение проверить как Дата и явно нормализовать до дня.

4. Допустить лишь 6–12 октября включительно. Своё правило доставки проверяется после нормализации, поэтому скрытая часть времени не меняет его.

5. Сложить сумму собственных книг и стоимость доставки; сохранить прежнее количество и вывести полный разбор чисел.

Как проверить результат

1. При количестве 3 для 6/7 октября итог 750; для 8–12 октября 850. Две Истина в обоих случаях.

2. Отмена не запускает расчёт. 5/13 октября отвергаются до получения успешного итога; маркер очищен до обработки и новый запрос допустим.

Ожидаемый результат

Датовый callback применён к завершённой задаче с границами диапазона и отдельной нормализацией времени.

На что обратить внимание

1. ПоказатьВводДаты получает результат через параметр обработчика. Строка returnDescription в справке не используется для выдумывания обычного Булево-ответа у процедуры.

2. ЧастиДаты.Дата — ограничение ввода; НачалоДня явно задаёт используемый в своём правиле день.

3. Цена доставки 100 — собственное учебное условие, не проверенный тариф перевозчика. Никаких заказов и оплат код не создаёт.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.