Веб-сервисы клиентов, работающих только по предмету договора "Курьерская деятельность" или "Почтовая деятельность" расположены:
- https://ltl-ws.major-express.ru/mega/clients.asmx?wsdl - веб-сервис для клиентов,
- https://ltl-ws.major-express.ru/mega/1c.asmx?wsdl - веб-сервис для клиентов в 1С.
Веб-сервис клиентов, работающих по предмету договора "Курьерская деятельность", "Почтовая деятельность" и "Транспортно-экспедиционное обслуживание" расположены по адресу:
- https://ltl-ws.major-express.ru/mega/clientsEPD.asmx?wsdl - веб-сервис для клиентов c ЭПД,
- https://ltl-ws.major-express.ru/mega/1cEPD.asmx?wsdl - веб-сервис для клиентов в 1С c ЭПД.
ТЕСТОВАЯ СРЕДА
Версия веб-сервиса клиентов для тестирования, работающих только по предмету договора "Курьерская деятельность" или "Почтовая деятельность" расположены:
- https://ltl-ws.major-express.ru/test-mega/clients.asmx?wsdl - тестовый веб-сервис для клиентов,
- https://ltl-ws.major-express.ru/test-mega/1c.asmx?wsdl - тестовый веб-сервис для клиентов в 1С.
Версия веб-сервиса клиентов для тестирования, работающих по предмету договора "Курьерская деятельность", "Почтовая деятельность" и "Транспортно-экспедиционное обслуживание" расположены:
АВТОРИЗАЦИЯ
Доступ к веб-сервису осуществляется только с авторизацией пользователя. Тип аутентификации - Basic. Запросы на предоставление параметров учетной записи веб-сервиса направляются менеджеру клиента. Если уже имеется логин и пароль администратора к клиентскому удалённому доступу, то он работает с этим веб-сервисом.
ОБ ИСКЛЮЧЕНИЯХ
При возникновении ошибки в работе функций и процедур веб-сервиса вызываются исключения. Им посвящена страница "Об исключениях".
ПРИМЕРЫ КОДА ИНИЦИАЛИЗАЦИИ КЛИЕНТА
Классический клиент:
Dim m_WebService As New WebServices.MEGA.ClientsWebService
m_WebService.EnableDecompression = True
m_WebService.Credentials = New System.Net.NetworkCredential("login", "password")Пример кода обработки исключения с помощью клиента веб-сервиса в DLL
Catch ex As System.Web.Services.Protocols.SoapException
Dim ErrorMessage As String = String.Empty
Dim exx As Exception = ex
Do
ErrorMessage &= exx.Message
exx = exx.InnerException
If exx IsNot Nothing Then ErrorMessage &= vbNewLine
Loop Until exx Is Nothing
Console.WriteLine(ErrorMessage)
Dim wpe As New MajorExpress.LTL.WebServiceException(ex)
Console.WriteLine("Код: {0}" & vbNewLine & "Сообщение: {1}", wpe.Code, wpe.Description)
If wpe.PackagesErrors IsNot Nothing Then
Console.WriteLine("Дополнительные ошибки:" & vbNewLine)
For Each pke As MajorExpress.LTL.PackageError In wpe.PackagesErrors
Console.WriteLine("Код: {0}"& vbNewLine & "Сообщение: {1}"& vbNewLine & "Номер места: {2}"& vbNewLine & "Номер накладной: {3}"& vbNewLine, pke.Code, pke.Description, pke.PackageID, pke.WBID)
Next
End If
If wpe.WBID.HasValue Then Console.WriteLine("Накладная: {0}", wpe.WBID)