Прошу помощи. Интреграция базы MSSQL и Меркурий через шлюз на Delphi

start wrote:Признателен за благодарности...
Последняя версия - https://drive.google.com/drive/folders/1rpUVPvftQ6PMena1qkYkncu1XgUdqbME
Версия рабочая, каждый день отгружает по 100 накладных.
Там еще переделка под партионный учет, но пока сырая..
Mercury.zip - структура папок.
Work\Mercury\Soap.OPToSOAPDomConv.pas - исправлен по совету коллеги Игнатова (низкий поклон, я бы сам не справился).

Следом: в Soap.InvokeRegistry.pas заменить метод

Проблема в том, что при вызове RegisterExternalPropName с уже существующим InternalName исходный метод все равно добавляет связку InternalName - ExternalName в массив, а нужно - заменять ExternalName в имеющемся элементе массива.>

Что то меня начали "отстегивать" от ряда веток форума с "невинной" формулировкой:

For detailed error information, please see the HTML source code, and contact the forum Administrator.

com.mysql.jdbc.MysqlDataTruncation: Data truncation: Data too long for column 'post_subject' at row 1

И это всего лишь за планету "Нибиру" и генерала Власова? Обидно)))

Во! Тут проходит)) И на том спасибо.

Vlad74ru wrote:Что то меня начали "отстегивать" от ряда веток форума с "невинной" формулировкой:

For detailed error information, please see the HTML source code, and contact the forum Administrator.

com.mysql.jdbc.MysqlDataTruncation: Data truncation: Data too long for column 'post_subject' at row 1

И это всего лишь за планету "Нибиру" и генерала Власова? Обидно)))

Читайте, что Вам пишут!

Data too long for column 'post_subject'

Строка темы слишком длинная, не лезет в базу.

start wrote:Признателен за благодарности...
Последняя версия - https://drive.google.com/drive/folders/1rpUVPvftQ6PMena1qkYkncu1XgUdqbME
Версия рабочая, каждый день отгружает по 100 накладных.

Приветствую, а архив запаролен?

Пароль yumata

Спасибо

Кстати Soap.Rio не обязательно патчить. Можно же в обработчиках THTTPRio OnBeforeExecute и OnAfterExecute сделать сохранение запросов.

exteris wrote:Кстати Soap.Rio не обязательно патчить. Можно же в обработчиках THTTPRio OnBeforeExecute и OnAfterExecute сделать сохранение запросов.

Да, правильно. У меня уже так и сделано, просто тогда так показалось проще. Чтобы все писать. Да и писать нужно с разными именами, хоть с прибавлением даты-времени, чтобы не стиралось одно другим и можно было увидеть всю цепочку запрос-ответов.

Vladimir2017 wrote:

start wrote:Но зато система уже работает и автоматом по расписанию формирует ВСД, штук по 500 за смену...
Если есть желающие - могу дать исходники...

Если бы модуль импортировался бы нормально, без плясок с бубном, я бы сам им воспользовался. Ну и то, что движок THHTPRIO использует Wininet.dll очень большой минус.

Так никто ж не мешает собрать его с использованием IdHTTP. ($DEFINE USE_INDY} ну и OpenSSL подсунуть

PS: Если использовать Indy то можно вынести Intercept в THTTPReqResp и использовать для логирования стандартный Indy перехватчик

Еще патчи для OPToSOAPDomConv

строка 3145

после 3156 вставить

prosoft wrote:Еще патчи для OPToSOAPDomConv

строка 3145
IntVec[I] := ntElementChildCount(Node, ElementName);
после 3156 вставить
if ExtractLocalName(N.NodeName) <> ElementName then Continue;

Зачем это? Что дает?

Владимир Игнатов wrote:

prosoft wrote:Еще патчи для OPToSOAPDomConv

строка 3145
IntVec[I] := ntElementChildCount(Node, ElementName);
после 3156 вставить
if ExtractLocalName(N.NodeName) <> ElementName then Continue;

Зачем это? Что дает?

Правильную обработку массивов. Сейчас уже точно не помню в чем именно был затык, по-моему в некоторых случаях брался только первый элемент из пришедшего в xml списка однотипных элементов

prosoft wrote:Еще патчи для OPToSOAPDomConv

Спасибо.
Лучше выкладывать фрагменты кода и где нужно поправить/добавить строчку, в моей версии делфей номера строк другие.

Добрый день!
Ни как не могу выгрузить пространство имен для package.
Достаточно добавить в ams_mercury_g2b строки:
RemClassRegistry.RegisterExternalPropName(TypeInfo(Batch), 'packageList', '[ArrayItemNS="http://api.vetrf.ru/schema/cdm/dictionary/v2" ArrayItemName="package"]'); //!!!
RemClassRegistry.RegisterExternalPropName(TypeInfo(Consignment), 'packageList', '[ArrayItemNS="http://api.vetrf.ru/schema/cdm/dictionary/v2" ArrayItemName="package"]'); //!!!