Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 18:07

Изменение заказа покупателей.Авторезервирование

Автор Никита1235, 25 янв 2018, 09:16

0 Пользователей и 1 гость просматривают эту тему.

Никита1235

Всем, Доброе утро!
КА 1.1. Документ заказ покупателя, выбран склад\группаскладов главный склад,те все списания остатков происходят либо с него,либо прикрепляется заказ поставщику,других вариантов нет(так же должно быть и в документе изменение заказа покупателя,потому что он делается на основание этого заказа). Стоит регламентированое задание на заполнение резерва два раза в день. И вот когда происходит это изменение в заказе покупателя, документом изменение заказа покупателей в нем почему то цепляются все склады которые есть, те если он не находит остатков по главному складу,начинает искать по всем и подкрепляет их.Вопрос: где посмотреть,что проверить,куда копать?или как ограничить чтобы в изменение заказа покупателей брал остатки только с главного склада.
Данная ошибка произошла после переноса базы,базу переносил для избавления старых документов движений. Переносил путем переноса конфигурации,справочников и выгрузкой остатков. Приму ответы доступные для юного пользователя 1с. Прикрепляю фотографии документа заказа покупателя и документа изменение заказа покупателя
Код регламентированого задания по которому делается ежедневное заполнение резерва:
Процедура ЗаполнениеРезерва() Экспорт
   Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|   ПроверкаВремени.Регистратор,
|   ПроверкаВремени.НомерСтроки,
|   ПроверкаВремени.Активность,
|   ПроверкаВремени.ДокСсыл,
|   ПроверкаВремени.ДатаДокСсыл,
|   ПроверкаВремени.ПодтГ,
|   ПроверкаВремени.НужноГ
|ИЗ
|   РегистрСведений.ПроверкаВремени КАК ПроверкаВремени
|ГДЕ
|   ПроверкаВремени.ПодтГ = ИСТИНА";
Запрос.Выполнить().Выгрузить();
ТЗ = Запрос.Выполнить().Выгрузить();
Для Каждого Строка из ТЗ цикл
   Если Строка.ПодтГ = Истина Тогда
      Если Строка.ДокСсыл.ДатаОтгрузки > НачалоДня(ТекущаяДата()) Тогда
         Документы.ИзменениеЗаказаПокупателя.СоздатьДокумент();
         Док = Документы.ИзменениеЗаказаПокупателя.СоздатьДокумент();
         Док.Дата = ТекущаяДата();
         Док.Ответственный = Строка.ДокСсыл.Ответственный;
         Док.Заполнить(Строка.ДокСсыл);
         СтруктураПараметров = Новый Структура;
         СтруктураПараметров.Вставить("ВидимостьСерии",     Ложь);
         СтруктураПараметров.Вставить("Авторезервирование", Истина);
         СтруктураПараметров.Вставить("Авторазмещение",     Истина);
         СтруктураПараметров.Вставить("СтратегияАвторезервированияПоЗаказам", Истина);
         НаборОстаткиТоваров = РегистрыНакопления.ТоварыВРезервеНаСкладах.СоздатьНаборЗаписей();
         НаборОстаткиТоваров.Отбор.Регистратор.Установить(Строка.ДокСсыл);
         НаборОстаткиТоваров.Записать();
         НаборЗаказыПоставщикам  = РегистрыНакопления.РазмещениеЗаказовПокупателей.СоздатьНаборЗаписей();
         НаборЗаказыПоставщикам.Отбор.Регистратор.Установить(Строка.ДокСсыл);
         НаборЗаказыПоставщикам.Записать();
         Док.ЗаполнитьТабличныеЧастиПередПроведениемУпр(СтруктураПараметров);
         Попытка
            Док.Записать(РежимЗаписиДокумента.Проведение);   
         Исключение
            Сообщить(ОписаниеОшибки());
         КонецПопытки;
      КонецЕсли;   
   КонецЕсли;
КонецЦикла;

КонецПроцедуры

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск