Ресурс ВНаличии допускает три дробных знака. Сравниваем учебное входное число с правилом точности, не получаем и не записываем остаток.
Где и как запускать
Учебная база: создайте серверный общий модуль УчебныеЗадачи (флаг Сервер). Код без директив вставьте в тело процедуры ВыполнитьПример() Экспорт. Вызовите её из серверного обработчика команды учебной обработки. Не запускайте в рабочей базе.
Подготовка
Запускайте в учебной копии конфигурации. Примеры читают структуру метаданных, но не создают объекты, не записывают регистры и не проводят документы.
Сверяйте вывод с деревом конфигурации в Конфигураторе. Имена, длины и настройки в УНФ, КА2, БП, УТ 11 и УТ 10.3 могут различаться.
Имена объектов взяты из XML КА2 Progress: C:\claude\KA2\Progress\XML_CF_KA2_PROGRESS. Исходные XML не изменяйте. Выполняйте код только в своей учебной копии соответствующей конфигурации.
В другой конфигурации предварительно найдите аналогичный объект в Конфигураторе и замените только строку имени в поиске. Отсутствие имени обрабатывается до чтения свойств; оно не доказывает отсутствие аналогичной возможности.
Каждый урок запускайте отдельно. Код не вызывает бизнес-функции модулей и обработчики команд, не переключает привилегированный режим и не меняет параметры сеанса.
Регистр = Метаданные.РегистрыНакопления.Найти("ТоварыНаСкладах");
Если Регистр = Неопределено Тогда
ВызватьИсключение "В учебной конфигурации отсутствует РегистрыНакопления.ТоварыНаСкладах";
КонецЕсли;
Ресурс = Регистр.Ресурсы.Найти("ВНаличии");
Если Ресурс = Неопределено Тогда
ВызватьИсключение "В ТоварыНаСкладах отсутствует ресурс ВНаличии";
КонецЕсли;
Если Не Ресурс.Тип.СодержитТип(Тип("Число")) Тогда
ВызватьИсключение "Учебный ресурс перестал быть числовым";
КонецЕсли;
Квалификаторы = Ресурс.Тип.КвалификаторыЧисла;
Сообщить(Квалификаторы.Разрядность = 15);
Сообщить(Квалификаторы.РазрядностьДробнойЧасти = 3);
КоличествоИзОбмена = 2.345678;
ПослеОкругления = Окр(КоличествоИзОбмена, Квалификаторы.РазрядностьДробнойЧасти);
Сообщить(ПослеОкругления = 2.346);
Сообщить(ПослеОкругления <> КоличествоИзОбмена);
Сообщить("Назначение ресурса: " + Ресурс.Подсказка);Разбор по шагам
Находим регистр и конкретный ресурс, проверяя оба поиска.
Сначала проверяем числовой тип, затем читаем разрядность и дробную часть.
Округляем собственное число только в памяти и явно показываем потерю исходной точности.
Для реальной загрузки отдельно согласуйте отказ от лишних знаков или разрешённое округление; молча не меняйте внешние данные.
Как проверить результат
По XML четыре сравнения Истина: 15/3, число 2.346 и отличие от исходного 2.345678.
В коде нет запроса остатков, набора записей или записи движения; таблицы базы остаются прежними.
Ожидаемый результат
Определён контракт дробности количества и показано последствие округления.
На что обратить внимание
Разрядность не задаёт единицу измерения товара.
Чтение типа ВНаличии не является проверкой свободного остатка с учётом резервов.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.