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

Вчера из своего запроса убрал все символы перевода строки и все заработало, сегодня решил проверить - и о чудо - опять ничего не работает

Добрый день!
Формирую запрос getStockEntryChangesListRequest, получаю ответ. Все хорошо, но Volume пустой, возвращает FSerializationOptions[]. В сохраненном файле ответа объем стоит. В чем косяк никак не пойму....

dmitry67 wrote:Добрый день!
Формирую запрос getStockEntryChangesListRequest, получаю ответ. Все хорошо, но Volume пустой, возвращает FSerializationOptions[]. В сохраненном файле ответа объем стоит. В чем косяк никак не пойму....

Может с форматом чисел с плавающей точкой что-то не то?

Поставил разделитель точку - такая же фигня

все - разобрался, тупанул

На третьей странице в примере есть кусок

Откуда у adw свойство GetVetDocumentChangesListRequest ?
Не могу понять как добавить в submitApplicationRequest секцию ApplicationDataWrapper и соответствующие данные запроса.

RCamel wrote:На третьей странице в примере есть кусок
adw:=ams_mercury_g2b.ApplicationDataWrapper.Create; adw.GetVetDocumentChangesListRequest:=Req; aReq.application_.data:=adw;

Откуда у adw свойство GetVetDocumentChangesListRequest ?
Не могу понять как добавить в submitApplicationRequest секцию ApplicationDataWrapper и соответствующие данные запроса.

Те pas-файлы, которые генерит Delphi не совсем корректные... Нужно самим ручками шаманить... Дописывать и изменять функции, процедуры и т.п...

Те pas-файлы, которые генерит Delphi не совсем корректные... Нужно самим ручками шаманить... Дописывать и изменять функции, процедуры и т.п...

Спасибо, добрый человек.

Добрый день!
А как при оформлении транспортной партии указать <vd:consignment id="idvalue0"> ?

GusVal wrote:
Те pas-файлы, которые генерит Delphi не совсем корректные... Нужно самим ручками шаманить... Дописывать и изменять функции, процедуры и т.п...

pas-файлы корректные для исходных .xsd файлов. Править нужно их. Тогда из них будут получаться другие .pas файлы.

dmitry67 wrote:Добрый день!
А как при оформлении транспортной партии указать <vd:consignment id="idvalue0"> ?

Смотрите свойства этого объекта. Там есть .id, это оно.

Так и сделал, но вываливается при присвоении с access violation

dmitry67 wrote:Так и сделал, но вываливается при присвоении с access violation

для оформления сертификата:

cons: ams_mercury_g2b.Array_Of_Consignment;
da: ams_mercury_g2b.Array_Of_Delivery;

setLength(cons, 1);
cons[0]:=ams_mercury_g2b.Consignment.Create;
cons[0].id:='idvalue0';
setLength(da, 1);
da[0]:=ams_mercury_g2b.Delivery.Create;
da[0].consignment:=copy(cons);

Вываливается на Fid:=Astring;

procedure Consignment.Setid(Index: Integer; const Astring: string);
begin
Fid := Astring;
Fid_Specified := True;
end;

dmitry67 wrote:Вываливается на Fid:=Astring;

procedure Consignment.Setid(Index: Integer; const Astring: string);
begin
Fid := Astring;
Fid_Specified := True;
end;

Объект создан?

setLength(cons, 1);
cons[0]:=ams_mercury_g2b.Consignment.Create;
cons[0].id:='idvalue0';