Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
18 апр 2024, 07:54

Перенос цены из прайса

Автор gliokker, 30 апр 2013, 10:13

0 Пользователей и 1 гость просматривают эту тему.

gliokker

Всем привет подскажи пожалуйста,не получается перенести номенклатуру и цену из прайса
Процедура СоздатьДокумент(ПутьКФайлу = "") Экспорт
   Попытка
        Эксель = Новый COMОбъект("Excel.Application");
   Исключение
        Сообщить(ОписаниеОшибки());
        Возврат;
   КонецПопытки;
   Документ = Документы.ИзменениеЦен.СоздатьДокумент();
   Документ.ХозОперация = Справочники.ХозОперации.УстановкаЦенКомпании;
   Книга = Эксель.WorkBooks.Open(ПутьКФайлу); 
   Лист = Книга.WorkSheets(1); 
   ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
   Для Ит = 2 По ВсегоСтрок Цикл
      КодНоменклатуры = СокрЛП(СтрЗаменить(Лист.Cells(Ит,3).Value," ",""));
      Цена = Число(СтрЗаменить( Лист.Cells(Ит,6).Value," ",""));
      Если СтрДлина(КодНоменклатуры)<10 Тогда
         Пока СтрДлина(КодНоменклатуры)<6 Цикл
            КодНоменклатуры = "0" + КодНоменклатуры;
         КонецЦикла;
      КонецЕсли;         
      Номенклатура = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул",КодНоменклатуры);
      Если Не Номенклатура.Пустая() Тогда
         НовСтр = Документ.Товары.Добавить();
         НовСтр.Номенклатура = Номенклатура;
         НовСтр.ЕдиницаИзмерения = Номенклатура.ОсновнаяЕдиницаИзмерения;
         НовСтр.Коэффициент = Номенклатура.ОсновнаяЕдиницаИзмерения.Коэффициент;
         НовСтр.Цена = Цена;
      КонецЕсли;   
      //Если Ит > 100 Тогда
      //   Прервать;
      //КонецЕсли;
      
   КонецЦикла;
   
   Форма = Документ.ПолучитьФорму();
   Форма.Открыть();
Эксель.Application.Quit();

документ создаётся а не чего не переносится .

Dethmontt

Вот же условие по которому в табличную часть добавляются строки Если Не Номенклатура.Пустая() Тогда

Номенклатуру не на ходит по АРТИКУЛУ
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

gliokker

Цитата: Dethmontt от 30 апр 2013, 10:15
Вот же условие по которому в табличную часть добавляются строки Если Не Номенклатура.Пустая() Тогда

Номенклатуру не на ходит по АРТИКУЛУ

Ну я думал ,как это работает,если номерклатуры такой нету то добавляется новая,или я не так понимаю?

Dethmontt

Где она добавляется новая? В коде такого нету!
Если долго всматриваться в учебник...то в голову может прийти мысль его открыть!

gliokker

Цитата: Dethmontt от 30 апр 2013, 10:37
Где она добавляется новая? В коде такого нету!

А не подскажите что дописать чтоб добавлялась?Тут я понял добавляется толька та которая уже есть.

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск