Приложение

Модуль объекта «Акт на выдачу авто»

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр СостояниеАвтомобиля

Движения.СостояниеАвтомобиля.Записывать = Истина;

Движение = Движения.СостояниеАвтомобиля.Добавить();

Движение.Период = Дата;

Движение.Автомобиль = Автомобиль;

Движение.Состояние = Справочники.Состояние.ВРемонте;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Если ТипЗнч(ДанныеЗаполнения) = Тип(" ДокументСсылка.Заказ") Тогда

// Заполнение шапки

Автомобиль = ДанныеЗаполнения.Автомобиль;

Клиент = ДанныеЗаполнения.Клиент;

КоличествоДней = ДанныеЗаполнения.КоличествоДней;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Модуль объекта «Заказ»

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр СостояниеАвтомобиля

Движения.СостояниеАвтомобиля.Записывать = Истина;

Движение = Движения.СостояниеАвтомобиля.Добавить();

Движение.Период = Дата;

Движение.Автомобиль = Автомобиль;

Движение.Состояние = Справочники.Состояние.Заказан;

// регистр ПрибыльОранизации Приход

Движения.ПрибыльОранизации.Записывать = Истина;

Движение = Движения.ПрибыльОранизации.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Автомобиль = Автомобиль;

Движение.СтоимостьПроката = СтоимостьПроката;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

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

Модуль менеджера объекта «Заказ»

Процедура РаспечататьСчет(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Распечатать счет)

Макет = Документы.Заказ.ПолучитьМакет(" РаспечататьСчет");

Запрос = Новый Запрос;

Запрос.Текст =

" ВЫБРАТЬ

| Заказ.Автомобиль,

| Заказ.Дата,

| Заказ.Клиент,

| Заказ.КоличествоДней,

| Заказ.Номер,

| Заказ.РазмерЗалога,

| Заказ.СтоимостьЗаказа,

| Заказ.СтоимостьПроката

|ИЗ

| Документ.Заказ КАК Заказ

|ГДЕ

| Заказ.Ссылка В (& Ссылка)";

Запрос.Параметры.Вставить(" Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть(" Заголовок");

Шапка = Макет.ПолучитьОбласть(" Шапка");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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