Загрузка данных из табличного документа 8,2

 

Процедура ЗагрузитьДокумент()

        НачатьТранзакцию();

    

    //    СписокФайлов=НайтиФайлы(ПутьКФайлу,"*.xls");

    //    Для каждого текстрока из СписокФайлов Цикл

    ExcelApp = Новый COMОбъект("Excel.Application");

    //    Книга = ExcelApp.Workbooks.Open(текстрока.ПолноеИмя);

    Книга = ExcelApp.Workbooks.Open(Объект.ПутьКФайлу);

    Страница = Книга.Worksheets(1);

    //Сообщить("Загружается файл "+Строка(Объект.ПутьКФайлу));

    НомерСтроки     = 25;

    НомерКолонки = 1;

    Док=Документы.ПоступлениеТоваров.СоздатьДокумент();

    Док.Дата=Объект.ДатаДокумента;

    Док.Контрагент=Объект.Контрагент;

    Док.Организация=Справочники.Организации.НайтиПоНаименованию("ИП Назаров Д.С").Ссылка;

    Док.Магазин=Справочники.Магазины.НайтиПоНаименованию("ИП Назаров Д.С. (Магазин ");

    Док.Склад=Объект.Склад;

    Пока Не ПустаяСтрока(Страница.Cells(НомерСтроки,2).Value) Цикл

        ЕдСтрока=Сокрлп(Страница.Cells(НомерСтроки,14).Value);

        НоменклатураСтрока=Сокрлп(Страница.Cells(НомерСтроки,3).Value);

        Количество=Число(Страница.Cells(НомерСтроки,18).Value);

        //Цена=Число(Страница.Cells(НомерСтроки,26).Value);

        Сумма=Число(Страница.Cells(НомерСтроки,39).Value);

        ШтрихКод = Сокрлп(Страница.Cells(НомерСтроки,8).Value);

                

        Нстрока=Док.Товары.Добавить();

        

        ПоискЕд=Справочники.БазовыеЕдиницыИзмерения.НайтиПоНаименованию(ЕдСтрока);

        Если ПоискЕд=Справочники.БазовыеЕдиницыИзмерения.ПустаяСсылка() Тогда

            Ед=Справочники.БазовыеЕдиницыИзмерения.СоздатьЭлемент();

            Ед.Наименование=ЕдСтрока;

            //Ед.ТипБазовойЕдиницыУпаковки=Перечисления.ТипыЕдиницИзмеренияНоменклатуры.Штучная;

            Ед.Записать();

        Иначе

            Ед=ПоискЕд.ссылка;

        КонецЕсли;

        

        Поиск=Справочники.Номенклатура.НайтиПоНаименованию(НоменклатураСтрока); 

        Если Поиск=Справочники.Номенклатура.ПустаяСсылка() Тогда

            Номенклатура=Справочники.Номенклатура.СоздатьЭлемент();

                

            номенклатура.ЕдиницаИзмерения=Ед.ссылка;

            номенклатура.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;

            номенклатура.Наименование= НоменклатураСтрока;

            номенклатура.НаименованиеПолное= НоменклатураСтрока;

            номенклатура.ВидНоменклатуры=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("товары");

            номенклатура.Записать();

            НаборЗаписей = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();

            НаборЗаписей.владелец = Номенклатура.Ссылка;

            НаборЗаписей.Штрихкод = Штрихкод;

            НаборЗаписей.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;

            НаборЗаписей.Записать();

        Иначе    

            Номенклатура=поиск.ссылка;

        КонецЕсли;



          Нстрока.Номенклатура =Номенклатура.Ссылка;

           Нстрока.Количество= Количество;

          Нстрока.КоличествоУпаковок=Количество;

          Нстрока.Цена= Окр(Сумма/Количество,2);

          Нстрока.СтавкаНДС=Перечисления.СтавкиНДС.БезНДС;

          Нстрока.Сумма=Сумма;

          Нстрока.Упаковка=Ед;

         НомерСтроки=НомерСтроки+1;    

     КонецЦикла;

    Док.СуммаДокумента=Док.Товары.Итог("Сумма");

    Док.ДатаВходящегоДокумента=Дата(Прав(Страница.Cells(19,16).Value,4),Сред(Страница.Cells(19,16).Value,5,2),Сред(Страница.Cells(19,16).Value,7,2));

    Док.НомерВходящегоДокумента=строка(Страница.Cells(19,12).Value);

    Док.Ответственный=Справочники.Пользователи.НайтиПоНаименованию("Администратор");

    Док.Записать(РежимЗаписиДокумента.Проведение);

Сообщить("Создан документ "+Строка(Док.Ссылка));    

    ExcelApp.Quit();

    ЗафиксироватьТранзакцию();



КонецПроцедуры