//Перем ExcelПриложение;
&НаКлиенте
Процедура ФайлЗагрузкиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ВыборФайла.Фильтр = "Документ Excel (*.xls, *.xlsx)|*.xls;*.xlsx|Документ Excel (*.xlsx)|*.xlsx";
ВыборФайла.ПроверятьСуществованиеФайла = Истина;
ВыборФайла.ПолноеИмяФайла = Объект.ФайлЗагрузки;
Выбор = ВыборФайла.Выбрать();
Если НЕ Выбор Тогда
Возврат;
КонецЕсли;
Объект.ФайлЗагрузки = ВыборФайла.ВыбранныеФайлы[0];
КонецПроцедуры
&НаКлиенте
Процедура Загрузить(Команда)
ВыгрузкаДанныхИзЕксель();
КонецПроцедуры
&НаКлиенте
Процедура ВыгрузкаДанныхИзЕксель()
Если ПустаяСтрока(Объект.ФайлЗагрузки) Тогда
Предупреждение("Для запуска обработки необходимо предварительно выбрать файл Microsoft Excel.");
Возврат;
КонецЕсли;
Попытка
// Загрузка Microsoft Excel
Состояние("Загрузка Microsoft Excel...");
ExcelПриложение = Новый COMОбъект("Excel.Application");
Исключение
Сообщить("Ошибка при загрузке Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
Возврат;
КонецПопытки;
Попытка
// Открытие файла Microsoft Excel
Состояние("Открытие файла Microsoft Excel...");
ExcelФайл = ExcelПриложение.WorkBooks.Open(Объект.ФайлЗагрузки);
Исключение
Сообщить("Ошибка открытия файла Microsoft Excel." + Объект.ФайлЗагрузки + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
КонецПопытки;
Попытка
// Обработка файла Microsoft Excel
Состояние("Обработка файла Microsoft Excel...");
// Читаем данные первого листа книги
ExcelЛист = ExcelФайл.Sheets(Объект.НомерЛиста); // Какой лист читаем
ЧтениеИзФайлаСервера(ExcelЛист);
ПрошлоЧтение = Истина;
Исключение
Сообщить("Ошибка открытия листа №1 Microsoft Excel." + Символы.ПС + ОписаниеОшибки(), СтатусСообщения.Внимание);
// Закрыть COM соединение для экономии памяти
ExcelПриложение.Quit();
ПрошлоЧтение = Ложь;
КонецПопытки;
Если ПрошлоЧтение Тогда
ExcelПриложение.Quit();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ЧтениеИзФайлаСервера(ExcelЛист)
Если не ЗначениеЗаполнено(Объект.ФайлЗагрузки) Тогда
Сообщить("Может сначала выбрать файл!");
Возврат;
КонецЕсли;
АнализВыполнен = 1;
Лист = ExcelЛист;//.WorkSheets(1);
НомПоляАртикул = 1;
НомСтрокиАртикул = 1;
КолАрт = 0 ;
КатНом = "";
ПерКатНом = "";
НайденАртикул = ПоискСтрокиПоляАртикула(ExcelЛист, НомСтрокиАртикул, НомПоляАртикул);
Пока НайденАртикул Цикл
КолАрт = КолАрт + 1;
Артикул = СокрЛП(Лист.Cells(НомСтрокиАртикул+1, НомПоляАртикул).Text);
СледСтрока = Ложь;
Пока Артикул <> "" Цикл
Если Не СледСтрока Тогда
НомПоляЦена = НомПоляАртикул;
НайденаЦена = ПоискСтрокиПоляЦена(ExcelЛист, НомСтрокиАртикул, НомПоляЦена);
Если НайденаЦена Тогда
ЦенаНом = СокрЛП(Лист.Cells(НомСтрокиАртикул+1, НомПоляЦена).Text);
НайдСимвол = Найти(ЦенаНом, "р");
Если НайдСимвол <> 0 Тогда
КолСимволов = (СтрДлина(ЦенаНом)+1)-НайдСимвол;
ЦенаНом = Лев(ЦенаНом, СтрДлина(ЦенаНом)-КолСимволов);
КонецЕсли;
Иначе
ЦенаНом = 0;
КонецЕсли;
КонецЕсли;
НайденаяНоменклатура = ПоискЭлементаСпрНоменклатуры(Артикул);
Если Не СледСтрока Тогда
НаимНом = СокрЛП(Лист.Cells(НомСтрокиАртикул-1, НомПоляАртикул).Text);
КатНом = СокрЛП(Лист.Cells(НомСтрокиАртикул-2, НомПоляАртикул).Text);
Если КатНом <>"" Тогда
ПерКатНом = КатНом;
КонецЕсли;
КонецЕсли;
Если НайденаяНоменклатура <> Неопределено Тогда
ЗаписьЦен(НайденаяНоменклатура, ЦенаНом);
Иначе
НПоля = НомПоляАртикул + 1;
ОписаниеНом = "";
Пока НПоля < НомПоляЦена Цикл
ОписаниеНом = ОписаниеНом + СокрЛП(Лист.Cells(НомСтрокиАртикул+1, НПоля).Text)+"/";
НПоля = НПоля + 1;
КонецЦикла;
НовНомеклатура = ЗаписьНовогоЭлемНоменклатуры(НаимНом, Артикул, ОписаниеНом, ПерКатНом);
ЗаписьЦен(НовНомеклатура, ЦенаНом);
КонецЕсли;
НомСтрокиАртикул = НомСтрокиАртикул + 1;
Артикул = СокрЛП(Лист.Cells(НомСтрокиАртикул+1, НомПоляАртикул).Text);
СледСтрока = Истина;
КонецЦикла;
//
НомСтрокиАртикул = НомСтрокиАртикул + 1;
НайденАртикул = ПоискСтрокиПоляАртикула(ExcelЛист, НомСтрокиАртикул, НомПоляАртикул);
КонецЦикла;
Сообщить(КолАрт);
КонецПроцедуры
&НаКлиенте
Функция ПоискСтрокиПоляЦена(Лист, НомСтрокиАртикул, НомПоляЦена)
ПустыеСтроки = 0;
ПустыеПоля = 0;
Пока ПустыеПоля < 3 Цикл //+3 - ?????????? ИЛИ НомСтроки<24
НаверноеЦена = СокрЛП(Лист.Cells(НомСтрокиАртикул, НомПоляЦена).Text);
ТутЦена = Найти(НРег(НаверноеЦена), "цен");
Если ТутЦена <> 0 Тогда
Возврат(Истина);
ИначеЕсли НаверноеЦена = "" Тогда
ПустыеПоля = ПустыеПоля + 1;
Иначе
НомПоляЦена = НомПоляЦена + 1;
КонецЕсли;
КонецЦикла;
Возврат(Ложь);
КонецФункции
&НаКлиенте
Функция ПоискСтрокиПоляАртикула(Лист, НомСтрокиАртикул, НомПоляАртикул)
ПустыеСтроки = 0;
ПустыеПоля = 0;
Пока ПустыеСтроки < 7 ИЛИ ПустыеПоля < 7 Цикл //+3 - ?????????? ИЛИ НомСтроки<24
НаверноеАртикул = СокрЛП(Лист.Cells(НомСтрокиАртикул, НомПоляАртикул).Text);
ТутАрт = Найти(НРег(НаверноеАртикул), "арт");
Если ТутАрт <> 0 Тогда
Возврат(Истина);
ИначеЕсли НаверноеАртикул = "" Тогда
ПустыеСтроки = ПустыеСтроки + 1;
НомСтрокиАртикул = НомСтрокиАртикул + 1;
Если ПустыеСтроки = 7 Тогда
Если ПустыеПоля < 8 Тогда
ПустыеСтроки = 0;
КонецЕсли;
ПустыеПоля = ПустыеПоля + 1;
НомПоляАртикул = НомПоляАртикул + 1;
НомСтрокиАртикул = 1;
КонецЕсли;
Иначе
НомСтрокиАртикул = НомСтрокиАртикул + 1;
КонецЕсли;
КонецЦикла;
Возврат(Ложь);
КонецФункции
&НаСервере
Функция ПоискЭлементаСпрНоменклатуры(ПоискПоАртиклу)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Ссылка КАК Ссылка,
| Номенклатура.Наименование КАК Наименование,
| Номенклатура.Артикул
|
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Артикул = &Артикул";
Запрос.УстановитьПараметр("Артикул", ПоискПоАртиклу);
Рез = Запрос.Выполнить();
Если Рез.Пустой() Тогда
Возврат(Неопределено);
ИначеЕсли Рез.Выбрать().Количество() = 1 Тогда
Выборка = Рез.Выбрать();
Выборка.Следующий();
Возврат(Выборка.Ссылка);
КонецЕсли;
КонецФункции
&НаСервере
Процедура ОбновитьЦеныНоменклатуры(НайденаяНоменклатура)
КонецПроцедуры
&НаСервере
Функция ЗаписьНовогоЭлемНоменклатуры(НаимНом, Артикул, ОписаниеНом, КатегорияНом)
Группа = Справочники.Номенклатура.НайтиПоНаименованию(КатегорияНом);
Если Группа.Пустая() Тогда
СоздГруппы = Справочники.Номенклатура.СоздатьГруппу();
СоздГруппы.Наименование = КатегорияНом;
СоздГруппы.Записать();
КонецЕсли;
НовЭлСпрНоменклатуры = Справочники.Номенклатура.СоздатьЭлемент();
НовЭлСпрНоменклатуры.Наименование = НаимНом;
НовЭлСпрНоменклатуры.НаименованиеПолное = НаимНом;
НовЭлСпрНоменклатуры.ЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт"); // будет наверное меняться
НовЭлСпрНоменклатуры.ТипНоменклатуры = Перечисления.ТипыНоменклатуры.Запас;
НовЭлСпрНоменклатуры.НоменклатурнаяГруппа = Справочники.НоменклатурныеГруппы.НайтиПоНаименованию("Товары"); // будет меняться
НовЭлСпрНоменклатуры.Артикул = Артикул;
НовЭлСпрНоменклатуры.Комментарий = ОписаниеНом;
НовЭлСпрНоменклатуры.Родитель = Справочники.Номенклатура.НайтиПоНаименованию(КатегорияНом);
Попытка
//УправлениеСвойствами.ПередЗаписьюНаСервере(ЭлемФормы, НовЭлСпрНоменклатуры);
НовЭлСпрНоменклатуры.Записать();
Сообщить("Записана номенклатура: "+ НовЭлСпрНоменклатуры.Наименование);
Возврат(НовЭлСпрНоменклатуры.Ссылка);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецФункции
Процедура ЗаписьЦен(ЭлемНом, ЦенаНом)
НаборЗап = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
НаборЗап.Отбор.Номенклатура.Установить(ЭлемНом);
НаборЗап.Отбор.Период.Установить(ТекущаяДата());
НовЗапись = НаборЗап.Добавить();
НовЗапись.Номенклатура = ЭлемНом.Ссылка;
НовЗапись.Период = ТекущаяДата();
НовЗапись.ВидЦен = Справочники.ВидыЦен.Оптовая;
НовЗапись.Цена = ЦенаНом;
НовЗапись.ЕдиницаИзмерения = ЭлемНом.ЕдиницаИзмерения;
НаборЗап.Записать(Истина);
КонецПроцедуры
&НаКлиенте
Процедура ПриОткрытии(Отказ)
Объект.НомерЛиста = 1;
КонецПроцедуры
Структура прайса
