Регистры сведений

Изменение уже существующей записи (первой)

&НаСервере

Функция ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

Выборка = РегистрыСведений.SFXНастройкиАТП.Выбрать();

Если Выборка.Следующий() Тогда

// чтение существующей

МенеджерЗаписи = Выборка.ПолучитьМенеджерЗаписи();

МенеджерЗаписи.Прочитать();

КонецЕсли;

//Инициализация реквизита формы : ОписанияТиповВидовСубконто

ОписанияТиповВидовСубконто = Новый Структура;

ОписанияТиповВидовСубконто.Вставить("Номенклатура" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура.ТипЗначения);

ОписанияТиповВидовСубконто.Вставить("Склад" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады.ТипЗначения);

ОписанияТиповВидовСубконто.Вставить("Контрагент" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Контрагенты.ТипЗначения);

ОписанияТиповВидовСубконто.Вставить("ДоговорКонтрагента" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Договоры.ТипЗначения);

ОписанияТиповВидовСубконто.Вставить("Партия" , ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Партии.ТипЗначения);

ОписанияТиповВидовСубконто.Вставить("ДокументРасчетовСКонтрагентами", ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.ДокументыРасчетовСКонтрагентами.ТипЗначения);

КонецФункции

&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

Отказ = Истина;

Выборка = РегистрыСведений.SFXНастройкиАТП.Выбрать();

Если Выборка.Следующий() Тогда

// изменение существующей

МенеджерЗаписи = Выборка.ПолучитьМенеджерЗаписи();

МенеджерЗаписи.Прочитать();

//Перезаписать поля существующей записи

МенеджерЗаписи.Автовокзалы = ТекущийОбъект.Автовокзалы;

МенеджерЗаписи.ГСМ = ТекущийОбъект.ГСМ;

МенеджерЗаписи.Город = ТекущийОбъект.Город;

МенеджерЗаписи.Заказ = ТекущийОбъект.Заказ;

МенеджерЗаписи.Запчасти = ТекущийОбъект.Запчасти;

МенеджерЗаписи.Записать();

КонецЕсли;

ЭтотОбъект.Модифицированность = Ложь;

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