Регистры сведений
Изменение уже существующей записи (первой)
&НаСервере
Функция ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Выборка = РегистрыСведений.SFXНастройкиАТП.Выбрать();
Если Выборка.Следующий() Тогда
// чтение существующей
МенеджерЗаписи = Выборка.ПолучитьМенеджерЗаписи();
МенеджерЗаписи.Прочитать();
КонецЕсли;
//Инициализация реквизита формы : ОписанияТиповВидовСубконто
ОписанияТиповВидовСубконто = Новый Структура;
ОписанияТиповВидовСубконто.Вставить("Номенклатура" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура.ТипЗначения);
ОписанияТиповВидовСубконто.Вставить("Склад" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады.ТипЗначения);
ОписанияТиповВидовСубконто.Вставить("Контрагент" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты.ТипЗначения);
ОписанияТиповВидовСубконто.Вставить("ДоговорКонтрагента" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры.ТипЗначения);
ОписанияТиповВидовСубконто.Вставить("Партия" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии.ТипЗначения);
ОписанияТиповВидовСубконто.Вставить("ДокументРасчетовСКонтрагентами", ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами.ТипЗначения);
КонецФункции
&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
Отказ = Истина;
Выборка = РегистрыСведений.SFXНастройкиАТП.Выбрать();
Если Выборка.Следующий() Тогда
// изменение существующей
МенеджерЗаписи = Выборка.ПолучитьМенеджерЗаписи();
МенеджерЗаписи.Прочитать();
//Перезаписать поля существующей записи
МенеджерЗаписи.Автовокзалы = ТекущийОбъект.Автовокзалы;
МенеджерЗаписи.ГСМ = ТекущийОбъект.ГСМ;
МенеджерЗаписи.Город = ТекущийОбъект.Город;
МенеджерЗаписи.Заказ = ТекущийОбъект.Заказ;
МенеджерЗаписи.Запчасти = ТекущийОбъект.Запчасти;
МенеджерЗаписи.Записать();
КонецЕсли;
ЭтотОбъект.Модифицированность = Ложь;
КонецПроцедуры