gifts2017

Калькулятор стоимости доставки грузов транспортными компаниями

Опубликовал _ Ya, Ti, On, Ona, Vmeste celaya strana (agent00mouse) в раздел Обработки - Универсальные обработки

Сведение калькуляторов по расчёту доставки грузов нескольких транспортных компаний.
В настоящий момент доступны для расчёта:
1. Глав доставка
2. Деловые линии
3. ПЭК
4. КИТ
5 Энергия

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

Для подбора городов используется ФИАС, перед тем, как использовать обработку, загрузите адреса в базу.

Обработка написана на УТ11, но должна работать на всех новых конфигурациях с управляемыми формами и адресным классификатором ФИАС. Функции калькуляторов универсальны. Думаю, легко переносится с управляемых форм на простые, одна проблема, нужен ФИАС.

Для работы расчёта Деловых линий и ПЭК нужно зарегистрироваться на сайте этих компаний и в личном кабинете получить ключ.

Функции калькуляторов ТК находятся в модуле объекта:

Функция ВыполнитьЗапросПЭК(СтруктураПараметров) и ЗаполнитьСправочникГородовПЭК(

СтруктураПараметровHTTPЗапрос.Вставить("Логин", "");
СтруктураПараметровHTTPЗапрос.Вставить("Ключ", "");

Функция дл_ВыполнитьРасчет(ПараметрыВыполнения);

ДанныеЗапроса = Новый Структура; 
ДанныеЗапроса.Вставить("appKey","");

Дописано 28.04.2016:

  • Добавлена ТК Энергия
  • Переписан интерфейс
  • Добавлена справка по расчёту транспортными компаниями достаки груза.
  • Расчёт негабаритного груза см. В процедуру ПередСозданиемФормы
  • Расчёт фоном. - форма не обновляется. подскажите как объехать эту граблю.

Дописать 28.04.2016

  • глав доставка поменяла адрес API
  • изменила способ подключения на SSL

Для работы сервиса внести исправления в код (обработку заменю позже).

Функция ПолучитьHTTPЗапро(УРЛ, ФайлОтвета = Неопределено)
	
	ССЛКоннект		= 80;
	ssl = Неопределено; 
	Если Найти(ВРег(УРЛ), ВРег("https")) > 0 Тогда 
		ССЛКоннект = 443;
		ssl = Новый ЗащищенноеСоединениеOpenSSL( неопределено, неопределено ); 
	КонецЕсли;
	..
	..
	..
	Попытка
		HTTPСоединение = Новый HTTPСоединение(ХОСТ,ССЛКоннект,,,,,ssl);

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

Наименование Файл Версия Размер Кол. Скачив.
КалькуляторСтоимостиДоставки-Для-IS.epf
.epf 59,17Kb
28.04.16
10
.epf 59,17Kb 10 Скачать

См. также

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

Комментарии

1. legzzi Пол (legzzi) 04.10.16 23:30
Здравствуйте, может есть желание добавить другие транспортные компании? + добавить мониторинг отправок - местонахождения грузов, цена, вес, объем, размеры и т.д.?
буду рад сотрудничеству - владею интернет магазином нужна доработка которая бы умела все это делать...
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа