Com соединение, обработчик события.





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

        //////////////////УПРАВЛЕНИЕ ВЗАИМОРАСЧЕТАМИ

    

    ПроверкаНаОтмену (Отказ);    

    УправлениеВзаиморасчетами_Сервер.ВыполнитьПроверкуНаОтгрузку(ЭтотОбъект, Отказ, РежимПроведения);

    

    //////////////////БОНУСНАЯ ПРОГРАММА

    //Отбор = Новый Структура;

    //Отбор.Вставить("Контрагент",ЭтотОбъект.Контрагент);

    //Отбор.Вставить("АдресДоставки",ЭтотОбъект.АдресДоставки);

    //УчастиеВБонуснойПрограмме = РегистрыСведений.УчастиеВБонуснойПрограмме.ПолучитьПоследнее(ЭтотОбъект.Дата,Отбор);

    //Если УчастиеВБонуснойПрограмме.Участвует Тогда

    //    УправлениеПродажами_Сервер.ПроверитьМаксимальнуюСуммуСписанияБонусами(ЭтотОбъект, Отказ);

    //КонецЕсли;

    

    

    Если Отказ Тогда

        Возврат;

    КонецЕсли; 

    

    //////////////////ПРОДАЖИ

    УправлениеПродажами_Сервер.ВыполнитьДвиженияСтатусыЗаказов(ЭтотОбъект, Отказ, РежимПроведения);

    

    //////////////////СТАТУСЫ АДРЕСОВ

    //УправлениеПланированием_Сервер.ВыполнитьДвиженияСтатусыАдресов(ЭтотОбъект, Отказ, РежимПроведения);

    

    //////////////////ЖУРНАЛ РАБОТЫ С КОНТРАГЕНТАМИ

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

    

    /////////////////НОМЕРНОЕ ОБОРУДОВАНИЕ

    //Если Оборудование.Количество() > 0 Тогда

    //    Для каждого Стр Из Оборудование Цикл

    //    

    //        УправлениеОборудованием_Сервер.ВыполнимДвиженияМесторасположенияОборудования(ЭтотОбъект, Стр.Номенклатура, 

    //            Перечисления.ВариантыРасположенияОборудованияКонтрагента.Резерв,

    //            Перечисления.ВариантыРасположенияОборудованияКонтрагента.Заявка);

    //        

    //    КонецЦикла;

    //КонецЕсли;

    

    УправлениеОборудованием_Сервер.ВыполнитьРасходНачисленияАрендыОборудования(ЭтотОбъект, Отказ, РежимПроведения);

    

        /////////////////Новое движение оборудования

    УправлениеОборудованием_Сервер.ДвиженияСтатусовОборудования(ЭтотОбъект, Отказ, РежимПроведения);

    УправлениеОборудованием_Сервер.ВыполнитьДвижениеПоСтатусуАктаВыполненныхРабот (ЭтотОбъект, Отказ, РежимПроведения);

    

    Движения.РезервОстатки.Записывать = Истина;

    Для Каждого ТекСтрокаТовары Из Товары Цикл

        Движение = Движения.РезервОстатки.Добавить();

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

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

        Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

        Движение.Количество = ТекСтрокаТовары.Количество;

    КонецЦикла;

    Сообщение = Новый СообщениеПользователю;

    Сообщение.Текст = "Документ был проведен";

    Сообщение.Поле = "ЭтотОбъект";

    Сообщение.Сообщить();

        

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



Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)

        

    Масса = 0;

    КоличествоБутылок = 0;

    

    //Посчитаем массу заказа

    Для каждого ТекСтрокаТовары Из Товары Цикл        

        Масса = Масса + ТекСтрокаТовары.Номенклатура.Вес * ТекСтрокаТовары.Количество;

        Если ТекСтрокаТовары.Номенклатура.СчитатьКоличествоВЗаявке Тогда

            КоличествоБутылок = КоличествоБутылок + ТекСтрокаТовары.Количество;

        КонецЕсли;

    КонецЦикла; 

    

    Для каждого ТекСтрокаОборудование Из Оборудование Цикл

        

        Масса = Масса + ТекСтрокаОборудование.Номенклатура.Владелец.Вес;

        

        ТекСтрокаОборудование.Количество = 1;

        

    КонецЦикла; 

    

    //Сохраним сумму пробиваемого чека.

    Если ВидОплаты = ПредопределенноеЗначение("Перечисление.ВидыОплаты.Наличные") Тогда

        СуммаКОплате = СуммаДокумента;

    Иначе

        СуммаКОплате = 0;

    КонецЕсли;

    

    Если Константы.ФункциональнаяОпцияИспользоватьОбменССайтами.Получить() Тогда

        Попытка

            ОбменДанными.Получатели.Добавить(Константы.ОбменССайтомПоУмолчанию.Получить());

        Исключение

        КонецПопытки;

    КонецЕсли;

    

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



Процедура ПриКопировании(ОбъектКопирования)

    

    КомплектДокументов.Очистить();

    ГорячееВремя = Константы.ГорящийЗаказ.Получить();    

    Если ЗначениеЗаполнено(ГорячееВремя) Тогда

        ГорячаяЗаявка = Час(ГорячееВремя) >= Час(ТекущаяДата());

    Иначе

        ГорячаяЗаявка = Ложь;

    КонецЕсли; 

    КоличествоДней = Константы.ПоздняяДоставка.Получить();

    ДатаТ = ?(ГорячаяЗаявка, ТекущаяДата(), ТекущаяДата()+(86400*КоличествоДней));

    ДатаДоставки = ДатаТ;

        

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



Процедура ПроверкаНаОтмену (Отказ)

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

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

        "ВЫБРАТЬ

        |    СтатусыЗаказовСрезПоследних.Статус

        |ИЗ

        |    РегистрСведений.СтатусыЗаказов.СрезПоследних КАК СтатусыЗаказовСрезПоследних

        |ГДЕ

        |    СтатусыЗаказовСрезПоследних.Заказ = &Заказ";

    

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

    

    РезультатЗапроса = Запрос.Выполнить();

    

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

    

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

        Статус = ВыборкаДетальныеЗаписи.Статус;            

    КонецЦикла;

    

    Если НЕ ЭтотОбъект.ДополнительныеСвойства.Свойство("МаршрутныйЛист") Тогда

        Если Статус = Перечисления.СтатусыЗаказов.Отмена или Статус = Перечисления.СтатусыЗаказов.НеДоставлен Тогда

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

            Сообщение = Новый СообщениеПользователю;

            Сообщение.Текст = "Заказ Отменен (Не доставлен) и не может быть проведен.";

            Сообщение.Сообщить();

        КонецЕсли;

    КонецЕсли;



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



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

    Статус = ОбщиеПроцедурыИФункции.ПолучитьСтатусЗаказа(ЭтотОбъект.Ссылка);

    Если (НЕ Статус = Перечисления.СтатусыЗаказов.Принят) и (НЕ Статус = Перечисления.СтатусыЗаказов.Отмена) Тогда

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

    КонецЕсли;

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