0
DonJon
08.07.16
✎
18:13
|
Добрый день.
Уважаемые коллеги.
В общем выгружаю с помощью КД 2.1 Из ТИС 7 спр. Цены в регистр Цены номенклатуры.
В ПВД написал выгрузку произвольный алгоритм где приемник только регистр Цены номенклатуры.
Следующий код
СправочникЦены = СоздатьОбъект("Справочник.Цены");
ВыборкаДанных = СоздатьОбъект("ТаблицаЗначений");
ВыборкаДанных.НоваяКолонка("Номенклатура");
ВыборкаДанных.НоваяКолонка("ТипЦен");
ВыборкаДанных.НоваяКолонка("Цена");
ВыборкаДанных.НоваяКолонка("Период");
//ВыборкаДанных.НоваяКолонка("Валюта");
СправочникЦены.ВыбратьЭлементы();
Периодический = СоздатьОбъект("Периодический");
Пока СправочникЦены.ПолучитьЭлемент()= 1 Цикл
Если СправочникЦены.ЭтоГруппа() = 1 Тогда
Продолжить;
КонецЕсли;
Ссылка = СправочникЦены.ТекущийЭлемент();
Периодический.ИспользоватьОбъект("Цена",Ссылка);
Периодический.ВыбратьЗначения();
Пока Периодический.ПолучитьЗначение() = 1 Цикл
ВыборкаДанных.НоваяСтрока();
ВыборкаДанных.Номеклатура = Ссылка;
ВыборкаДанных.ТипЦен = Периодический.Значение;
ВыборкаДанных.Цена = Периодический.Значение;
ВыборкаДанных.Период = Периодический.ДатаЗнач;
//ВыборкаДанных.Валюта = Периодический.Значение;
КонецЦикла;
КонецЦикла;
ВыборкаДанных.ВыбратьСтроку();
Сохраняю в обработке 7.7 и в клиенте 7.7 запускаю, но все строки таблицы пустые, не пойму почему.
Может кто ужу переносил цены из 7.7 в 8 ку подскажите кто нибудь!!
|
|