[Vofka]

УПП - дополнительные права - разрешить превышение остатка....

Ну вот поставьте и посмотрите что будет.

[alexkhua]

alexkhua
запрос в студию!

сообщение #8

[alexkhua]

До конца еще не проверил, но что-то вроде этого работает

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

                
                    //Вычисление себестоимости списываемых партий
                    КоличествоНадоСписать=ВыборкаНоменклатура.Количество;
                    
                    ВыборкаДетальныеЗаписи=ВыборкаНоменклатура.Выбрать();
                    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                        Если ВыборкаДетальныеЗаписи.КоличествоОстаток <=
                                             КоличествоНадоСписать Тогда
                                             
                    //Списываем всю партию 
                    
                    КоличествоКСписанию=
                      ВыборкаДетальныеЗаписи.КоличествоОстаток;
                    СтоимостьКСписанию=ВыборкаДетальныеЗаписи.СтоимостьОстаток;
                    //Уменьшаем количество к списанию
                    
                    КоличествоНадоСписать =
                      КоличествоНадоСписать-
                          КоличествоКСписанию;
                          
                      Иначе
                          
                     //Списываем часть партии
                     
                     КоличествоКСписанию=КоличествоНадоСписать;
                     
                     
                     Если ВыборкаДетальныеЗаписи.КоличествоОстаток<>0 Тогда
                         
                СтоимостьКСписанию=ВыборкаДетальныеЗаписи.СтоимостьОстаток/
                       ВыборкаДетальныеЗаписи.КоличествоОстаток*КоличествоКСписанию;
                       
                   Иначе
                       СтоимостьКСписанию=ВыборкаДетальныеЗаписи.СтоимостьОстаток;
                   КонецЕсли;
                   
                   //Обнуляем количество к списанию
                   
                   КоличествоНадоСписать=0;
                   
               КонецЕсли;
               
                              
    Движение = Движения.ОстаткиНоменклатуры.Добавить();
    Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
    Движение.Период = Дата;
    Движение.Номенклатура = ВыборкаДетальныеЗаписи.Материал;
    Движение.Склад = ВыборкаДетальныеЗаписи.Склад;
    Движение.Партия=ВыборкаДетальныеЗаписи.Партия;
    Движение.Количество=КоличествоКСписанию;
    Движение.Стоимость=СтоимостьКСписанию;
    
        
    
        
    


            
        
    
                //Проверяем необходимость дальнейшего преребора партий
                
                Если КоличествоНадоСписать<=0 Тогда
                    Прервать;
                    
                КонецЕсли;
            КонецЦикла; //По партиям
        //КонецЕсли;
    КонецЦикла;// по материалам

[sava1]

Ну вот поставьте и посмотрите что будет.

На что смотреть ?
У меня все ЧПники так работают - сначала продают, потом им отгружаем.

[Zaval]

Элементарно. А закрыть минуса обработкой в конце месяца

Какой тогда смысл вообще что-то двигать по партиям в течение месяца?

[sava1]

Чтобы не лезть в конфигурацию ;-))))

Безобразно, но однообразно...

[Zaval]

Чтобы не лезть в конфигурацию ;-))))

Безобразно, но однообразно...

Хм... это в какой конфигурации нельзя отключить "Списывать партии при проведении документов" ?

[Vofka]

На что смотреть ?
У меня все ЧПники так работают - сначала продают, потом им отгружаем.

Внимательней посмотрите. Остатки уходят в минус, а партии уходят в 0 и в минус не идут. Естественно, если вы не забыли, что мы про типовую конфигурацию, в данном случае, говорим. Отакэ.