Автовыбытие имущества

1. Jebick 16.06.24 00:27 Сейчас в теме
Добрый день. Есть документ "Выбытие имущества", который списывает имущество у которого закончилось время эксплуатации. Помогите сделать так, чтобы он автоматически проводился каждый день.
Процедура ОбработкаПроведения(Отказ, РежимПроведения)
    
    Движения.ВИСотрудников.Записывать = Истина;    
    Движения.Записать();
    
    Движения.ВИСотрудников.Записывать = Истина;              
    НачалоДняДокумента = НачалоДня(Дата);
    
    Блокировка = Новый БлокировкаДанных;
    ЭлементБлокировки = Блокировка.Добавить("РегистрНакопления.ВИСотрудников");
    ЭлементБлокировки.Режим = РежимБлокировкиДанных.Исключительный;
    ЭлементБлокировки.УстановитьЗначение("КонЭкс", Новый Диапазон(,НачалоДняДокумента - 1));
    Блокировка.Заблокировать();
    
    Запрос = Новый Запрос;
    Запрос.Текст = 
    
        "ВЫБРАТЬ
        |    ВИСотрудниковОстатки.Сотрудники КАК Сотрудники,
        |    ВИСотрудниковОстатки.ВещевоеИмущество КАК ВещевоеИмущество,
        |    ВИСотрудниковОстатки.КонЭкс КАК КонЭкс,
        |    ВИСотрудниковОстатки.КоличествоОстаток КАК Количество,
        |    &Период КАК Период
        |ИЗ
        |    РегистрНакопления.ВИСотрудников.Остатки(&МоментВремени, КонЭкс < &НачалоДня) КАК ВИСотрудниковОстатки";
    
    Запрос.УстановитьПараметр("МоментВремени", МоментВремени());
    Запрос.УстановитьПараметр("НачалоДня", НачалоДняДокумента);
    Запрос.УстановитьПараметр("Период", Дата);
    
    РезультатЗапроса = Запрос.Выполнить();
    
    Выборка = РезультатЗапроса.Выбрать();
    
    Пока Выборка.Следующий() Цикл
        Движение = Движения.ВИСотрудников.ДобавитьРасход();
        ЗаполнитьЗначенияСвойств(Движение, Выборка);
    КонецЦикла;
    
    
КонецПроцедуры
Показать
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Lenten 26 17.06.24 10:50 Сейчас в теме
вам надо написать код который
создает документ
заполняет его
проводит

это надо делать не в обработке проведения, а в отдельной обработке


судя по всему ваш код написала нейросетка (я надеюсь на это). Если у вас совсем беда с написанием кода, лучше заплатить программисту.
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот