|
[Search] Поиск   [Recent Topics] Последние темы   [Hottest Topics] Горячие темы   [Members]  Список участников   [Groups] На главную страницу 
[Register] Регистрация / 
[Login] Вход 
Прошу помощи. Интреграция базы MSSQL и Меркурий через шлюз на Delphi  XML
Индекс форума » Автоматизированная система МЕРКУРИЙ
Автор Сообщение
СергейА


Зарегистрирован: 30/10/2017 19:34:19
Сообщений: 55
Оффлайн

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


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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

[Avatar]

Зарегистрирован: 02/10/2017 14:31:03
Сообщений: 324
Оффлайн

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


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


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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


Зарегистрирован: 23/04/2018 14:17:16
Сообщений: 9
Оффлайн

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


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


Зарегистрирован: 10/11/2017 12:14:53
Сообщений: 161
Оффлайн

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


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


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


Зарегистрирован: 23/04/2018 14:17:16
Сообщений: 9
Оффлайн

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

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


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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


Зарегистрирован: 02/08/2017 09:19:30
Сообщений: 554
Оффлайн

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

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


Зарегистрирован: 02/08/2017 09:19:30
Сообщений: 554
Оффлайн

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

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


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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


Зарегистрирован: 02/08/2017 09:19:30
Сообщений: 554
Оффлайн

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);
dmitry67


Зарегистрирован: 05/01/2018 10:26:51
Сообщений: 21
Оффлайн

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

procedure Consignment.Setid(Index: Integer; const Astring: string);
begin
Fid := Astring;
Fid_Specified := True;
end;
Владимир Игнатов


Зарегистрирован: 02/08/2017 09:19:30
Сообщений: 554
Оффлайн

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';
 
Индекс форума » Автоматизированная система МЕРКУРИЙ
Перейти:   

Powered by JForum 2.1.8 © JForum Team