Загрузка прайс-листа из Еxcel УТ10/11

Опубликовал Андрей Корнюхин (GATTUSO) в раздел Обработки - Ценообразование, прайсы

Обработка позволяет легко загрузить прайс-листы из эксель. Имеет очень простой интуитивно понятный интерфейс.

Загрузка происходит в документ "Установка цен номенклатуры" (создается новый документ). Поиск номенклатуры в базе происходит по выбранному пользователем реквизиту.  Если номенклатура не находится - выводится соответствующее сообщение.

Если номенклатуры в базе нет, для загрузки можно воспользоваться обработкой: //infostart.ru/public/156394/

Если необходимо загружать изображения номенклатуры из эскель: //infostart.ru/public/279689/

 

Обработка подходит для конфигураций УТ10, УТ11. Вероятно, подойдет и для других схожих конфигураций.
Код открыт, при необходимости легко изменить под свои нужды и под другие конфигурации.

Скачать файлы

Наименование Файл Версия Размер
Загрузка прайс-листа из excel УТ10
.epf 14,33Kb
01.09.15
14
.epf 1.0 14,33Kb 14 Скачать
Загрузка прайс-листа из excel УТ11
.epf 12,26Kb
01.09.15
36
.epf 1.0 12,26Kb 36 Скачать

См. также

Комментарии
1. Игорь Иванов (ketr) 82 16.11.16 21:24 Сейчас в теме
чуток доработал - автоматический подсчет количества строк на странице добавил:
КонСтрока=Лист.Cells(1,1).SpecialCells(11).Row;


Пропуск пустых строк:
		Если ЗначениеЦены = "" Тогда
			Продолжить;
		КонецЕсли;


Добавил удаление пробелов в цене (например, если в ячейке стоит 3 007):
    		ЗначениеЦены = СтрЗаменить(ЗначениеЦены," ","");


В модуль объекта вот такую функцию (для регистрации в базе):

Функция СведенияОВнешнейОбработке() Экспорт
	
    РегистрационныеДанные = Новый Структура;
    РегистрационныеДанные.Вставить("Наименование", "Загрузка из Exel");
    РегистрационныеДанные.Вставить("БезопасныйРежим", Ложь);
    РегистрационныеДанные.Вставить("Версия", "1.0");
    РегистрационныеДанные.Вставить("Вид", "ДополнительнаяОбработка");
    РегистрационныеДанные.Вставить("Информация", "Загрузка из Exel");
        

    ///////////// команды /////////////////////////

	тзКоманд = Новый ТаблицаЗначений;
	тзКоманд.Колонки.Добавить("Идентификатор");
	тзКоманд.Колонки.Добавить("Представление");
	тзКоманд.Колонки.Добавить("Модификатор");
	тзКоманд.Колонки.Добавить("ПоказыватьОповещение");
	тзКоманд.Колонки.Добавить("Использование");

	строкаКоманды = тзКоманд.Добавить();
	строкаКоманды.Идентификатор = "1";
	строкаКоманды.Представление = "Загрузка_из_Exel";
	строкаКоманды.ПоказыватьОповещение = Истина;
	строкаКоманды.Использование = "ОткрытиеФормы";
       
    РегистрационныеДанные.Вставить("Команды", тзКоманд);

    Возврат РегистрационныеДанные;
	
КонецФункции
...Показать Скрыть
Оставьте свое сообщение