1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| procedure TfTest.bSendRequestClick(Sender: TObject);
var
ws: ArtQueriesSoap;
r: dsRequest;
begin
r := dsRequest.Create;
r.schema :=
'<?xml version=1.0>' +
'<ProductAvailabilityRequest>' +
'<Customer>' +
'<Number>099994</Number>' +
'<SoftwareType>TilabUnioneOrderXml</SoftwareType>' +
'<SoftwareVersion>1.0</SoftwareVersion>' +
'<Password>tilab2005</Password>' +
'</Customer>' +
'<Products>' +
'<PharmaCode>1875976</PharmaCode>' +
'<Quantity>1</Quantity>' +
'</Products>' +
'</ProductAvailabilityRequest>';
ws := GetArtQueriesSoap;
mAnswer.Lines.Text := ws.LoadStockInfos(r).schema;
end; |
