Программная отмена проведения

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

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

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