Загрузка данных


// --- ОБЩАЯ СЕРВЕРНАЯ ФУНКЦИЯ ДЛЯ СОХРАНЕНИЯ ---
&НаСервереБезКонтекста
Функция СохранитьДанныеНаСервере(Ставка, Заказ, Учет)
    Если Заказ >= 0 Тогда
        Константы.СтавкаНДС.Установить(Ставка);
        Константы.МинимальныйЗаказ.Установить(Заказ);
        Константы.ВалютаУчета.Установить(Учет);
        Возврат Истина; // Всё сохранилось успешно
    Иначе
        Сообщить("Минимальный заказ не может быть меньше нуля!");
        Возврат Ложь;   // Ошибка, сохранять нельзя
    КонецЕсли;
КонецФункции


// --- КОД ДЛЯ КНОПКИ "ВНЕСТИ" ---
&НаКлиенте
Процедура Внести(Команда)
    // Вызываем общую функцию сохранения
    Если СохранитьДанныеНаСервере(РеквизитСтавкаНДС, РеквизитМинимальныйЗаказ, РеквизитВалютаУчета) Тогда
        Сообщить("Данные записаны"); // Сообщаем об успехе
    КонецЕсли;
КонецПроцедуры


// --- КОД ДЛЯ КНОПКИ "ЗАПИСАТЬ И ЗАКРЫТЬ" ---
&НаКлиенте
Процедура ЗаписатьИЗакрыть(Команда)
    // Вызываем ту же самую общую функцию сохранения
    Если СохранитьДанныеНаСервере(РеквизитСтавкаНДС, РеквизитМинимальныйЗаказ, РеквизитВалютаУчета) Тогда
        Закрыть(); // Если сохранилось — закрываем форму
    КонецЕсли;
КонецПроцедуры


// --- КОД ДЛЯ ЗАГРУЗКИ ДАННЫХ ПРИ ОТКРЫТИИ ФОРМЫ (если нужно) ---
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    РеквизитСтавкаНДС = Константы.СтавкаНДС.Получить();
    РеквизитМинимальныйЗаказ = Константы.МинимальныйЗаказ.Получить();
    РеквизитВалютаУчета = Константы.ВалютаУчета.Получить();
КонецПроцедуры