Имя: Пароль:
1C
 
Временное резервирование товаров
0 myr4ik07
 
20.05.16
11:59
Привет, а в типовой утп для украины 1.2 есть возможность временного резервирования товаров?
ну, типа зарезервировал, если после 3 дней еще в резерве тогда удаляем 3 дневные резервы с резерва в свободные остатки?
1 Михаил Козлов
 
20.05.16
12:09
В типовой УТ 10.3 можно было закрывать заказы покупателей по просроченным резервам.
2 myr4ik07
 
20.05.16
12:33
(1) да, спасибо, это и буду использовать
3 myr4ik07
 
20.05.16
13:56
что то вышло типа такое

    ЗаписьЖурналаРегистрации("УдалениеУстаревшихРезервов",УровеньЖурналаРегистрации.Информация,,,"Старт",);
    КоличествоДнейПросрочки =  2;
    Период_День  = НачалоДня(ТекущаяДата()) -КоличествоДнейПросрочки * 3600 * 24;
    
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    ТоварыВРезервеНаСкладахОстатки.Склад,
    |    ТоварыВРезервеНаСкладахОстатки.ДокументРезерва,
    |    ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток
    |ИЗ
    |    РегистрНакопления.ТоварыВРезервеНаСкладах.Остатки КАК ТоварыВРезервеНаСкладахОстатки
    |ГДЕ
    |    ТоварыВРезервеНаСкладахОстатки.КоличествоОстаток > 0
    |    И ТоварыВРезервеНаСкладахОстатки.ДокументРезерва.Дата < &День";
    
    Запрос.УстановитьПараметр("День",Период_День);
    
    РезультатЗапроса = Запрос.Выполнить();    
    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
    
    Если РезультатЗапроса.Пустой() Тогда
        Возврат;
    КонецЕсли;
    
    Док = Документы.ЗакрытиеЗаказовПокупателей.СоздатьДокумент();    
    Док.Дата = ТекущаяДата();
    Док.ВидОперации = Перечисления.ВидыОперацийЗакрытиеЗаказовПокупателей.СнятиеРезервов;
    
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        СтрокаЗаказ = Док.Заказы.Добавить();
        СтрокаЗаказ.ЗаказПокупателя = ВыборкаДетальныеЗаписи.ДокументРезерва;    
    КонецЦикла;
    
    Док.Комментарий = "Создан автоматически закрытия резервов по истечение "+КоличествоДнейПросрочки+" дней";
    
    Попытка
        Док.Записать(РежимЗаписиДокумента.Проведение);
    Исключение
        ЗаписьЖурналаРегистрации("УдалениеУстаревшихРезервов",УровеньЖурналаРегистрации.Ошибка,,,ОписаниеОшибки(),);
    КонецПопытки;
    
    ЗаписьЖурналаРегистрации("УдалениеУстаревшихРезервов",УровеньЖурналаРегистрации.Информация,,,"Финиш",);

может кому то пригодно будет
Ошибка? Это не ошибка, это системная функция.