gifts2017

Загрузка прайса фирмы 1С в УТ 11 (управляемое приложение)

Опубликовал Leon (lnnd) в раздел Обработки - Ценообразование, прайсы

Загрузка прайса фирмы 1С в УТ 11 (http://www.1c.ru/rus/partners/pricelst.jsp)
  1. Сравнение товаров и цен сайта 1С с текущей базой (формирование отчета-сравнения);
  2. Загрузка только тех товаров, которые отсутствуют в базе;
  3. Автоматическое создание документа  "Установка цен номенклатуры";
  4. Создание новых элементов справочника видов цен:
  • ·         Розничная цена;
  • ·         Цена постоянного партнера;
  • ·         Дилерская цена.
  1. Автоматический подбор новых валют и единиц измерения из классификаторов.

Использование:

По кнопке "Сформировать" происходит подключение к ресурсу  "http://www.1c.ru/rus/partners/pricelst.jsp", считываются данные прайса и выводит отчет по товарам и ценам. 

Кнопка "Загрузить" - загружает данные прайса в УТ11, создаются недостающие справочники, формируются документы установки цен.

Настройки:

В поле "Вид номенклатуры для новых элементов" указывается вид номенклатуры, который будет использоваться при создании новых товаров в базе.

Примечания:

Для Windows 8, при использовании клиент-серверной архитектуры, нужно открыть доступ к папке TEMP пользователю USR1CV82 или другому пользователю, который отвечает за запуск сервера приложений 1С. Это необходимо для создания временных файлов.

P.S.

Разрабатывал для УТ 11 (платформа 8.2.19), возможно, будет работать на других конфигурациях.

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

Наименование Файл Версия Размер
Загрузка прайса 1С 48
.erf 17,99Kb
05.05.14
48
.erf 17,99Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Павел Алексеенко (qwinter) 06.05.14 20:11
Новая мода: 1С грабит корованы сайты)
2. Владимир Конырев (Vladimir_Konyrev) 25.11.16 00:32
Чуть-чуть не работает под свежую УТ11, пришлось подправить.
В клиент-серверной ERP что-то не взлетело.
3. Владимир Конырев (Vladimir_Konyrev) 25.11.16 01:39
Обработка зависает на коде:
			Пока МаксИндекс >= 0 Цикл
				
				ТекСтрока = ТаблицаГрупп[МаксИндекс];
				Если ТекСтрока.Уровень >= Уровень Тогда
					ТаблицаГрупп.Удалить(ТекСтрока);
					МаксИндекс = МаксИндекс - 1;
										
				Иначе
					СтрокаТаблицыПрайса.Группа = ТаблицаГрупп[ТаблицаГрупп.Количество() - 1].Наименование;
					
					Если СтрокаТаблицыПрайса.ЭтоГруппа Тогда
						
						НоваяСтрока = ТаблицаГрупп.Добавить();
						НоваяСтрока.Наименование = СтрокаТаблицыПрайса.Артикул;
						НоваяСтрока.Уровень = СтрокаТаблицыПрайса.Уровень;
						
						Прервать;
					КонецЕсли;
				КонецЕсли;
	
...Показать Скрыть