Процедура УстановитьСтатусЗаказаПокупателя(ЗаказСсылка) Экспорт 
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
        "ВЫБРАТЬ РАЗРЕШЕННЫЕ
        |    СУММА(ЕСТЬNULL(ЗаказыПокупателейОстаткиИОбороты.КоличествоПриход, 0)) КАК Запланировано,
        |    СУММА(ЕСТЬNULL(ЗаказыПокупателейОстаткиИОбороты.КоличествоКонечныйОстаток, 0)) КАК ОсталосьОтгрузить,
        |    СУММА(ЕСТЬNULL(РезервыКомпании.КоличествоОстаток, 0)) КАК Резерв,
        |    СУММА(ЕСТЬNULL(РазмещениеЗаказовПокупателей.КоличествоОстаток, 0)) КАК Заказано,
        |    СУММА(ВЫБОР
        |            КОГДА ЗаказыПокупателейОстаткиИОбороты.КоличествоКонечныйОстаток - (ЕСТЬNULL(РезервыКомпании.КоличествоОстаток, 0) + ЕСТЬNULL(РазмещениеЗаказовПокупателей.КоличествоОстаток, 0)) >= 0
        |                ТОГДА ЗаказыПокупателейОстаткиИОбороты.КоличествоКонечныйОстаток - (ЕСТЬNULL(РезервыКомпании.КоличествоОстаток, 0) + ЕСТЬNULL(РазмещениеЗаказовПокупателей.КоличествоОстаток, 0))
        |            ИНАЧЕ 0
        |        КОНЕЦ) КАК ОсталосьОбеспечить,
        |    СУММА(ЕСТЬNULL(ОстаткиТоваровКомпании.КоличествоОстаток, 0) + ЕСТЬNULL(ОстаткиТоваровКомпанииВРознице.КоличествоОстаток, 0) - ЕСТЬNULL(РезервыТоваровКомпании.КоличествоОстаток, 0) - ЕСТЬNULL(ТоварыКПередачеКомпании.КоличествоОстаток, 0)) КАК Свободно
        |ИЗ
        |    РегистрНакопления.ЗаказыПокупателей.ОстаткиИОбороты(, &ДатаАнализа, , , ЗаказПокупателя = &Заказ) КАК ЗаказыПокупателейОстаткиИОбороты
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыВРезервеНаСкладах.Остатки(&ДатаАнализа, ДокументРезерва = &Заказ) КАК РезервыКомпании
        |        ПО ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = РезервыКомпании.ХарактеристикаНоменклатуры
        |            И ЗаказыПокупателейОстаткиИОбороты.Номенклатура = РезервыКомпании.Номенклатура
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.РазмещениеЗаказовПокупателей.Остатки(&ДатаАнализа, ЗаказПокупателя = &Заказ) КАК РазмещениеЗаказовПокупателей
        |        ПО ЗаказыПокупателейОстаткиИОбороты.Номенклатура = РазмещениеЗаказовПокупателей.Номенклатура
        |            И ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = РазмещениеЗаказовПокупателей.ХарактеристикаНоменклатуры
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыНаСкладах.Остатки(&ДатаАнализа, ) КАК ОстаткиТоваровКомпании
        |        ПО ЗаказыПокупателейОстаткиИОбороты.Номенклатура = ОстаткиТоваровКомпании.Номенклатура
        |            И ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = ОстаткиТоваровКомпании.ХарактеристикаНоменклатуры
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыВРознице.Остатки(&ДатаАнализа, ) КАК ОстаткиТоваровКомпанииВРознице
        |        ПО ЗаказыПокупателейОстаткиИОбороты.Номенклатура = ОстаткиТоваровКомпанииВРознице.Номенклатура
        |            И ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = ОстаткиТоваровКомпанииВРознице.ХарактеристикаНоменклатуры
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыВРезервеНаСкладах.Остатки(&ДатаАнализа, ) КАК РезервыТоваровКомпании
        |        ПО ЗаказыПокупателейОстаткиИОбороты.Номенклатура = РезервыТоваровКомпании.Номенклатура
        |            И ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = РезервыТоваровКомпании.ХарактеристикаНоменклатуры
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ТоварыКПередачеСоСкладов.Остатки(&ДатаАнализа, ) КАК ТоварыКПередачеКомпании
        |        ПО ЗаказыПокупателейОстаткиИОбороты.Номенклатура = ТоварыКПередачеКомпании.Номенклатура
        |            И ЗаказыПокупателейОстаткиИОбороты.ХарактеристикаНоменклатуры = ТоварыКПередачеКомпании.ХарактеристикаНоменклатуры
        |            И ЗаказыПокупателейОстаткиИОбороты.СтатусПартии = ТоварыКПередачеКомпании.СтатусПартии";

    Запрос.УстановитьПараметр("ДатаАнализа", КонецДня(ТекущаяДата()));
    Запрос.УстановитьПараметр("Заказ", ЗаказСсылка);
    
    Результат = Запрос.Выполнить();
    
    ВыборкаДетальныеЗаписи = Результат.Выбрать();
    
    Статус = Неопределено;
    к = 1;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        
        Если к <> ВыборкаДетальныеЗаписи.Количество() Тогда 
            Продолжить;
        КонецЕсли;
                                     
        Если ВыборкаДетальныеЗаписи.Заказано > 0 И ВыборкаДетальныеЗаписи.ОсталосьОбеспечить = 0 Тогда 
            Статус = Перечисления.СтатусЗаказаПокупателя.Запланировано;
        КонецЕсли;
        
        Если ВыборкаДетальныеЗаписи.Заказано >0 И НЕ ВыборкаДетальныеЗаписи.ОсталосьОбеспечить = 0 Тогда
            Статус = Перечисления.СтатусЗаказаПокупателя.ЧастичноЗапланировано;
        КонецЕсли;
        
        
        Если ВыборкаДетальныеЗаписи.Заказано = 0 И ВыборкаДетальныеЗаписи.ОсталосьОбеспечить = 0 Тогда
            Статус = Перечисления.СтатусЗаказаПокупателя.Исполнено;
        КонецЕсли;
        
        Если ВыборкаДетальныеЗаписи.Свободно > ВыборкаДетальныеЗаписи.Запланировано Тогда
            Статус = Перечисления.СтатусЗаказаПокупателя.Исполнено;
        КонецЕсли;
        
        Если ВыборкаДетальныеЗаписи.ОсталосьОтгрузить <= 0 Тогда 
            Статус = Перечисления.СтатусЗаказаПокупателя.Отгружено;
        КонецЕсли;
        
        к = к + 1;
    КонецЦикла;
    
    Если Статус <> Неопределено Тогда 
        ДокОб = ЗаказСсылка.ПолучитьОбъект();
        Если ДокОб.СтатусЗаказа <> Статус Тогда 
            ДокОб.СтатусЗаказа = Статус;
            Попытка
                ДокОб.Записать(РежимЗаписиДокумента.Запись);
            Исключение
            КонецПопытки;    
        КонецЕсли;
    Иначе
        ДокОб = ЗаказСсылка.ПолучитьОбъект();
        Если ДокОб.СтатусЗаказа <> Перечисления.СтатусЗаказаПокупателя.Новый Тогда 
            ДокОб.СтатусЗаказа = Перечисления.СтатусЗаказаПокупателя.Новый;
            Попытка
                ДокОб.Записать(РежимЗаписиДокумента.Запись);
            Исключение
            КонецПопытки;    
        КонецЕсли;
    КонецЕсли;    
    
КонецПроцедуры