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

КД Розница -> УТ Перемещение товара

Автор ColonelAp4u, 12 дек 2014, 08:41

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

ColonelAp4u

Помогите пожалуйста  ПКД произвольный алгоритм при за грузке в УТ выдает ошибку
Ошибка при записи документа
   ИмяПКО                 =  ПеремещениеТоваровНов
   ТипОбъекта             =  Перемещение товаров
   Объект                 =  Перемещение товаров РТ000000025 от 12.12.2014 8:03:19
   ОписаниеОшибки         =  Ошибка при вызове метода контекста (Записать): Ошибка при выполнении обработчика - 'ОбработкаПроведения': {ОбщийМодуль.Ценообразование.Модуль(352)}: Поле объекта недоступно для записи (ЕдиницаХраненияОстатков)
   ПозицияМодуля          =  Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(7416)
   КодСообщения           =  25

ColonelAp4u

это код ПКД

Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Дата", ТекущаяДата());
Запрос.Текст =   "ВЫБРАТЬ
| ПеремещениеТоваровТовары.Ссылка.Номер,
| ПеремещениеТоваровТовары.Ссылка.Дата,
| ПеремещениеТоваровТовары.Ссылка.Комментарий,
| ПеремещениеТоваровТовары.Ссылка.СкладОтправитель,
| ПеремещениеТоваровТовары.Ссылка.СкладПолучатель,
| ПеремещениеТоваровТовары.Ссылка.Водитель,
| ПеремещениеТоваровТовары.Ссылка.ДокументОснование,
| ПеремещениеТоваровТовары.Номенклатура,
| ПеремещениеТоваровТовары.Количество,
| ПеремещениеТоваровТовары.ЕдиницаИзмерения,
| ПеремещениеТоваровТовары.Цена,
| ПеремещениеТоваровТовары.Сумма,
| ПеремещениеТоваровТовары.Коэффициент,
| ПеремещениеТоваровТовары.Ссылка
|ИЗ
| Документ.ПеремещениеТоваров.Товары КАК ПеремещениеТоваровТовары
|ГДЕ
| ПеремещениеТоваровТовары.Ссылка.Дата МЕЖДУ НАЧАЛОПЕРИОДА(&Дата, ДЕНЬ) И КОНЕЦПЕРИОДА(&Дата, ДЕНЬ)
|ИТОГИ ПО
| ПеремещениеТоваровТовары.Ссылка";


ВыборкаДок = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаДок.Следующий() Цикл

ИсходящиеДанные = Новый Структура();
ИсходящиеДанные.Вставить("Дата" , ВыборкаДок.Ссылка.Дата);
ИсходящиеДанные.Вставить("Номер", ВыборкаДок.Ссылка.Номер);
ИсходящиеДанные.Вставить("Комментарий", ВыборкаДок.Ссылка.Комментарий);
Документ = Новый Структура("Дата,Номер",
ВыборкаДок.Ссылка.ДокументОснование.Дата,
ВыборкаДок.Ссылка.ДокументОснование.Номер);


    ИсходящиеДанные.Вставить("ВнутреннийЗаказ" , Документ);
ИсходящиеДанные.Вставить("Организация"     , "000000001");
    ИсходящиеДанные.Вставить("ОтражатьВУправленческомУчете"    , Истина);
    ИсходящиеДанные.Вставить("Подразделение"   , "УТ0000028");
ИсходящиеДанные.Вставить("СкладОтправитель", Справочники.Склады.НайтиПоКоду("УТ0000009"));
ИсходящиеДанные.Вставить("СкладПолучатель", ВыборкаДок.Ссылка.СкладПолучатель);

Выборка = ВыборкаДок.Выбрать();
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("ЕдиницаИзмерения");
ТЗ.Колонки.Добавить("Качество");
ТЗ.Колонки.Добавить("Количество");
ТЗ.Колонки.Добавить("Коэффициент");
ТЗ.Колонки.Добавить("Номенклатура");
ТЗ.Колонки.Добавить("Цена");

Пока Выборка.Следующий() Цикл

НоваяСтрока = ТЗ.Добавить();
НоваяСтрока.Качество     = "Новый";
НоваяСтрока.Количество   = Выборка.Количество;
НоваяСтрока.Коэффициент  = Выборка.Коэффициент;
НоваяСтрока.Номенклатура = Выборка.Номенклатура;
НоваяСтрока.Цена         = Выборка.Цена;
НоваяСтрока.ЕдиницаИзмерения         = Выборка.ЕдиницаИзмерения;


КонецЦикла;
ИсходящиеДанные.Вставить("Товары", ТЗ);

ВыгрузитьПоПравилу(,, ИсходящиеДанные, , "ПеремещениеТоваровНов");

КонецЦикла;



Это в ПКО Единицы Измерения

Если Правила.Номенклатура.Выгруженные[Источник.Владелец] = Неопределено Тогда
    ВыгрузитьПоПравилу(Источник.Владелец);
КонецЕсли;                 

Добавлено: 12 дек 2014, 08:45


и вместе с данной ошибкой в УТ заменились все ед измерения на те которые идут в рознице, и поля ед хран остатков и ед для отчетов стали пустыми

Теги:

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

Рейтинг@Mail.ru

Поиск