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

Конечно выкладывайте, кому-нибудь точно пригодится.

start wrote:Кому-то еще интересны исходники? Выкладывать обновления? Каждый день по функции добавляю и отлаживаю...

Тут какое дело: выкладывая исходники, ты выкладываешь и ошибки. Которые человеку, не очень хорошо разбирающемуся, - не видны. Т.е., он их скопирует себе. Да, у тебя эти ошибки в твоей конфигурации могут никогда и не сработать, а у него - фиг знает, может - да, может - нет. Второе: если выкладываешь исходники "кому-то", вынужденно пишешь больше комментариев, чем для себя "для памяти". А пригодится ли это кому-нибудь...

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

start wrote:Кому-то еще интересны исходники? Выкладывать обновления? Каждый день по функции добавляю и отлаживаю...

Тут какое дело: выкладывая исходники, ты выкладываешь и ошибки. Которые человеку, не очень хорошо разбирающемуся, - не видны. Т.е., он их скопирует себе. Да, у тебя эти ошибки в твоей конфигурации могут никогда и не сработать, а у него - фиг знает, может - да, может - нет. Второе: если выкладываешь исходники "кому-то", вынужденно пишешь больше комментариев, чем для себя "для памяти". А пригодится ли это кому-нибудь...

Ну все запомнить нельзя, комментарии помогают (хотя я их пишу, только там где сложно разобраться), там где все логично и можно без комментариев разобраться они излишне. Если человек не может разобраться в чужом коде (нормально написанном), тогда и нет смысла браться за дело ему

Ну если вместо ApplicationResponse:=SoapServer.submitApplicationRequest(ApplicationRequest);
написать Ar:=SS.SAR(Ar) - тогда трудно разобраться....

Код программы должен представлять собой связный английский текст...
Последние 35 лет стараюсь так писать

Начал где-то в 1983, на С под Юниксом на СМ-1420.

Коллеги, киньте ВСД для тестового контура!

ХС - fa4036a7-0cd0-4d09-bb06-7175cc6c318d
ПО - 933a0d1f-4403-4350-b8ab-a93231814871
Заранее благодарю!

start wrote:Ну если вместо ApplicationResponse:=SoapServer.submitApplicationRequest(ApplicationRequest);
написать Ar:=SS.SAR(Ar) - тогда трудно разобраться....

Типы не сойдутся. Аргумент функции и левый операнд описаны одной переменной. Хотя, если писать на php...

Да я просто привел пример кода лентяев, которым лень писать длинные имена...

Знатоки, чет я сдаюсь...
Не могу в prepareOutgoing запихнуть данные по упаковкам...

Не передается схема элемента package и из-за этого получаю сообщение
Wrong application data format. Format validation failed due to XML Schema rules: Элемент 'package' не предусмотрен.

GusVal wrote:Знатоки, чет я сдаюсь...
Не могу в prepareOutgoing запихнуть данные по упаковкам...

Не передается схема элемента package и из-за этого получаю сообщение
Wrong application data format. Format validation failed due to XML Schema rules: Элемент 'package' не предусмотрен.

1.

2. подправить Soap.OPToSOAPDomConv.pas, в районе 4880 строки найти и изменить:

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

GusVal wrote:Знатоки, чет я сдаюсь...
Не могу в prepareOutgoing запихнуть данные по упаковкам...

Не передается схема элемента package и из-за этого получаю сообщение
Wrong application data format. Format validation failed due to XML Schema rules: Элемент 'package' не предусмотрен.

1.
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"]'); //!!!
2. подправить Soap.OPToSOAPDomConv.pas, в районе 4880 строки найти и изменить:
if not GetRegInfo(ChildNamespace, InfoAttribute.iaNamespace, ElementNodeNamespace) then ElementNodeNameSpace := NodeNamespace; if (not GetRegInfo(ChildNamespace, InfoAttribute.iaArrayItemNamespace, ElemChildNamespace)) then ElemChildNamespace := ElementNodeNamespace; WriteRectDynArrayElem2(RootNode, ElemNode, ElemInfo, GetDynArrayLength(P), // !!! // вот эту строку! Dims, P, ElementNodeName, ElemChildNamespace, //ElementNodeNamespace, ElemChildNamespace);

Вот прям большое человеческое Вам СПАСИБО

Все получилось...

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

Здравствуйте,

Пробую делать различные запросы к Меркурию. Выдернул из исходников, выложенных start функцию -

function GetActivityLocationList(const IssuerId: string): Boolean;
//Проверка наличия нашего предприятия в системе Меркурий.
//IssuerId - тот, что прислали в письме при включении в систему.
//IssuerID - идентифицирует хозяйствующий субъект (businessEntity).
//В объекте activityLocations будут содержаться guid'ы привязанные к нашему ХС.
var
  i, j: Integer;
  RetryCount : Integer;
  RIO: THTTPRIO;
  SoapServer: EnterpriseService_v2.EnterpriseServicePortType;
  ApplicationRequest: EnterpriseService_v2.getActivityLocationListRequest;
  ApplicationResponse: EnterpriseService_v2.getActivityLocationListResponse;
begin
  ClearOutput;
  InvRegistry.RegisterInvokeOptions(TypeInfo(EnterpriseServicePortType), ioDocument);
  //Лучше создать заранее (хотя в GetEnterpriseServicePortType он тоже создается),
  //чтобы после выполнения - удалить из памяти - RIO.Free...
  RIO:=THTTPRIO.Create(nil);
  SoapServer:=EnterpriseService_v2.GetEnterpriseServicePortType(false, '', RIO);

RIO.HTTPWebNode.UserName:='user';
  RIO.HTTPWebNode.Password:='password';

//Создаем запрос
  ApplicationRequest:= EnterpriseService_v2.getActivityLocationListRequest.Create;
  //Добавляем аргумент для проверки - guid
  ApplicationRequest.businessEntity := EnterpriseService_v2.businessEntity.Create;
  ApplicationRequest.businessEntity.guid := IssuerId;
  ApplicationRequest.listOptions := EnterpriseService_v2.listOptions.Create;
  ApplicationRequest.listOptions.count := TXSDecimal.Create;
  ApplicationRequest.listOptions.count.DecimalString := '10';
  ApplicationRequest.listOptions.offset := TXSDecimal.Create;
  ApplicationRequest.listOptions.offset.DecimalString := '0';
  //Получаем ответ
  try
    ApplicationResponse:=SoapServer.GetActivityLocationList(ApplicationRequest);
  except
    on E: Exception do
      ShowMessage('Ошибка ' + #10 + E.Message);
  end;

if ApplicationResponse.activityLocationList.count = 0 then
    ShowMessage('Не найдено ОБЪЕКТОВ!');
  for i:= 0 to ApplicationResponse.activityLocationList.count-1 do begin
    ShowMessage(ApplicationResponse.activityLocationList.location[i].businessEntity.name_ + #10 +
      ApplicationResponse.activityLocationList.location[i].enterprise.name_);
  end;
 // RIO.Free;
end;

При запуске получаю ошибку - "No WSDL or URL property was set in the THTTPRIO component. You must set the WSDL or URL property before invoking the Web Service"

Что я не так делаю?

В догонку -

Если прописываю в RIO адрес WSDL, то ошибка такая - "Unable to retrieve the URL endpoint for Service/Port 'EnterpriseServiceBindingQSService'/'EnterpriseServiceBindingQSPort' from WSDL 'http://api.vetrf.ru/schema/platform/services/2.0-RC-last/EnterpriseService_v2.0_pilot.wsdl''

А WSDL импортировали?

start wrote:А WSDL импортировали?

Да, конечно.

exteris wrote:

start wrote:А WSDL импортировали?

Да, конечно.

Разобрался. Я импортировал wsdl в soap версии 1.2. Попробовал soap 1.1 и всё заработало.