Сообщения, отправленные пользователем: start

Пароль 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.