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

Сохраняю в обработке 7.7 и в клиенте 7.7 запускаю, но все строки таблицы пустые, не пойму почему.
Может кто ужу переносил цены из 7.7 в 8 ку подскажите кто нибудь!!
1 bura_limon
 
08.07.16
18:24
(0) рс цены номенклатуры подчинен регистратору установка цен
2 VladZ
 
08.07.16
18:27
(0)  Тебе нужна актуальная цена? Или история?
3 DonJon
 
08.07.16
18:45
(2) актуальная
4 nicxxx
 
08.07.16
19:02
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший