Передача значения из ПКГС в ПКС если ПКО вызвано через ВыгрузитьПоПравилу(Источник,,ВходящиеДанные,,"НазваниеПКО")

Форум Программирование Интеграция и обмен данными, конвертация данных (Обмен)

1С:Конвертация данных Платформа 1С v8.3

Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.

1. KirilLoveVE 21.10.12 12:11 Сейчас в теме

Описание работы переноса документа описана у меня в блоге, добавилась задача указать в перемещении розничные цены магазина, цены были установлены через несколько дней докуметом УстановкаЦенВМагазине, то есть я сделал Запрос.ЦеныНоменклатуры:

ВЫБРАТЬ
    ЦеныНоменклатурыМагазинов.Период,
    ЦеныНоменклатурыМагазинов.Регистратор,
    ЦеныНоменклатурыМагазинов.НомерСтроки,
    ЦеныНоменклатурыМагазинов.Активность,
    ЦеныНоменклатурыМагазинов.Номенклатура,
    ЦеныНоменклатурыМагазинов.ХарактеристикаНоменклатуры,
    ЦеныНоменклатурыМагазинов.Магазин,
    ЦеныНоменклатурыМагазинов.Цена,
    ЦеныНоменклатурыМагазинов.ЕдиницаИзмерения
ИЗ
    РегистрСведений.ЦеныНоменклатурыМагазинов КАК ЦеныНоменклатурыМагазинов
ГДЕ
    ЦеныНоменклатурыМагазинов.Номенклатура = &Номенклатура
    И ЦеныНоменклатурыМагазинов.Магазин = &Магазин
    И ЦеныНоменклатурыМагазинов.Период МЕЖДУ &ДатаНачала И &ДатаОкончания

Показать

Вызывается он из Алгоритма.НайтиРозничнуюЦенуНоменклатуры:

Попытка
    Запросы.ЦеныНоменклатуры.УстановитьПараметр("Номенклатура",Параметры.ПараметрыАлгоритмов.Номенклатура);
    Запросы.ЦеныНоменклатуры.УстановитьПараметр("ДатаНачала",Параметры.ПараметрыАлгоритмов.ДатаНачала);
    Запросы.ЦеныНоменклатуры.УстановитьПараметр("ДатаОкончания",Параметры.ПараметрыАлгоритмов.ДатаОкончания);
    Запросы.ЦеныНоменклатуры.УстановитьПараметр("Магазин",Параметры.ПараметрыАлгоритмов.Магазин);
    Выборка = Запросы.ЦеныНоменклатуры.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
        Цена = Выборка.Цена;
        Прервать;
    КонецЦикла;
Исключение
    Сообщить("Ошибка выполнения: Алгоритмы.НайтиРозничнуюЦенуНоменклатуры",СтатусСообщения.ОченьВажное);
КонецПопытки;

Показать

Алгоритм вставил в ПКС: ПКС_ПеремещениеТоваровВТорговуюТочку_Товары_Цена_ПриВыгрузкеСвойства_16_32

Цена = 0;
Параметры.ПараметрыАлгоритмов = Новый Структура;
Параметры.ПараметрыАлгоритмов.Вставить("Номенклатура",ОбъектКоллекции.Номенклатура);
Параметры.ПараметрыАлгоритмов.Вставить("ДатаНачала",Источник.Дата);
Параметры.ПараметрыАлгоритмов.Вставить("ДатаОкончания",Источник.Дата+(60*60*24*60)); // 60 дней
Параметры.ПараметрыАлгоритмов.Вставить("Магазин",Источник.Магазин);
Выполнить(Алгоритмы.НайтиРозничнуюЦенуНоменклатуры);
Значение = Цена;

Вобщем мне нужно установить значения полей : Цена, Сумма, ПроцентРозничнойНаценки
Через КоллекциюОбъектов в ПКГС.ПередОбработкой?

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. KirilLoveVE 21.10.12 16:01 Сейчас в теме

Пока ждал ответа, нашел решение сам, вот таким образом:
В ПКГС_ПеремещениеТоваровВТорговуюТочку_Товары_ПередОбработкойВыгрузки_10_32:
Переменная КоллекцияОбъектов в этой обработке еще пока неопрделена, если создать переменную с типом таблица значений, то доступ к ОбъектКоллекции в ПКС будет осуществляться с той что мы определили. Я скопировал данные таблицы, добавил нужные колонки. Путем переборки строк определил нужные значения в полях. Вот подробное описание как это заработало:

ПКГС_ПеремещениеТоваровВТорговуюТочку_Товары_ПередОбработкойВыгрузки_10_32:

КоллекцияОбъектов = Источник.Товары.Выгрузить();
КоллекцияОбъектов.Колонки.Добавить("ПроцентРозничнойНаценки");
КоллекцияОбъектов.Колонки.Добавить("ЦенаПоступления");
КоллекцияОбъектов.Колонки.Добавить("СуммаПоступления");

Для Каждого СтрокаТЧ Из КоллекцияОбъектов Цикл
    Цена = 0;
    Параметры.ПараметрыАлгоритмов = Новый Структура;
    Параметры.ПараметрыАлгоритмов.Вставить("Номенклатура",СтрокаТЧ.Номенклатура);
    Параметры.ПараметрыАлгоритмов.Вставить("ДатаНачала",Источник.Дата);
    Параметры.ПараметрыАлгоритмов.Вставить("ДатаОкончания",Источник.Дата+(60*60*24*60)); // 60 дней
    Параметры.ПараметрыАлгоритмов.Вставить("Магазин",Источник.Магазин);
    Выполнить(Алгоритмы.НайтиРозничнуюЦенуНоменклатуры);

    СтрокаТЧ.ЦенаПоступления = СтрокаТЧ.Цена;
    СтрокаТЧ.СуммаПоступления = СтрокаТЧ.Сумма;
    СтрокаТЧ.Цена = Цена;
    СтрокаТЧ.Сумма = Цена * СтрокаТЧ.Количество;
    СтрокаТЧ.ПроцентРозничнойНаценки = ((СтрокаТЧ.Сумма/СтрокаТЧ.СуммаПоступления)-1)*100;
КонецЦикла;

Показать

Алгоритм получает через запрос цену номенклатуру перебирая период с текущей даты документа в интервале 60 дней, при нахождении первой поиск прекращается и возвращается первая найденная цена.

Оставьте свое сообщение

E-mail: