Автор |
Сообщение |
|
Пароль yumata
|
|
|
Признателен за благодарности...
Последняя версия - https://drive.google.com/drive/folders/1rpUVPvftQ6PMena1qkYkncu1XgUdqbME
Версия рабочая, каждый день отгружает по 100 накладных.
Там еще переделка под партионный учет, но пока сырая..
Mercury.zip - структура папок.
Work\Mercury\Soap.OPToSOAPDomConv.pas - исправлен по совету коллеги Игнатова (низкий поклон, я бы сам не справился).
|
|
|
bamxx wrote:Крик души!
Привет всем дельфистам, которые вынуждены писать интеграцию с ветслужбой!
Я уважаю Ваше желание ползать по wsdl-ной обертке: копаться во всяких там
getVetDocumentListRequest,
ams_mercury_g2b.submitApplicationRequest.Create;
count := TXSDecimal.Create; и т.п.
end;[/code]
Но зато система уже работает и автоматом по расписанию формирует ВСД, штук по 500 за смену...
Если есть желающие - могу дать исходники...
|
|
|
bamxx wrote:
Не надо хаять мою систему
Я не систему хаю, а говорю о сложившейся ситуации...
|
|
|
bamxx wrote:
это сообщение для Start: как там Тигран поживает?
Грозит голландской карой во все места - если завтра все не заработает!
А я начал месяц назад
Сплю по 4 часа в сутки...
Туфта получается - учетная система не имеет привязки к партии, ВСД будут от произвольной входящей партии...
|
|
|
Посмотрите примеры вызова в исходниках, я выкладывал ранее:
function TXSDParser.GetInitiator: ams_mercury_g2b.User2;
begin
Result:=ams_mercury_g2b.User2.Create;
Result.login:=FileIni.ReadString(MercuryIniSection, 'Initiator', '');
end;
GetDocumentRequest:=ams_mercury_g2b.modifyBusinessEntityRequest.Create;
GetDocumentRequest.initiator:=GetInitiator;
|
|
|
Никаких префиксов сам не ставлю!
<initiator><login xmlns="http://api.vetrf.ru/schema/cdm/mercury/vet-document/v2">Мой логин</login></initiator>
|
|
|
"Потому и интересно, зачем Вы качаете WSDL схемы на локальную машину?"
Почитайте начало ветки - сообщения коллеги Игнатова. Там правки нужны... Чтобы DataWrapper сработал.
|
|
|
Выкладываю очередную версию - https://drive.google.com/drive/folders/1rpUVPvftQ6PMena1qkYkncu1XgUdqbME?usp=sharing
Берите более свежий zip. Внутри БД и WSDL-файлы. Может кому-то поможет
|
|
|
А WSDL импортировали?
|
|
|
Киньте пожалуйста тестовые ВСД
ХС - fa4036a7-0cd0-4d09-bb06-7175cc6c318d
ПО - 933a0d1f-4403-4350-b8ab-a93231814871
|
|
|
В веб-интерфейсе. https://mercury.vetrf.ru/hs
|
|
|
Да я просто привел пример кода лентяев, которым лень писать длинные имена...
|
|
|
Коллеги, киньте ВСД для тестового контура!
ХС - fa4036a7-0cd0-4d09-bb06-7175cc6c318d
ПО - 933a0d1f-4403-4350-b8ab-a93231814871
Заранее благодарю!
|
|
|
Ну если вместо ApplicationResponse:=SoapServer.submitApplicationRequest(ApplicationRequest);
написать Ar:=SS.SAR(Ar) - тогда трудно разобраться....
Код программы должен представлять собой связный английский текст...
Последние 35 лет стараюсь так писать
Начал где-то в 1983, на С под Юниксом на СМ-1420.
|
|
|