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

11.12.14

✎

17:36

При КД с розницы файл норм выгрузился когда гружу в УТ вот такая штука велтает, гружу произвольным алгоритмом, а в ПКО единицы измерения прописано так
    Если Правила.Номенклатура.Выгруженные[Источник.Владелец] = Неопределено Тогда
    ВыгрузитьПоПравилу(Источник.Владелец);
КонецЕсли;
И стоит галка не создавать новые объекты если они не найдены

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

1 ColonelAp4u

11.12.14

✎

17:46

и самое главное что со всей номенклатуры которая должна была переместится заменились ед измерения

2 ColonelAp4u

11.12.14

✎

17:47

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


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

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

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


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

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

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

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


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

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

КонецЦикла;

3 Абыр

11.12.14

✎

18:01

НоваяСтрока.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.Выбрать();
что это?)

4 ColonelAp4u

11.12.14

✎

18:09

(3) блин с другово правила код
там так
НоваяСтрока.ЕдиницаИзмерения = Выборка.ЕдиницаИзмерения;

5 ColonelAp4u

11.12.14