Создание в УТ11 документов, модуль объекта

Процедуры модуля объектов, базово-минимальные.

Процедура ИнициализироватьДокумент()
 
 Автор = ПараметрыСеанса.ТекущийПользователь;
 Подразделение = Константы.ОсновноеПодразделение.Получить();
  
КонецПроцедуры

Процедура ЗаполнитьДокументКопированием(ДокСсылка)
  
 
КонецПроцедуры

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
 ТипДанныхЗаполнения = ТипЗнч(ДанныеЗаполнения);
 
 Если ТипДанныхЗаполнения = Тип("ДокументСсылка.Активность") Тогда // на основании копирования
  ЗаполнитьДокументКопированием(ДанныеЗаполнения);
 КонецЕсли;
 
 ИнициализироватьДокумент();
КонецПроцедуры

Процедура СформироватьСписокРегистровДляКонтроля()
 
 Массив = Новый Массив;
 
 Если ДополнительныеСвойства.РежимЗаписи = РежимЗаписиДокумента.Проведение Тогда
  //Массив.Добавить(Движения.СвободныеОстатки);
 КонецЕсли;
 
 ДополнительныеСвойства.ДляПроведения.Вставить("РегистрыДляКонтроля", Массив);
 
КонецПроцедуры // СформироватьСписокРегистровДляКонтроля()

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

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

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

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

Процедура ОбработкаУдаленияПроведения(Отказ)
 ПроведениеСервер.ИнициализироватьДополнительныеСвойстваДляПроведения(Ссылка, ДополнительныеСвойства);

 ПроведениеСервер.ПодготовитьНаборыЗаписейКРегистрацииДвижений(ЭтотОбъект);

 СформироватьСписокРегистровДляКонтроля();

 ПроведениеСервер.ЗаписатьНаборыЗаписей(ЭтотОбъект);

 ПроведениеСервер.ВыполнитьКонтрольРезультатовПроведения(ЭтотОбъект, Отказ);

 ПроведениеСервер.ОчиститьДополнительныеСвойстваДляПроведения(ДополнительныеСвойства);
КонецПроцедуры

Процедура ПриКопировании(ОбъектКопирования)
 ИнициализироватьДокумент();
КонецПроцедуры