• Дополнительные функции
  • Оперативная информация
  • Вставить код
  • Скрыть левую панель

Приложение:Переключить в обычный режим

Примечание #1 (25 февраля 2018, 08:50):

Добавление данных
метод: addPat
Пример запроса:

<soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:xmethods-delayed-quotes" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/">
<soapenv:Header/>
<soapenv:Body>
<urn:addPat soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
<PatInf xsi:type="ris:AddPatInf" xmlns:ris="http://ris.kem.service">
<code xsi:type="xsd:string">669</code>
<tnk xsi:type="xsd:string">6dcee</tnk>
<patinf xsi:type="ris:patInf">
<lnm xsi:type="xsd:string">0002422</lnm>
<fnm xsi:type="xsd:string">00004</fnm>
<inrancs xsi:type="ris:pat_inrancs_w">
<list xsi:type="ris:pat_inrancs" soapenc:arrayType="ris:inranc[]">
<inranc>
<locode>205</locode>
<lic>0000001</lic>
<begindate>2001-01-01</begindate>
</inranc>
</list>
</inrancs>
</patinf>
</PatInf>
</urn:addPat>
</soapenv:Body>
</soapenv:Envelope>

Пример ответа об успешной передаче:

<SOAP-ENV:Envelope SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:ns1="urn:xmethods-delayed-quotes" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Body>
<ns1:addPatResponse>
<Result xsi:type="xsd:int">9</Result>
</ns1:addPatResponse>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Примечание #2 (25 февраля 2018, 22:47):

type
AddPatInf = class;
inranc = class;
pat_inrancs_w = class;
patInf = class;
pat_inrancs = array of inranc;

// ************************************************************************ //
// XML : AddPatInf, global, <complexType>
// Namespace : http://ris.kem.service
// ************************************************************************ //
AddPatInf = class(TRemotable)
private
Fcode: string;
Ftnk: string;
Fpatinf: patinf;
public
destructor Destroy; override;
published
property code: string read Fcode write Fcode;
property tnk: string read Ftnk write Ftnk;
property patinf: patinf read Fpatinf write Fpatinf;
end;

// ************************************************************************ //
// XML : inranc, global, <complexType>
// Namespace : http://ris.kem.service
// ************************************************************************ //
inranc = class(TRemotable)
private
Flocode: string;
Fsmo_localcode_Specified: boolean;
Flic: string;
Fbegindate: TXSDate;
procedure Setlocode(Index: Integer; const Astring: string);
function locode_Specified(Index: Integer): boolean;
procedure Setlic(Index: Integer; const Astring: string);
function lic_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property locode: string Index (IS_OPTN) read Flocode write Setlocode stored locode_Specified;
property lic: string Index (IS_OPTN) read Flic write Setlic stored lic_Specified;
property begindate: TXSDate read Fbegindate write Fbegindate;
end;

// ************************************************************************ //
// XML : pat_inrancs_w, global, <complexType>
// Namespace : http://ris.kem.service
// ************************************************************************ //
pat_inrancs_w = class(TRemotable)
private
Fforcewrite: Integer;
Fforcewrite_Specified: boolean;
Flist: pat_inrancs;
procedure Setforcewrite(Index: Integer; const AInteger: Integer);
function forcewrite_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property forcewrite: Integer Index (IS_OPTN) read Fforcewrite write Setforcewrite stored forcewrite_Specified;
property list: pat_inrancs read Flist write Flist;
end;

// ************************************************************************ //
// XML : patInf, global, <complexType>
// Namespace : http://ris.kem.service
// ************************************************************************ //
patInf = class(TRemotable)
private
Flnm: string;
Ffnm: string;
Finrancs: pat_inrancs_w;
Finrancs_Specified: boolean;
procedure Setinrancs(Index: Integer; const Apat_inrancs_w: pat_inrancs_w);
function inrancs_Specified(Index: Integer): boolean;
public
destructor Destroy; override;
published
property lnm: string read Flnm write Flnm;
property fnm: string read Ffnm write Ffnm;
property inrancs: pat_inrancs_w Index (IS_OPTN) read Finrancs write Setinrancs stored inrancs_Specified;
end;

function addPat(const PatInf: AddPatInf): Integer; stdcall;

procedure SetLength(var S; NewLength: Integer);

var arr: pat_inrancs;
 
...
 
SetLength(arr, 1);
arr[0] := inranc.Create;
with arr[0] do begin 
  locode:=205;
  lic:='0000001';
  ...
end;
api.patinf.inrancs.list := arr;

var arr: pat_inrancs;
 
...
 
api.patinf.inrancs.list[0].Free;
SetLength(arr, 0);
api.patinf.inrancs.list := arr;

Всего сообщений: 2; последнее сообщение — 25 марта 2018, 00:37; участников в обсуждении: 2.

var arr: pat_inrancs;
 
...
 
SetLength(arr, 1);
api.patinf.inrancs.list := arr;

api.patinf.inrancs.list[0]:=inranc.Create;

var
 arr:pat_inrancs;
 lst:inranc;
...
...
 SetLength(arr,1);
 api.patinf.inrancs.list:=arr;
 lst.locode:=205;
 lst.lic:='0000001';
 lst.begindate:=TXSDate.Create;
 lst.begindate.AsDate:=StrToDate('01.01.2001');
 api.patinf.inrancs.list[0]:=lst;

Текущее время: 16 ноября 2024, 11:32

Главная страница  |  Обратная связь