gifts2017

Установка цен номенклатуры из Excel

Опубликовал Сергей . (1108) в раздел Обработки - Обработка документов

Загрузка цен номенклатуры из Excel для 1C: УТ 8.1

Обработка загружает цены номенклатуры в документ "Установка цен номенклатуры". Без предварительного просмотра. Не работает с файлами 2007-2010 офиса (нужно сохранять в формате 97-2003).

Выбираем файл excel, указываем колонку номенклатуры и колонку цены, задаем тип цены, жмем Загрузить.

Особенности:

- Вид типа цены должен быть "Базовый".

- Если загружается номенклатура, которой нет в справочнике "Номенклатура", вылетает ошибка.

- При загрузке, поле "Единица" заполняется из реквизита номенклатуры ЕдиницаХраненияОстатков.

- При загрузке, поле "Валюта" заполняется за константы ВалютаРегламентированногоУчета.

- Проверял работоспособность только на "Управление торговлей", редакция 10.3.12.3.

Немного исправил обработку. Надеюсь, в лучшую сторону.

Если кому-нибудь подойдет, буду только рад.

Код открыт, удачи.

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

Наименование Файл Версия Размер Кол. Скачив.
ЗагрузкаЦенИзExcel.epf
.epf 9,08Kb
09.12.10
242
.epf 9,08Kb 242 Скачать

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Александр Гладких (yku) 09.09.10 12:26
Мде. Скачал в надежде, что внутри хотя бы код будет красивый... Код оказался даже ужаснее интерфейса.
2. Андрей 1 (andrej260276) 10.09.10 08:19
Рабочая обработка. За идею поставил плюс. Если кому не понравился код, пускай украшениями занимаются сами. Главное работоспособность. Я тоже часть кода исправил, но в целом идею сохранил. Спасибо!
4. Александр Гладких (yku) 10.09.10 15:36
(2) Ну не знаю. Обработка может быть и нужная. И, возможно, её больше нигде нет (в чем я сомневаюсь). Но когда её выкладываешь можно хотя бы нажать ALT+SHIFT+F.

В целом идея хороша. Нет слов. Особенно хороши новаторские приемы в:
1. Организации интерфейса (вид формы при её разворачивании, и само расположение элементов формы)
2. Передачи параметров в процедуру из формы:
Форма=ПолучитьФорму("Форма");
ПутькФайлу=Форма.ПутькФайлу;
КодЦены=Форма.КодЦены;
3. Переприсвоения переменных:
КодЦены=Форма.КодЦены;
НазваниеЦены=КодЦены;
4. Поиска ссылки на элемент из ссылки по наименованию:
НоваяСтрока.ТипЦен = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию(НазваниеЦены);

где НазваниеЦены = КодЦены, а КодЦены = Форма.КодЦены, а Форма.КодЦены имеет тип "СправочникСсылка.ТипыЦенНоменклатуры".

...
А если серьезно:
Я вовсе не ругаю автора за код, я его ругаю за то, что он такое ("ТАКОЕ!") имеет смеслость выкладывать на всеобщее обозрение прикрываясь "писал для себя". Конечно, понятно, что у автора еще мало опыта, и эта обработка для него знаменует некий "прорыв", но не стоит каждым таким "прорывом" делиться. Автору можно порекомендовать почитать 1Совские стандарты. Писались они опытными людьми, и создавались не на пустом месте.



5. Сергей . (1108) 10.09.10 16:12
(4) Спасибо за здравую критику. Оправдываться не буду, действительно начинающий. Выложил только потому что не нашел подобных бесплатных обработок. Так как вопрос насущный, для многих пользователей, посчитал необходимым поделиться.
6. Андрей 1 (andrej260276) 10.09.10 16:20
Вы правы насчёт кода. Полностью с Вами согласен! А, то что выложил, молодец за идею и смелость плюс. Я уверен, что после всех замечаний, автор будет обращать своё внимание на код и интерфейс, даже если он пишет ДЛЯ СЕБЯ. Ведь мы здесь для того, чтобы делиться опытом, мнением, информацией! Про книги правильный совет.
7. Эдуард (edyardg) 29.09.11 12:19
Поставил плюс потому что пользуюсь!
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа