[NostradamuS]

У меня такая проблема:
Нужно создать много накопительных карт которые будут считоватся в магазине сканером штрихкода.
Ети штрихкоди есть в файле екселя.
я написал обработку но она создайот не информационные карты (Дисконтные) а просто информационные карты
Што я неправильно зделал ПОМОГИТЕ!

Ексел= Новый COMОбъект("Excel.Application");
    Ексел.Workbooks.Open("D:\Карточки_Клієнтів\Штрихкоди.xlsx");
    ЕкселДок= Ексел.Worksheets(1);
    //кол= ЕкселДок.Rows.Count;
     кол=10;
    
    Стр=1;
    
    Пока Стр<кол+1 Цикл
        
         НовыйЭлемент = Справочники.ИнформационныеКарты.СоздатьЭлемент();
         НовыйЭлемент.Родитель = Справочники.ИнформационныеКарты.НайтиПоКоду("000000001");
         //НовыйЭлемент.ВидКарты = ПеречислениеСсылка.ВидыИнформационныхКарт.НайтиПоНаименованию("Штриховая");
         //НовыйЭлемент.ШтрихкодПереключатель = Истина;
         //НовыйЭлемент.КодКартыПереключатель = Ложь;
         НовыйЭлемент.ТипКарты = ПланыВидовХарактеристик.ТипыШтрихкодов.НайтиПоНаименованию("EAN13");
         НовыйЭлемент.ВидДисконтнойКарты = Справочники.ВидыДисконтныхКарт.НайтиПоКоду("000000001");
         НовыйЭлемент.КодКарты = СокрЛП(ЕкселДок.Cells(Стр,1).Value);
         НовыйЭлемент.Записать();
         НовыйЭлемент.Наименование = НовыйЭлемент.Код;
         НовыйЭлемент.Записать();     
        
    Стр = Стр+1;     
                  
    конеццикла;    
    
    Ексел.Quit();

Сообщение отредактировал MATEVI - 19.10.11, 10:40

Причина редактирования: Для кода есть тег! Укажите конфигурацию. Почитайте правила во избежание недоразумений...

[MATEVI]

НовыйЭлемент.ТипШтрихКода = ПланыВидовХарактеристик.ТипыШтрихкодов.НайтиПоНаименованию("EAN13");

// перепутали 
НовыйЭлемент.ТипКарты = ПеречислениеСсылка.ТипыИнформационныхКарт....

[NostradamuS]

Спасибо! Помогло